<!-- #include file="../../include.asp" --> <% '<!-- '################################################ ' 名称 :演習データ復元 ' 作成日:2002/12/10 ' 作成者:徳田 ' 目的 :演習データ復元画面を表示する。 ' 概要 : ' <<表示>> ' ・演習データ復元画面 ' '################################################ '--> %> <% 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 %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=shift_jis"> <meta http-equiv="Pragma" content="no-cache"> <meta http-equiv="Cache-Control" content="no-cache"> <meta http-equiv="Expires" content="-1"> <link href="../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css"> <title><% = AppTitle %></title> <script language="JScript" src="../../include.js?<% = TimeUniq() %>"></script> <script language="JScript" src="../../includesj.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../include_enc.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../includesj_enc.js?<% = TimeUniq() %>"></script> <script type="text/javascript" src="../../javascript.js?<% = TimeUniq() %>"></script> </head> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 1; --> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <form OnKeyDown="FormKeyDown(this)" name="form1" method="POST" action="fm_enshu_load_bin.asp"> <INPUT type='hidden' name='RouteType' value='<%= RouteType %>'> <% 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)) %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5"> <tr> <td> <table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%"> <tr> <td align="CENTER" valign="MIDDLE"> <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000"> <TR> <TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif"> <TABLE WIDTH="700" HEIGHT="180" BORDER="0" CELLSPACING="0" CELLPADDING="0"> <TR HEIGHT="25"> <TD HEIGHT="25" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_lu.gif"> </TD> <TD HEIGHT="20" ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/dlgline_h.gif"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif"> <TR> <TD ALIGN="CENTER" VALIGN="BOTTOM" CLASS="tx2022mn">【 データ復元 】</TD> </TR> </TABLE> </TD> <TD HEIGHT="25" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_ru.gif"> </TD> </TR> <TR HEIGHT="20"> <TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_v.gif"> </TD> <TD> <table border="0" cellpadding="0" cellspacing="0" width="100%" > <TR> <TD HEIGHT="100" VALIGN="MIDDLE"> <TABLE BORDER="1" CELLPADDING="5" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1618" STYLE="border-collapse: collapse" width="100%"> <TR ALIGN="CENTER"> <td width="150" HEIGHT="100">対象演習</td> <td width="500" HEIGHT="100" ALIGN="LEFT"> <% If Target = "all" Then Response.Write("全演習") Else Response.Write(ConvEnshuMeisyo(Target)) End If %> <input type="hidden" name="Target" value="<% = Target %>"> </td> </TR> <TR ALIGN="CENTER"> <td width="150" HEIGHT="80">バックアップ元</td> <td width="500" HEIGHT="80" ALIGN="LEFT"><% = SetTimeYYMMDDHHMM2Rev(DateFolder) %> </td> </TR> </table> </td> </TR> </table> <TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_v.gif"> </TD> </TR> <TR> <TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_ld.gif"> </TD> <TD HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_h.gif"> </TD> <TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_rd.gif"> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </td> </tr> </table> </td> </tr> </table> </div> </form> </body> <% = HtmlFooter %> </html> <SCRIPT LANGUAGE="JavaScript"> function SubmitCheck(Kubun) { if (form1.Target.value == "") { alert("対象演習コードを選択して下さい"); return false; } if (form1.DateFolder.value == "") { alert("バックアップ履歴から復元したい履歴を選択して下さい"); return false; } var flag; flag = confirm("対象演習データの復元処理を行います。\r\n対象演習に入力されている演習はすべて削除され、\r\n復元時点のデータに上書きされます。\r\n\r\n実行してよろしいですか?"); if (flag) { SubmitReal(form1); return true; } else { return false; } } </script> <% End Sub %>