<!-- #include file="../include.asp" -->
<%
'<!--
'################################################
' 名称 ：運用管理メニュー
' 作成日 ：2002/10/10
' 作成者 ：徳田
' 目的 ：運用管理メニュー画面を表示する。
' 概要 ：
' <<表示>>
' ・
' <<入力チェック>>
' ・
' 修正日 ：2006/11/21
' 修正者 ：和田
' 修正内容：受発信文書ボタン追加
'
'################################################
'-->
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
'サイバートレード存在チェック（電商くんはサイバー会計自動連動のためこの処理は不要）
Dim CT21db
Dim CT21variable
CT21variable = 1
On Error Resume Next
Err.Clear()
Set CT21db = Server.CreateObject("ADODB.Connection")
CT21db.ConnectionTimeout = 60
CT21db.CommandTimeout = 60
CT21db.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sfcuser;Password=sfc-5963;Initial Catalog=ct21sqldb;Data Source=" & SQLServer
If Err.Description <> "" Then
CT21variable = 0
End If
On Error Goto 0
Dim Query, Content
Dim EnshuCD
EnshuCD = Request("EnshuCD")
Dim EnshuCnt
EnshuCnt = 0
Dim TmpEnshuCD
Query = "exec SPM演習一覧 '" & GB_SystemCD & "', 4"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
'「SYSCT21：サイバートレード会計演習マスター」は同一環境にサイバートレードが存在する場合のみ表示
If (PackageMode = 1 And "" & Content.Fields("パッケージ区分") = "CA" And (UCase(Content.Fields("演習CD")) <> "SYSCT21" Or CT21variable = 1)) Or (PackageMode = 0 And "" & Content.Fields("パッケージ区分") <> "CA") Then
If UCase(Content.Fields("演習CD")) = GB_EnshuID Or UCase(Content.Fields("演習管理者ID")) = GB_EnshuID Then
If Content.Fields("演習管理者パスワード") <> "" Then
If UCase(Content.Fields("演習管理者パスワード")) = GB_EnshuPassword Then
EnshuCnt = EnshuCnt + 1
TmpEnshuCD = Content.Fields("演習CD")
End If
End If
End If
End If
Content.MoveNext
Loop
'当該演習管理者の管理演習が１つなら演習管理へ飛ぶ
If EnshuCnt = 1 Then
Response.Redirect("/" & HomeAlias & "/admin/admenu_enshu_sentaku_bin.asp?EnshuCD=" & TmpEnshuCD)
'当該演習管理者の管理演習が２つ以上ならメニュー表示
ElseIf EnshuCnt > 1 Then
Content.MoveFirst
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="admenu_enshu_sentaku_bin.asp">
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(4))
Response.Write(HttpL2("運用管理メニュー" ,"", "", "", "" , "", "", "", "", "", "", ""))
Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4("運用管理", ""))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: 0px;">
<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 WIDTH="680" HEIGHT="280" BORDER="0" CELLSPACING="5" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000">
<TR>
<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_b.gif">
<select size="1" name="EnshuCD" onChange="SelectEnshu();" class="tbox4_w">
<option value="">＜＜ 管理をする演習を選択して下さい ＞＞</option>
<%
Do While Not(Content.BOF Or Content.EOF)
'「SYSCT21：サイバートレード会計演習マスター」は同一環境にサイバートレードが存在する場合のみ表示
If (PackageMode = 1 And "" & Content.Fields("パッケージ区分") = "CA" And (UCase(Content.Fields("演習CD")) <> "SYSCT21" Or CT21variable = 1)) Or (PackageMode = 0 And "" & Content.Fields("パッケージ区分") <> "CA") Then
If UCase(Content.Fields("演習CD")) = GB_EnshuID Or UCase(Content.Fields("演習管理者ID")) = GB_EnshuID Then
If Content.Fields("演習管理者パスワード") <> "" Then
If UCase(Content.Fields("演習管理者パスワード")) = GB_EnshuPassword Then
Response.Write("<option value=""" & Content.Fields("演習CD") & """")
If UCase(EnshuCD) = UCase(Content.Fields("演習CD")) Then
Response.Write(" selected")
End If
Response.Write(">" & Content.Fields("演習名称") & "</option>" & vbCrLf)
End If
End If
End If
End If
Content.MoveNext
Loop
%>
</select>
<input type="button" value=" 選択 " onclick="SelectEnshu();" class="tx1416">
</TD>
</TR>
</TABLE>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</form>
</body>
<% = HtmlFooter %>
</html>
<SCRIPT LANGUAGE="JavaScript">
function SelectEnshu() {
if (form1.EnshuCD.value == "") {
alert("演習を選択してください ");
form1.EnshuCD.focus();
return false;
}
tblbtn("admenu_enshu_sentaku_bin.asp?EnshuCD=" + form1.EnshuCD.value);
return true;
}
</script>
<%
End Sub
%>