% ' %> <% 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("") %>
<% = HtmlFooter %> <% End Sub %>