<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：演習データ復元
' 作成日：2002/12/10
' 作成者：徳田
' 目的 ：演習データ復元画面を表示する。
' 概要 ：
' <<表示>>
' ・演習データ復元画面
'
'################################################
'-->
%>
<%
main()
Sub main()
Dim ErrMSG
If Not(SessionCheck()) Then
Exit Sub
End If
'会社セッション初期化（演習状況記帳チェック後の対処）
KaisyaCD = ""
GB_KaisyaCD = ""
KaisyaMeisyo = ""
GB_KaisyaMeisyo = ""
KaisyaRyakuMeisyo = ""
GB_KaisyaRyakuMeisyo = ""
Session(HomeAlias & "KaisyaCD") = ""
Session(HomeAlias & "Gyosyu") = ""
Session(HomeAlias & "GyosyuMeisyo") = ""
Session(HomeAlias & "KaisyaMeisyo") = ""
Session(HomeAlias & "KaisyaRyakuMeisyo") = ""
Session(HomeAlias & "JisyaFlag") = ""
Session(HomeAlias & "ShijyoCD") = ""
Dim Target
Target = Request("Target")
Dim ShowDel
ShowDel = Request("ShowDel")
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
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
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 1;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)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("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
If bExistBackUpPath = 1 Then
If ErrMSG = "" Then
If Target = "" Then
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
If Request("ShowDel") = "1" Then
Response.Write(HttpL3_2("演習削除済みを非表示", "tblbtn('fm_enshu_load.asp')", "", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_2("演習削除済みを表示", "tblbtn('fm_enshu_load.asp?ShowDel=1')", "", "", "", "", "", "", "", ""))
End If
Else
Response.Write(HttpL3_1("データ復元を実行する", "SubmitCheck('kaisya')", "", "", "", "", "", "", "", ""))
If GB_Admin = 1 Then
Response.Write(HttpL3_2("演習選択に戻る", "tblbtn('fm_enshu_load.asp?ShowDel=" & ShowDel & "')", "", "", "", "", "", "", "", ""))
End If
End If
Else
Response.Write(HttpL3_1("終了確認", "tblbtn( 'fm_enshu_load.asp?RouteType=" & RouteType & "&Target=" & Target & "')", "", "", "", "", "", "", "", ""))
End If
If GB_Admin = 1 And Target <> "" Then
Response.Write(HttpL3_2("演習選択", "tblbtn('fm_enshu_load.asp')", "", "", "", "", "", "", "", ""))
End If
End If
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="20">
<TD HEIGHT="25" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_lu.gif" class="tx1416"> </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" class="tx1416"> </TD>
</TR>
<TR HEIGHT="20">
<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_v.gif" class="tx1416"> </TD>
<TD>
<%
Set fso = CreateObject("Scripting.FileSystemObject")
BackUpPath = GetBackupPath()
EnshuFolder = Target
FilePath = BackUpPath & "\" & EnshuFolder
If bExistBackUpPath = 0 Then
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%" >
<TR>
<TD HEIGHT="130" VALIGN="MIDDLE" >
システム情報に設定されたバックアップフォルダ<br>
<% = FilePath %> がサーバー上に存在しません。<br>
サーバー内にフォルダを作成するか、<br>
もしくは「システム情報」にてフォルダ設定を変更してください。
</TD>
</TR>
</TABLE>
<%
Else
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%" >
<TR>
<TD HEIGHT="100" VALIGN="MIDDLE" >
<% If Target <> "" Then %>
<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("演習コード：" & Target & "<br>")
Response.Write(ConvEnshuMeisyo(Target))
End If
%>
<input type="hidden" name="Target" value="<% = Target %>">
</td>
</TR>
<TR ALIGN="CENTER">
<td width="150" HEIGHT="60">バックアップ履歴</td>
<td width="500" HEIGHT="60" ALIGN="LEFT">
<select size="1" name="DateFolder" class="tbox4_w">
<option value="">＜＜ 選択して下さい ＞＞</option>
<%
Set fso = CreateObject("Scripting.FileSystemObject")
BackUpPath = GetBackupPath()
EnshuFolder = Target
FilePath = BackUpPath & "\" & EnshuFolder
' If bExistBackUpPath = 0 Then
' fso.CreateFolder(FilePath)
' End If
If Not(fso.FolderExists(FilePath)) Then
fso.CreateFolder(FilePath)
End If
Set f = fso.GetFolder(FilePath)
Set sf = f.SubFolders
Dim tmp1, tmp2
For Each f1 in sf
tmp1 = tmp1 & f1.name & "-"
Next
tmp2 = split(tmp1, "-")
For ii = UBound(tmp2) - 1 To 0 Step -1
Response.Write("<option value=""" & tmp2(ii) & """>")
Response.Write(SetTimeYYMMDDHHMM2Rev(tmp2(ii)))
Response.Write("</option>" & vbCrLf)
Next
%>
</select>
</td>
</TR>
<TR ALIGN="CENTER">
<td width="150" HEIGHT="100">オプション</td>
<td width="500" HEIGHT="100" ALIGN="LEFT">
<input type="checkbox" name="system" value="1">システム情報を復元する （通常はチェックを入れないでください）<br>
<input type="checkbox" name="user" value="1">ユーザー情報を復元する （通常はチェックを入れないでください）
</td>
</TR>
</table>
<% Else %>
<TABLE BORDER="1" CELLPADDING="5" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse" width="100%">
<TR ALIGN="CENTER">
<td width="150" HEIGHT="100">対象演習</td>
<td width="500" HEIGHT="100" ALIGN="LEFT">
<select size="1" name="Target" onchange="tblbtn('fm_enshu_load.asp?Target=' + this.value + '&ShowDel=<% = ShowDel %>')" class="tbox4_w">
<option value="">＜＜対象演習を選択して下さい＞＞</option>
<%
ii = 0
BackUpPath = GetBackupPath()
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(BackUpPath)
Set sf = f.SubFolders
Query = "exec SPM演習一覧 '" & GB_SystemCD & "', 4"
Set Content = OpenQuery(Query)
For Each f1 in sf
Dim bExist
bExist = 0
If Not(Content.BOF) Then
Content.MoveFirst()
End If
Do While Not(Content.BOF Or Content.EOF)
If (PackageMode = 1 And "" & Content.Fields("パッケージ区分") = "CA") Or (PackageMode = 0 And "" & Content.Fields("パッケージ区分") <> "CA") Then
If f1.name = "all" Then
Response.Write("<option value=""all"">全演習</option>" & vbCrLf)
bExist = 1
Exit Do
ElseIf f1.name = Content.Fields("演習CD") Then
Response.Write("<option value=""" & f1.name & """")
If f1.name = Target Then
Response.Write(" selected")
End If
Response.Write(">" & Content.Fields("演習名称") & "</option>" & vbCrLf)
bExist = 1
Exit Do
End If
End If
Content.MoveNext
Loop
If bExist = 0 Then
If ShowDel = "1" Then
Response.Write("<option value=""" & f1.name & """")
If f1.name = Target Then
Response.Write(" selected")
End If
Response.Write(">演習コード：" & f1.name & "</option>" & vbCrLf)
End If
End If
Next
%>
</select>
</td>
</TR>
</table>
<% End If %>
</td>
</TR>
<TR>
<TD HEIGHT="50" VALIGN="MIDDLE" align="center">
<TABLE CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<TD width="500">
<% If ErrMSG <> "" Then
Response.Write(ErrMSG)
Else
%>
<div class="tx0911"> </div>
<div class="tx1618">指定された演習データの復元を行います。</div>
<div class="tx0911"> </div>
<div class="tx1618">該当演習中のユーザーがいないことを確認の上で処理を実行して下さい。</div>
<% End If %>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</table>
<% End IF %>
<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_v.gif" class="tx1214"> </TD>
</TR>
<TR>
<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_ld.gif" class="tx1214"> </TD>
<TD HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_h.gif" class="tx1214"> </TD>
<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_rd.gif" class="tx1214"> </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 = "対象演習データの復元処理を行います。 ";
<% If Request("ShowDel") <> "1" Then %>
flag = flag + "\r\n\n対象演習に現在入力されているデータは \r\nバックアップ時点のデータで上書きされます。 ";
<% End If %>
flag = flag + "\r\n\r\n実行してよろしいですか？ ";
if (confirm(flag))
{
SubmitReal(form1);
return true;
}
else
{
return false;
}
}
</script>
<%
End Sub
%>