<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：演習データ待避
' 作成日：2002/12/10
' 作成者：徳田
' 目的 ：演習データ待避確認画面を表示する。
' 概要 ：
' <<表示>>
' ・演習データ待避確認画面
'
'################################################
'-->
%>
<%
main()
Sub main()
Dim EnshuKubun
Dim EnshuName
Dim ErrMSG
Dim SaveStatus
Dim SysFileNM
Dim FilePath
Dim Query , Content
Dim Target
If Not(SessionCheck()) Then
Exit Sub
End If
Target = Request("Target")
EnshuKubun = Request("EnshuKubun")
ErrMSG = Request("ErrMSG")
SysFileNM = "TC1システムM.csv"
'演習名称ＧＥＴ
If Target = "all" Then
EnshuName = "全演習"
Else
EnshuName = ConvEnshuMeisyo(Target)
End If
'システム情報ＧＥＴ
Dim BackUpPath, EnshuFolder, DateFolder
BackUpPath = GetBackupPath()
EnshuFolder = Target
DateFolder = Request("DateFolder")
FilePath = BackUpPath & "\" & EnshuFolder & "\" & DateFolder
'保存状況ＳＥＴ
Dim fso, fnm , fid , wmsg
fnm = FilePath & "\" & SysFileNM
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(fnm)) Then
Set fid = fso.GetFile(fnm)
SaveStatus = "保存日時 " & SetTimeYYMMDDHHMM2Rev(DateFolder)
If ErrMSG = "" Then
SaveStatus = SaveStatus & " 上書きとなります"
Else
SaveStatus = SaveStatus & " 保存しました"
End If
Else
If ErrMSG = "" Then
SaveStatus = "新しくデータを保存します"
Else
SaveStatus = ""
End If
End If
Dim RouteType
RouteType = Request("RouteType")
%>
<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_save_bin.asp'>
<INPUT type='hidden' name='EnshuKubun' value='<%= EnshuKubun %>'>
<INPUT type='hidden' name='Target' value='<%= Target %>'>
<INPUT type='hidden' name='FilePath' value='<%= FilePath %>'>
<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("バックアップのダウンロード", "DownLoad()", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("戻る", "SubmitCheck('end')", "", "", "", "", "", "", "", ""))
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>
<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_v.gif"> </TD>
<TD HEIGHT="60" VALIGN="MIDDLE" >
<TABLE BORDER="1" CELLPADDING="5" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1618" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<td colspan="2" width="650" HEIGHT="50" ALIGN="center"><%= ErrMSG %></td>
</TR>
<TR ALIGN="CENTER">
<td width="150" HEIGHT="100">対象演習</td>
<td width="500" HEIGHT="100" ALIGN="LEFT"><%= EnshuName %>
<% If Target <> "" Then %>
（ <%= Target %> ）
<% End If %>
</td>
</TR>
<TR ALIGN="CENTER">
<TD width="150" height="60">保存先フォルダ名</td>
<TD width="500" height="60" ALIGN="LEFT">サーバーの<br><%= FilePath %></TD>
</TR>
<TR ALIGN="CENTER">
<TD width="150" height="50">保存状況</td>
<TD width="500" height="50" ALIGN="LEFT"><%= SaveStatus %></TD>
</TR>
</TABLE>
</TD>
<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 DownLoad()
{
if(confirm("この処理はサポートスタッフのみ行っておこなってください。\r\n\r\n実行してよろしいですか？"))
{
NewWnd('fm_enshu_pack_bin.asp?Target=<% = Target %>&DateFolder=<% = DateFolder %>');
}
}
function SubmitCheck(Kubun)
{
if (Kubun == "end")
{
tblbtn( "fm_enshu_save.asp?RouteType=<% = RouteType %>&Target=<% = Target %>");
return true;
}
if (Kubun == "cancel")
{
var rsts;
rsts = confirm("処理を中止します。よろしいですか？");
if (rsts)
{
tblbtn( "fm_enshu_save.asp?RouteType=<% = RouteType %>&Target=<% = Target %>");
return true;
}
else
{
return false;
}
}
var flag;
flag = confirm("対象演習データのバックアップ処理を行います。実行してよろしいですか？");
if (flag)
{
SubmitReal(form1);
return true;
}
else
{
return false;
}
}
</script>
<%
End Sub
%>