<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If '会社セッション初期化（演習状況記帳チェック後の対処） KaisyaCD = "" GB_KaisyaCD = "" KaisyaMeisyo = "" GB_KaisyaMeisyo = "" KaisyaRyakuMeisyo = "" GB_KaisyaRyakuMeisyo = "" Session(HomeAlias & "KaisyaCD") = "" Session(HomeAlias & "Gyosyu") = "" Session(HomeAlias & "GyosyuMeisyo") = "" Session(HomeAlias & "KaisyaMeisyo") = "" Session(HomeAlias & "KaisyaRyakuMeisyo") = "" Session(HomeAlias & "JisyaFlag") = "" Session(HomeAlias & "ShijyoCD") = "" '絞り込み用の演習管理者IDを再取得(書類一覧後の対処)（221201小野美） If GB_Admin = "2" And EnshuCD <> "" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Session(HomeAlias & "GakuseiNo") = "" & Content.Fields("演習管理者ID") GB_GakuseiNo = Session(HomeAlias & "GakuseiNo") GakuseiNo = GB_GakuseiNo End If End If 'Response.Write("GB_Admin = " & GB_Admin & vbCrLf) 'Response.Write("GB_GakuseiNo = " & GB_GakuseiNo & vbCrLf) 'Exit Sub Dim RouteType RouteType = Request("RouteType") Dim GroupCD GroupCD = Request("GroupCD") Dim Query Dim Content 'グループCD=nullのゴミデータ削除 Query = "exec SPMグループ更新 '" & GB_SystemCD & "', 4" Query = Query & ",''" Query = Query & ",''" Query = Query & ",''" Query = Query & ",''" Query = Query & ",''" 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) %> <% = HtmlHeader("") %>

<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If Request("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("照会", "syokaibtn(0)", " ユーザー管理 ", "syokaibtn(1)", "", "", "", "", "", "")) Response.Write(HttpL3_2("追加", "tblbtn( 'fm_group.asp?RouteType=" & RouteType & "&syori=1')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("グループ管理", "一覧表示")) %>

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

グループコード

グループ名称

グループキー

作成者ID

表示

<% Dim ii, jj, iiDef ii = 0 iiDef = -1 Query = "exec SPMグループ一覧 '" & GB_SystemCD & "',''" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) '演習管理者の場合は演習管理者が作成したグループのみ表示 'Response.Write("GB_Admin = " & GB_Admin & vbCrLf) 'Response.Write("GB_GakuseiNo = " & GB_GakuseiNo & vbCrLf) 'Exit Sub If GB_Admin <> "2" Or (GB_Admin = "2" And Content.Fields("作成者ID") = GB_GakuseiNo) Then If GroupCD = Content.Fields("学生グループCD") Then iiDef = ii End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If GB_Admin <> "2" Then Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") End If Content.MoveNext Loop For jj = ii To 35 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If GB_Admin <> "2" Then Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write("") Next %>

") Response.Write("	" & Content.Fields("学生グループCD") & "	" & Content.Fields("グループ名称") & "	" & Content.Fields("グループキー") & "	" & Content.Fields("作成者ID") & "	") If "" & Content.Fields("非表示フラグ") = "1" Then Response.Write("×") End If Response.Write("

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