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

'演習名称GET
	If Target = "all" Then
		EnshuName = "全演習"
	Else
		EnshuName = ConvEnshuMeisyo(Target)
	End If

'システム情報GET
	Dim BackUpPath, EnshuFolder, DateFolder
	BackUpPath = GetBackupPath()

	EnshuFolder = Target

	DateFolder = Request("DateFolder")

	FilePath = BackUpPath & "\" & EnshuFolder & "\" & DateFolder

'保存状況SET
	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 & "&nbsp;&nbsp;&nbsp;&nbsp;上書きとなります"
		Else
			SaveStatus = SaveStatus & "&nbsp;&nbsp;&nbsp;&nbsp;保存しました"
		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
%>