<% ' %> <% main() Sub main() Dim ErrMSG Dim Query Dim Content 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 ErrMSG = Request("ErrMSG") Dim RouteType RouteType = Request("RouteType") '動作モード Dim Kijun Kijun = Request("Kijun") Dim Dialog Dialog = Request("Dialog") '動作補正用フラグ Dim SonzaiCheck SonzaiCheck = 0 'メニュー配列作成及び動作補正(先に補正する必要がある) Dim MenuVal Dim MenuTxt ReDim MenuVal(0) ReDim MenuTxt(0) If Kijun = "Group" Then Query = "exec SPMグループ一覧 '" & GB_SystemCD & "',''" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ReDim PreServe MenuVal(UBound(MenuVal) + 1) '配列+1 ReDim PreServe MenuTxt(UBound(MenuVal)) MenuVal(UBound(MenuVal)) = "" & Content.Fields("学生グループCD") MenuTxt(UBound(MenuVal)) = "" & Content.Fields("グループ名称") If Content.Fields("学生グループCD") = EnshuCD Then SonzaiCheck = 1 End If Content.MoveNext Loop Else Query = "exec SPM演習一覧 '" & GB_SystemCD & "', 4" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) 'マスター演習非表示 If Content.Fields("マスター演習") <> "1" Then 'パッケージモードトグル If (PackageMode = 1 And "" & Content.Fields("パッケージ区分") = "CA") Or (PackageMode = 0 And "" & Content.Fields("パッケージ区分") <> "CA") Then '工業簿記演習は5以上で表示 If "" & Content.Fields("演習CD") <> "SYS00006" Or MajorVersion >= 5 Then ReDim PreServe MenuVal(UBound(MenuVal) + 1) '配列+1 ReDim PreServe MenuTxt(UBound(MenuVal)) MenuVal(UBound(MenuVal)) = "" & Content.Fields("演習CD") MenuTxt(UBound(MenuVal)) = "" & Content.Fields("演習名称") If Content.Fields("演習CD") = EnshuCD Then SonzaiCheck = 1 End If End If End If End If Content.MoveNext Loop End If 'マッチしなければ演習CDまたはグループCDを空にする(動作補正のため) If SonzaiCheck = 0 Then EnshuCD = "" End If %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Dim Title If Kijun = "Group" Then Title = "グループ参加演習" ElseIf Kijun = "User" Then Title = "演習参加ユーザー" Else Title = "演習参加グループ" End If 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 & "')", Title, "", "", "", "", "")) 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 & "')", Title, "", "", "", "", "")) End If Else If GB_Admin = 2 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", Title, "", "", "", "", "", "", "", "", "")) ElseIf Request("RouteType") = "Kantan" Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu1.asp')", Title, "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", Title, "", "", "", "", "", "", "", "", "")) End If End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) If EnshuCD <> "" Then Response.Write(HttpL3_1("保存", "UpdateCheck()", "", "", "", "", "", "", "", "")) End If Dim GroupSankaBtn Dim GroupSankaVal GroupSankaBtn = "グループ参加演習" GroupSankaVal = "tblbtn('/" & HomeAlias & "/admin/master/sanka/fm_enshusanka.asp?Kijun=Group&RouteType=" & RouteType & "&Dialog=2');" If RouteType = "Sousa" Then GroupSankaBtn = "" GroupSankaVal = "" End If If GB_Admin = 2 Then '演習管理者は演習参加グループ管理のみ Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) ElseIf Kijun = "Group" Then Response.Write(HttpL3_2("演習参加グループ", "tblbtn( '/" & HomeAlias & "/admin/master/sanka/fm_enshusanka.asp?RouteType=" & RouteType & "&Dialog=1')", "演習参加ユーザー", "tblbtn('/" & HomeAlias & "/admin/master/sanka/fm_enshusanka.asp?Kijun=User&RouteType=" & RouteType & "&Dialog=3');", "", "", "", "", "", "")) ElseIf Kijun = "User" Then Response.Write(HttpL3_2("演習参加グループ", "tblbtn( '/" & HomeAlias & "/admin/master/sanka/fm_enshusanka.asp?RouteType=" & RouteType & "&EnshuCD=" & EnshuCD & "&Dialog=1')", GroupSankaBtn, GroupSankaVal, "", "", "", "", "", "")) Else Response.Write(HttpL3_2(GroupSankaBtn, GroupSankaVal, "演習参加ユーザー", "tblbtn('/" & HomeAlias & "/admin/master/sanka/fm_enshusanka.asp?Kijun=User&RouteType=" & RouteType & "&EnshuCD=" & EnshuCD & "&Dialog=3');", "", "", "", "", "", "")) End If Response.Write(HttpL4(Title & "管理", "")) Response.Write(HttpL5(ErrMSG)) %>
<% = HtmlFooter %> <% End Sub %>