<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：グループ照会
' 作成日：2002/8/22
' 作成者：徳田
' 目的 ：演習グループの入力画面を表示する。
' 概要 ：
' <<表示>>
' ・演習グループの入力画面
'
'################################################
'-->
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Action , NRflg , ErrMSG
Dim GroupCD, GroupName, Password, SakuseiID 'グループCD、グループ名称、パスワード、作成者ID
Dim Hihyoji
Dim Query
Dim Content
NRflg = Request("nr")
Action = Request("Syori")
GroupCD = Request("GroupCD")
SakuseiID = GB_GakuseiNo '新規作成時は管理者ID
Hihyoji = "0" '新規作成時は表示
If GB_Admin <> "2" Then
SakuseiID = "" '運用管理者はNULL
End If
ErrMSG = Request("ErrMSG")
If NRflg = "r" then
GroupName = Request("GroupName")
Password = Request("Password")
Else
Query = "exec SPMグループ取得 '" & GB_SystemCD & "','" & GroupCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
GroupName = Content.Fields("グループ名称")
Password = Content.Fields("グループキー")
SakuseiID = Content.Fields("作成者ID") '更新時はテーブル内容
Hihyoji = "" & Content.Fields("非表示フラグ")
End If
End If
Dim RouteType
RouteType = Request("RouteType")
%>
<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 = 2;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)" method="POST" action="fm_group_bin.asp" name="form1" autocomplete="off">
<input type="hidden" name="Action" value="<% = Action %>">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(4))
If RouteType = "Kantan" Then
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu1.asp')", "グループ管理", "", "", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "グループ管理", "", "", "", "", "", "", "", "", ""))
End If
Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_group_ichiran.asp?RouteType=" & RouteType & "')", "", "", "", "", "", "", "", ""))
If Action = "1" Then
Response.Write(HttpL4("グループ管理", "追加"))
Else
Response.Write(HttpL4("グループ管理", "修正"))
End If
Response.Write(HttpL5("<font color=""#FF0000"">" & ErrMsg & "</font>"))
%>
<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 valign="middle">
<table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%">
<tr>
<td align="CENTER" valign="MIDDLE">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="20" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="1" HEIGHT="1">
<TR>
<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
<TR>
<TD HEIGHT="90" VALIGN="middle">
<TABLE width="500" HEIGHT="90" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<tr>
<td width="100" height="30">グループコード</td>
<td height="30">
<% If Action = "1" Then %>
<input type="text" name="GroupCD" size="20" maxlength="13" value="<% = GroupCD %>" onkeyup="FormStrLeft(this,12,false,false);" onKeypress="FormStrLeft(this,12,false,false);" onBlur="FormStrTrim(this,true);" class="tbox4">
<% Else %>
<input type="hidden" name="GroupCD" value="<% = GroupCD %>">
<% = GroupCD %>
<% End If %>
</td>
</tr>
<tr>
<td height="30">グループ名称</td>
<td height="30">
<input type="text" name="GroupName" size="60" value="<% = GroupName %>" onBlur="FormStrLeftIME(this,40,true);" class="tbox4_ime">
</td>
</tr>
<tr>
<td height="30">グループキー</td>
<td height="30">
<input type="text" name="Password" size="20" maxlength="13" value="<% = Password %>" onkeyup="FormStrLeft(this,12,false,false);" onKeypress="FormStrLeft(this,12,false,false);" onBlur="FormStrTrim(this,true);" class="tbox4">
</td>
</tr>
<% If GB_Admin <> "2" Then %>
<tr>
<td height="30">作成者ID</td>
<td height="30">
<select size="1" name="SakuseiID" class="tbox4">
<%
Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Response.Write("<option value='" & Content.Fields("管理者コード") & "'")
If UCase(Content.Fields("管理者コード")) = UCase(SakuseiID) Or UCase(Content.Fields("管理者コード")) = UCase(GB_GakuseiNo) Then
Response.Write(" selected")
End If
Response.Write(">運用管理者</option>" & vbCrLf)
End If
Query = "exec SPM演習管理者一覧 '" & GB_SystemCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Response.Write("<option value='" & Content.Fields("演習管理者ID") & "'")
If UCase(Content.Fields("演習管理者ID")) = UCase(SakuseiID) Then
Response.Write(" selected")
End If
Response.Write(">" & Content.Fields("演習管理者ID") & "</option>" & vbCrLf)
Content.MoveNext
Loop
%>
</select>
</td>
</tr>
<% Else %>
<input type="hidden" name="SakuseiID" value="<% = SakuseiID %>">
<% End If %>
<tr>
<td height="30" class="tx1214">新規ID作成に表示</td>
<td height="30">
<INPUT type='radio' name='Hihyoji' value="0"<% If Hihyoji <> "1" Then Response.Write(" checked") End If %>>表示
<INPUT type='radio' name='Hihyoji' value="1"<% If Hihyoji = "1" Then Response.Write(" checked") End If %>>非表示
</td>
</tr>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</form>
</body>
<SCRIPT LANGUAGE="JavaScript">
function SubmitCheck()
{
<% If Action = "1" Then %>
if (form1.GroupCD.value == "")
{
alert("グループコードを入力して下さい");
return false;
}
<% End If %>
if (form1.GroupName.value == "")
{
alert("グループ名称を入力して下さい");
return false;
}
if (form1.Password.value == "")
{
alert("グループキーを入力して下さい");
return false;
}
SubmitReal(form1);
return true;
}
</script>
<% = HtmlFooter %>
</html>
<%
End Sub
%>