<% ' %> <% 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 Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Dim EnshuName Dim Query Dim Content Dim TmpEnshuKubun TmpEnshuKubun = ConvEnshuKubun(EnshuCD) Dim SortMode SortMode = Request("SortMode") If SortMode = "" Then SortMode = "2" End If %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習状況一覧", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If EnshuCD <> "" Then Response.Write(HttpL3_1("再表示", "tblbtn('fm_jyokyo_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "')", "印刷", "PrintoutRealInline('" & Replace(Request.ServerVariables("URL"), ".asp", "_print.asp") & "?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "');", " CSV出力 ", "CSVOutput()", "", "", "", "")) Else Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) End If If TmpEnshuKubun = "P" Then If HyojiFlg = "1" Then Response.Write(HttpL3_2("マスター会社を非表示", "tblbtn('fm_jyokyo_ichiran.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("マスター会社を表示", "tblbtn('fm_jyokyo_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=1')", "", "", "", "", "", "", "", "")) End If Else Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4("演習状況一覧", "")) Response.Write(HttpL5("")) %>
<% = HtmlFooter %> <% End Sub %>