<% ' %> <% main() Sub main() Dim ErrMSG Dim Query Dim Content If Not(SessionCheck()) Then Exit Sub End If ErrMSG = Request("ErrMSG") Dim RouteType RouteType = Request("RouteType") '動作モード Dim Kijun Kijun = Request("Kijun") '動作補正用フラグ 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 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 Content.MoveNext Loop End If 'マッチしなければ演習CDまたはグループCDを空にする(動作補正のため) If SonzaiCheck = 0 Then EnshuCD = "" End If Dim AkaFlg AkaFlg = 0 %> <% = 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("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("修正", "tblbtn('fm_enshusanka.asp?Kijun=" & Kijun & "&EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(Title & "管理", "")) Response.Write(HttpL5(ErrMSG)) %>
<% = HtmlFooter %> <% End Sub %>