<% ' %> <% 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") %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Dim Title If Kijun = "Group" Then Title = "グループ参加演習" Else Title = "演習参加グループ" End If If GB_Admin = 2 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/sj4web/admin/admenu_w.asp')", Title, "", "", "", "", "", "", "", "", "")) ElseIf Request("RouteType") = "Kantan" Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/sj4web/admin/admenu1.asp')", Title, "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/sj4web/admin/admenu_w.asp')", Title, "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) If EnshuCD <> "" Then Response.Write(HttpL3_1("保存", "UpdateCheck()", "", "", "", "", "", "", "", "")) End If If GB_Admin = 2 Then '演習管理者 Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) ElseIf Kijun = "Group" Then Response.Write(HttpL3_2("演習を基準にして表示", "tblbtn( '/sj4web/admin/master/group/fm_groupsanka.asp?RouteType=" & RouteType & "')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("グループを基準にして表示", "tblbtn( '/sj4web/admin/master/group/fm_groupsanka.asp?Kijun=Group&RouteType=" & RouteType & "')", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4(Title & "管理", "")) Response.Write(HttpL5(ErrMSG)) %>
<% = HtmlFooter %> <% End Sub %>