<!-- #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") '演習名称GET 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 %>