<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim Target Target = Request("Target") Dim SelectTarget SelectTarget = Request("SelectTarget") If SelectTarget = "all" Then SelectTarget = "" End If Dim bExistBackUpPath bExistBackUpPath = 1 Set fso = CreateObject("Scripting.FileSystemObject") BackUpPath = GetBackupPath() EnshuFolder = Target FilePath = BackUpPath If Not(fso.FolderExists(FilePath)) Then bExistBackUpPath = 0 End If %> <% = AppTitle %>
<% 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 If bExistBackUpPath = 1 Then If Target = "" Then Response.Write(HttpL3_1("確認", "KakuninCheck()", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("データバックアップ処理実行", "SubmitCheck()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("演習選択","tblbtn('fm_enshu_save.asp?SelectTarget=" & Target & "')", "", "", "", "", "", "", "", "")) End If End If Response.Write(HttpL4("データバックアップ", "")) %> <% = HtmlFooter %> <% End Sub %>