<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：ユーザー一覧
' 作成日：2002/10/6
' 作成者：徳田
' 目的 ：ユーザーの一覧画面を表示する。
' 概要 ：
' <<表示>>
' ・ユーザー一覧画面
'
'################################################
'-->
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim EnshuName
Dim UserID , UserName , GroupCD
Dim RouteType
Dim DataCnt
Dim SiteiYMD
SiteiYMD = Request("SiteiYMD")
If SiteiYMD = "" Then
SiteiYMD = Date()
End If
Dim Query
Dim Content
UserID = Request("UserID")
UserName = Request("UserName")
GroupCD = Request("GroupCD")
RouteType = Request("RouteType")
'演習名称ＧＥＴ
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
EnshuName = Content.Fields("演習名称")
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" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)" method="GET" name="form1" action="fm_enshu_view_user_bin.asp" >
<input type="hidden" name="SendValue" value="">
<input type="hidden" name="Action" value="4">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(4))
If RouteType = "Sousa" Then
If GB_Admin = 1 Then
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "')", "演習コントロール", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "生徒選択会社", "", "", "", "", ""))
Else
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "')", "演習コントロール", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "生徒選択会社", "", "", "", "", ""))
End If
Else
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn('/" & HomeAlias & "/admin/enshu/fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "')", "生徒選択会社解除", "", "", "", "", "", "", ""))
End If
' Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
If RouteType = "Sousa" Then
Response.Write(HttpL3_2("生徒会社選択", "tblbtn('fm_enshu_user.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "戻る", "tblbtn('fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "');", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_2("生徒会社選択", "tblbtn('fm_enshu_user.asp?EnshuCD=" & EnshuCD & "')", "戻る", "tblbtn('fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "');", "", "", "", "", "", ""))
End If
Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("選択解除", "ResetCheck()", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4("生徒選択会社解除", ""))
Response.Write(HttpL5("生徒が会社を選択する前の状態に戻し、会社を再選択させることが出来ます。"))
%>
<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="top">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%">
<tr>
<td align="CENTER" valign="MIDDLE">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="16" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="1" HEIGHT="100%">
<TR>
<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
<TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
<TR>
<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="620">
<TABLE WIDTH="600" HEIGHT="20" BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<TD WIDTH="140" HEIGHT="20">ログインID</TD>
<TD HEIGHT="20">氏名</TD>
<TD WIDTH="220" HEIGHT="20">現在選択されている会社</TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD VALIGN="TOP">
<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:620px; height:100%; z-index:1; border: 1px none #000000; overflow: auto; cursor: hand;">
<TABLE ID="SyoukaiList" WIDTH="600" BORDER="1" CELLSPACING="0" CELLPADDING="3" BGCOLOR="#FFFFFF" CLASS="tx1416" STYLE="border-collapse: collapse" BORDERCOLOR="#000000">
<%
Dim ii, jj
ii = 0
Query = "exec SPM演習選択ユーザー一覧 '" & GB_SystemCD & "','" & GB_EnshuCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'" & Content.Fields("学生番号") & "')"">" & vbCrLf)
Response.Write("<TD WIDTH=""140"" HEIGHT=""20"">" & Content.Fields("学生番号") & "</TD>" & vbCrLf)
Response.Write("<TD HEIGHT=""20"" ALIGN=""LEFT"">" & Content.Fields("氏名") & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""220"" HEIGHT=""20"" ALIGN=""LEFT"">" & ConvKaisyaMeisyoDx(GB_EnshuCD, Content.Fields("選択会社CD")) & "</TD>" & vbCrLf)
ii = ii + 1
Response.Write("</TR>")
Content.MoveNext
Loop
DataCnt = ii
%>
</TABLE>
</DIV>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<input type="hidden" name="DataCnt" value=<%= DataCnt %> >
</form>
</body>
<% = HtmlFooter %>
</html>
<SCRIPT LANGUAGE="JavaScript">
var lsURL="#"
function syokaibtn(){
if(lsURL == "#")
{
alert("選択されていません");
}
else
{
tblbtn(lsURL);
}
}
//TRselect & URLset
function celsel(rw,selURL){
var trw;
trw=rw;
lsURL=selURL;
for (k=0; k<document.all['SyoukaiList'].rows.length; k++){
document.all['SyoukaiList'].rows[k].style.backgroundColor ="";
}//セル色クリア
document.all['SyoukaiList'].rows[rw].style.backgroundColor ="#ffcdde";//選択行色変更
}
function sakujyobtn()
{
var dcnt;
var flag;
dcnt=0;
if (form1.DataCnt.value == 1)
{
if (form1.SakujyoUserID.checked)
{
dcnt++;
form1.SendValue.value = form1.SendValue.value + form1.SakujyoUserID.value + ",";
}
}
else
{
for (k=0; k<form1.SakujyoUserID.length; k++)
{
if (form1.SakujyoUserID[k].checked)
{
dcnt++;
form1.SendValue.value = form1.SendValue.value + form1.SakujyoUserID[k].value + ",";
}
}
}
if (dcnt > 0)
{
flag = confirm("ユーザー削除処理を実行します。よろしいですか？");
if (flag)
{
SubmitReal(form1);
return true;
}
}
else
{
alert("対象ユーザーが指定されていません。\r\n削除チェックボックスにチェックを入れてください。");
return false;
}
}
function SetUserList()
{
tblbtn("fm_user_ichiran.asp?UserID=" + form1.UserID.value + "&UserName=" + form1.UserName.value + "&GroupCD=" + form1.GroupCD.value + "&SiteiYMD=" + form1.SiteiYMD.value);
return false;
}
function SetJyokenClear()
{
form1.UserID.value="";
form1.UserName.value="";
form1.GroupCD.selectedIndex=-1;
form1.SiteiYMD.value="";
return false;
}
function ResetCheck()
{
var flag;
flag = confirm("選択された生徒の選択会社を解除します \r\nよろしいですか？ ");
if (flag)
{
tblbtn( "/<% = HomeAlias %>/admin/enshu/fm_enshu_view_user_bin.asp?UserID=" + lsURL + "&RouteType=<% = RouteType %>");
return true;
}
else
{
return false;
}
}
</script>
<%
End Sub
%>