<!-- #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 & " 上書きとなります" 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 %>