<% ' %> <% main() Sub main() Dim ErrMSG If Not(SessionCheck()) Then Exit Sub End If Dim Target Target = Request("Target") Dim DateFolder DateFolder = Request("DateFolder") If GB_Admin = 2 Then Target = EnshuCD End If ErrMSG = Request("ErrMSG") Dim RouteType RouteType = Request("RouteType") Dim fso, f, f1, s, sf Dim BackUpPath, EnshuFolder, FilePath Dim Query Dim Content Dim ii, jj %> <% = 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("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("戻る", "tblbtn( 'fm_enshu_load.asp?RouteType=" & RouteType & "&Target=" & Target & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("データ復元", "")) Response.Write(HttpL5(ErrMSG)) %>
<% = HtmlFooter %> <% End Sub %>