<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：演習データ待避
' 作成日：2002/12/10
' 作成者：徳田
' 目的 ：演習データ待避画面（演習選択）を表示する。
' 概要 ：
' <<表示>>
' ・演習データ待避画面
'
'################################################
'-->
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim RouteType
RouteType = Request("RouteType")
Dim Target
Target = Request("Target")
Dim SelectTarget
SelectTarget = Request("SelectTarget")
If SelectTarget = "all" Then
SelectTarget = ""
End If
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>
<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" action="fm_enshu_save_bin.asp">
<input type="hidden" name="Target" value="<% = Target %>">
<%
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
If bExistBackUpPath = 1 Then
If Target = "" Then
Response.Write(HttpL3_1("確認", "KakuninCheck()", "", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_1("データバックアップ処理実行", "SubmitCheck()", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("演習選択","tblbtn('fm_enshu_save.asp?SelectTarget=" & Target & "')", "", "", "", "", "", "", "", ""))
End If
End If
Response.Write(HttpL4("データバックアップ", ""))
%>
<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="600" HEIGHT="140" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR HEIGHT="20">
<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_lu.gif" class="tx1214"> </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="tx1618mn">【 データバックアップ 】</TD>
</TR>
</TABLE>
</TD>
<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_ru.gif" class="tx1214"> </TD>
</TR>
<TR>
<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_v.gif" class="tx1214"> </TD>
<TD HEIGHT="120" VALIGN="MIDDLE" >
<%
Set fso = CreateObject("Scripting.FileSystemObject")
BackUpPath = GetBackupPath()
EnshuFolder = Target
FilePath = BackUpPath
If bExistBackUpPath = 0 Then
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%" >
<TR>
<TD HEIGHT="100" VALIGN="MIDDLE" >
システム情報に設定されたバックアップフォルダ<br>
<% = FilePath %> がサーバー上に存在しません。<br>
サーバー内にフォルダを作成するか、<br>
もしくは「システム情報」にてフォルダ設定を変更してください。
</TD>
</TR>
</TABLE>
<%
Else
%>
<% If Target = "" Then %>
<TABLE BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<td width="150" HEIGHT="100">対象演習</td>
<td width="400" HEIGHT="100" ALIGN="LEFT">
<% If GB_Admin = 2 Then %>
<input type="hidden" name="EnshuKubun" value="sitei">
<input type="hidden" name="Target" value="<% = EnshuCD %>">
<% = EnshuMeisyo %>
<% Else %>
<INPUT type='radio' name='EnshuKubun' value= "all"<% If EnshuCD = "" And SelectTarget = "" Then %> checked<% End If %> OnClick='EnshuKubun_Check(0)'> 全演習
<BR><BR>
<INPUT type='radio' name='EnshuKubun' value= "sitei"<% If EnshuCD <> "" Or SelectTarget <> "" Then %> checked<% End If %> OnClick='EnshuKubun_Check(1)'> 指定演習
<select size="1" name="EnshuCD" disabled>
<option value="">＜＜ 対象演習を選択して下さい ＞＞</option>
<%
Dim Query
Dim Content
Dim ii, jj
ii = 0
Query = "exec SPM演習一覧 '" & GB_SystemCD & "',2"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If (PackageMode = 1 And "" & Content.Fields("パッケージ区分") = "CA") Or (PackageMode = 0 And "" & Content.Fields("パッケージ区分") <> "CA") Then
Response.Write("<option value=""" & Content.Fields("演習CD") & """")
If Content.Fields("演習CD") = EnshuCD Or Content.Fields("演習CD") = SelectTarget Then
Response.Write(" selected")
End If
Response.Write(">" & Content.Fields("演習名称") & "</option>" & vbCrLf)
End If
Content.MoveNext
Loop
%>
</select>
<% End If %>
</td>
</TR>
</table>
<% Else %>
<TABLE BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<td width="150" HEIGHT="100">対象演習</td>
<td width="400" HEIGHT="100" ALIGN="LEFT">
<%
Dim EnshuName
If Target = "all" Then
EnshuName = "全演習"
Else
EnshuName = ConvEnshuMeisyo(Target)
End If
Response.Write(EnshuName)
%>
</td>
</TR>
<TR ALIGN="CENTER">
<td width="150" HEIGHT="100">バックアップ履歴</td>
<td width="400" HEIGHT="100" ALIGN="LEFT">
<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:400px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
<TABLE ID="List" WIDTH="380" BORDER="0" CELLSPACING="0" CELLPADDING="0" STYLE="border-collapse: collapse" BORDERCOLOR="#000000">
<%
Dim BackUpPath, EnshuFolder, FilePath
BackUpPath = GetBackupPath()
EnshuFolder = Target
FilePath = BackUpPath & "\" & EnshuFolder
Dim fso, f, f1, s, sf
Set fso = CreateObject("Scripting.FileSystemObject")
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("<tr><td class=""tx1618"">")
Response.Write(SetTimeYYMMDDHHMM2Rev(tmp2(ii)))
Response.Write("</td></tr>" & vbCrLf)
Next
%>
</table>
</td>
</TR>
</table>
<% End If %>
</td>
<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_v.gif" class="tx1214"> </TD>
</TR>
<TR>
<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/dlgline_v.gif" class="tx1214"> </TD>
<TD HEIGHT="50" VALIGN="MIDDLE" align="center">
<TABLE CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<TD width="500">
<div class="tx0911"> </div>
<div class="tx1416">指定された演習データのバックアップを行います。</div>
<div class="tx0911"> </div>
<div class="tx1416">該当演習中のユーザーがいないことを確認の上で処理を実行して下さい。</div>
</TD>
</TR>
</TABLE>
</TD>
<% 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 KakuninCheck()
{
var target;
<% If GB_Admin = 2 Then %>
target = "<% = EnshuCD %>";
atai = form1.EnshuKubun.value;
<% Else %>
var atai="";
for(i=0; i<form1.EnshuKubun.length; i++)
{
if(form1.EnshuKubun[i].checked)
{
atai = form1.EnshuKubun[i].value;
}
}
if (atai == "")
{
alert("全演習か演習指定かを選択して下さい");
return false;
}
if (atai == "sitei")
{
if (form1.EnshuCD.value == "")
{
alert("対象演習を選択して下さい");
return false;
}
target = form1.EnshuCD.value;
}
else
{
target = "all";
}
<% End If %>
tblbtn( "fm_enshu_save.asp?target=" + target);
}
function EnshuKubun_Check(Kubun)
{
if(Kubun == 0)
{
form1.EnshuCD.value = "";
form1.EnshuCD.disabled = true;
}
else
{
form1.EnshuCD.value = "";
form1.EnshuCD.disabled = false;
}
}
<% If EnshuCD <> "" Or SelectTarget <> "" Then %>
if (typeof(form1.EnshuCD) == "object") {
form1.EnshuCD.disabled = false;
}
<% End If %>
function SubmitCheck()
{
if(confirm("バックアップを実行します\r\nよろしいですか？"))
{
SubmitReal(form1);
return true;
}
}
</script>
<%
End Sub
%>