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