<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim EnshuCD Dim EnshuName EnshuCD = Request("EnshuCD") 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 CopyMoto CopyMoto = Request("CopyMoto") Dim TmpUserID TmpUserID = Request("UserID") 'ユーザーID・演習履歴配列作成 Dim UserID Dim UserMei Dim Rireki Dim SentakuCD ReDim UserID(0) ReDim UserMei(0) ReDim Rireki(0) ReDim SentakuCD(0) Query = "exec SPMユーザー一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '%', '%', '%', '" & Date() & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ReDim PreServe UserID(UBound(UserID) + 1) '配列+1 ReDim PreServe UserMei(UBound(UserID)) ReDim PreServe Rireki(UBound(UserID)) ReDim PreServe SentakuCD(UBound(UserID)) UserID(UBound(UserID)) = "" & Content.Fields("学生番号") UserMei(UBound(UserID)) = "" & Content.Fields("氏名") Rireki(UBound(UserID)) = "" & Content.Fields("最終参加日時") SentakuCD(UBound(UserID)) = "" & Content.Fields("会社名称") Content.MoveNext Loop Dim TmpCnt %> <% = HtmlHeader("") %>
<% 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 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?En6shuCD=" & EnshuCD & "')", "演習データコピー", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1(" 演習データをコピーする ", "syokaibtn()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("戻る", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("演習コントロール", "演習データコピー")) Response.Write(HttpL5("演習データをユーザー単位でコピーします")) %>
<% = HtmlFooter %> <% End Sub %>