<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim GroupCD, GroupName, Password, SakuseiID 'グループCD、グループ名称、パスワード、作成者ID Dim Hihyoji Dim UserCnt Dim Query Dim Content Dim Amend Amend = Request("amend") GroupCD = Request("GroupCD") Query = "exec SPMグループ取得 '" & GB_SystemCD & "','" & GroupCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ' GroupCD = Content.Fields("学生グループCD") GroupName = Content.Fields("グループ名称") Password = Content.Fields("グループキー") SakuseiID = Content.Fields("作成者ID") Hihyoji = "" & Content.Fields("非表示フラグ") End If 'ユーザー存在チェック Query = "exec SPMグループ_所属ユーザー一覧 '" & GB_SystemCD & "','" & GroupCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then UserCnt = 1 Else UserCnt = 0 End If Dim RouteType RouteType = Request("RouteType") %> <% = HtmlHeader("") %>

<% 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("修正", "tblbtn( 'fm_group.asp?RouteType=" & RouteType & "&syori=2&nr=n&GroupCD=" & GroupCD & "');", "削除", "DeleteCheck()", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_group_ichiran.asp?RouteType=" & RouteType & "&GroupCD=" & GroupCD & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("グループ管理", "照会")) %>

<% If GB_Admin <> "2" Then %> <% End If %>

グループコード	<% = GroupCD %>
グループ名称	<% = GroupName %>
グループキー	<% = Password %>
作成者ID	<% = SakuseiID %>
新規ID作成に表示	<% If Hihyoji = "1" Then %>非<% End If %>表示

　

このグループが参加している演習

　

このグループに所属しているユーザー

<% Dim ii, jj ii = 0 Query = "exec SPMグループ_参加可能演習一覧 '" & GB_SystemCD & "','" & GroupCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Do While Not(Content.BOF Or Content.EOF) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") Content.MoveNext Loop Else Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") End If %>

	" & HardWrap(Content.Fields("演習名称")) & "
	該当演習ありません

<% ii = 0 Query = "exec SPMグループ_所属ユーザー一覧 '" & GB_SystemCD & "','" & GroupCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Do While Not(Content.BOF Or Content.EOF) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") Content.MoveNext Loop Else Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") End If %>

	" & Content.Fields("氏名") & "
	該当ユーザーありません

<% = HtmlFooter %> <% End Sub %>