<% ' %> <% main() Sub main() Dim EnshuKubun Dim EnshuName Dim ErrMSG Dim SaveStatus Dim SysFileNM Dim FilePath Dim Query , Content Dim Target If Not(SessionCheck()) Then Exit Sub End If Target = Request("Target") EnshuKubun = Request("EnshuKubun") ErrMSG = Request("ErrMSG") SysFileNM = "TC1システムM.csv" '演習名称ＧＥＴ If Target = "all" Then EnshuName = "全演習" Else EnshuName = ConvEnshuMeisyo(Target) End If 'システム情報ＧＥＴ Dim BackUpPath, EnshuFolder, DateFolder BackUpPath = GetBackupPath() EnshuFolder = Target DateFolder = Request("DateFolder") FilePath = BackUpPath & "\" & EnshuFolder & "\" & DateFolder '保存状況ＳＥＴ Dim fso, fnm , fid , wmsg fnm = FilePath & "\" & SysFileNM Set fso = Server.CreateObject("Scripting.FileSystemObject") If (fso.FileExists(fnm)) Then Set fid = fso.GetFile(fnm) SaveStatus = "保存日時 " & SetTimeYYMMDDHHMM2Rev(DateFolder) If ErrMSG = "" Then SaveStatus = SaveStatus & "    上書きとなります" Else SaveStatus = SaveStatus & "    保存しました" End If Else If ErrMSG = "" Then SaveStatus = "新しくデータを保存します" Else SaveStatus = "" End If End If Dim RouteType RouteType = Request("RouteType") %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If GB_Admin >= 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "データバックアップ", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "データバックアップ", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) ' Response.Write(HttpL3_1("バックアップのダウンロード", "DownLoad()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("戻る", "SubmitCheck('end')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("データバックアップ", "")) Response.Write(HttpL5(ErrMSG)) %>
<% = HtmlFooter %> <% End Sub %>