<!-- #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
%>