<% ' ' %> <% main() Sub main() Dim Query Dim Content Dim ErrMsg If Not(SessionCheck()) Then Exit Sub End If Dim KenninView KenninView = Request("KenninView") Dim EnshuName If GB_EnshuCD <> "" Then 'EnshuCD = GB_EnshuCD End If If EnshuCD <> "" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuName = Content.Fields("演習名称") End If End If Dim SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD SakuseiKaisyaCD = Request("SakuseiKaisyaCD") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Dim SeitoCD SeitoCD = Request("SeitoCD") %> <% = HtmlHeader(";sj3tyobored;") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) 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 & "')", "仕入販売書類確認", "", "", "", "", "")) Else'If GB_Admin > 1 Then 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 & "')", "仕入販売書類確認", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) If KenninView <> "1" Then Response.Write(HttpL3_1("この書類の発信を許可する", "SubmitCheck();", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("この書類の発信許可を取り消す", "SubmitCheck();", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3_2("一覧に戻る", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol07.asp?EnshuCD=" & EnshuCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SeitoCD=" & SeitoCD & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("演習コントロール", "仕入販売書類の確認")) Response.Write(HttpL5("")) %>
<% = HtmlFooter %> <% End Sub %>