<% ' %> <% main() Sub main() Dim ErrMsg ErrMsg = Request("ErrMsg") If Not(SessionCheck()) Then Exit Sub End If Dim Target Target = Request("Target") Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Dim UserID UserID = Request("UserID") Dim Query Dim Content Dim ii, jj ii = 0 Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & Target & "'" Set Content = OpenQuery(Query) Dim EnshuKubun If Not(Content.BOF Or Content.EOF) Then EnshuKubun = Content.Fields("演習区分") End If %> <% = HtmlHeader("") %>

<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If GB_Admin >= 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "データクリア", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "データクリア", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("戻る", "tblbtn( 'fm_enshu_clear.asp?Target=" & Target & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("データクリア", "")) Response.Write(HttpL5(ErrMSG)) %>

　

【データクリア】

　

　

<% If EnshuKubun = "P" Then %> <% End If %>

対象演習	<% If GB_Admin >= 1 Then %> <% If Target = "all" Then Response.Write("全演習") Else Response.Write(ConvEnshuMeisyo(Target)) End If %> <% End If %>

対象ユーザー

<% 'Response.Write(UserID) 'Exit Sub Query = "exec SPMユーザー取得 '" & GB_SystemCD & "','" & UserID & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Response.Write(Content.Fields("氏名")) Else Response.Write("全ユーザー") End If ' ii = 0 ' Query = "exec SPM演習_参加ユーザー一覧2 '" & GB_SystemCD & "','" & EnshuCD & "'" ' Query = "exec SPM演習_参加ユーザー一覧2 '" & GB_SystemCD & "','" & Target & "'" ' Set Content = OpenQuery(Query) ' Do While Not(Content.BOF Or Content.EOF) ' If UCase("" & Content.Fields("学生番号")) = UCase(UserID) Then ' Response.Write(Content.Fields("氏名")) ' ii = 1 ' End If ' Content.MoveNext ' Loop ' If ii = 0 Then ' Response.Write("全ユーザー") ' End If %>

<% = ErrMsg %>

　

<% = HtmlFooter %> <% End Sub %>