<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% if Session("FONTSIZE") = "" then %> <% else %> <% Const L_PREVBACKUPS_TEXT = "以前のバックアップ" Const L_BACKUPNAME_TEXT = "名前" Const L_BACKUPDATE_TEXT = "日付" Const L_NUM_TEXT = "#" Const L_SAMPLEBACKUP_TEXT = "MyBackup" Const L_GETNAME_TEXT = "バックアップした構成の名前" Const L_SELECTITEM_TEXT = "削除するバックアップを選択してください。" On Error Resume Next function heading(width,thestring) Dim i width=width - len(thestring) for i=width to 0 step -1 thestring=thestring & " " Next heading=thestring end function %>

<%= L_PREVBACKUPS_TEXT %>

<% if Session("FONTSIZE")="LARGE" then %> <%= heading(31,L_BACKUPNAME_TEXT) %> <% else %> <%= heading(31,L_BACKUPNAME_TEXT) %> <% end if %>

<% if Session("FONTSIZE")="LARGE" then %> <%= heading(1,L_NUM_TEXT) %> <% else %> <%= heading(1,L_NUM_TEXT) %> <% end if %>

<% if Session("FONTSIZE")="LARGE" then %> <%= heading(36,L_BACKUPDATE_TEXT) %> <% else %> <%= heading(36,L_BACKUPDATE_TEXT) %> <% end if %>

<% end if %>