<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim EnshuName Dim UserID , UserName , GroupCD Dim RouteType Dim DataCnt Dim SiteiYMD SiteiYMD = Request("SiteiYMD") If SiteiYMD = "" Then SiteiYMD = Date() End If Dim Query Dim Content UserID = Request("UserID") UserName = Request("UserName") GroupCD = Request("GroupCD") RouteType = Request("RouteType") '演習名称ＧＥＴ Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuName = Content.Fields("演習名称") End If %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If RouteType = "Sousa" Then 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 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 Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn('/" & HomeAlias & "/admin/enshu/fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "')", "生徒選択会社解除", "", "", "", "", "", "", "")) End If ' Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) If RouteType = "Sousa" Then Response.Write(HttpL3_2("生徒会社選択", "tblbtn('fm_enshu_user.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "戻る", "tblbtn('fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "');", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("生徒会社選択", "tblbtn('fm_enshu_user.asp?EnshuCD=" & EnshuCD & "')", "戻る", "tblbtn('fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "');", "", "", "", "", "", "")) End If Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("選択解除", "ResetCheck()", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("生徒選択会社解除", "")) Response.Write(HttpL5("生徒が会社を選択する前の状態に戻し、会社を再選択させることが出来ます。")) %> >
<% = HtmlFooter %> <% End Sub %>