<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim EnshuCD EnshuCD = Request("EnshuCD") 'サイバートレード存在チェック(電商くんは常にサイバー会計連動のためecdb存在チェックは不要) Dim CT21db Dim CT21variable CT21variable = 1 On Error Resume Next Err.Clear() Set CT21db = Server.CreateObject("ADODB.Connection") CT21db.ConnectionTimeout = 60 CT21db.CommandTimeout = 60 CT21db.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sfcuser;Password=sfc-5963;Initial Catalog=ct21sqldb;Data Source=" & SQLServer If Err.Description <> "" Then CT21variable = 0 End If On Error Goto 0 %> <% = AppTitle %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If Request("RouteType") = "Kantan" Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu1.asp')", "演習管理", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("演習設定", "syokaibtn()", "演習操作", "syokaibtn('Control')", "演習会社ログイン", "syokaibtn('AutoLogin')", "", "", "", "")) Response.Write(HttpL3_2("追加", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu1.asp?RouteType=" & RouteType &"')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("演習管理", "一覧表示")) 'PackageMode = 1 %>
<% = HtmlFooter %> <% End Sub %>