<% ' %> <% main() Sub main() Dim EnshuName Dim TmpEnshuCD Dim TmpGroupCD Dim UserID, Shimei, GroupCD, GroupPassword Dim RouteType Dim DataCnt Dim RowCnt Dim SiteiYMD SiteiYMD = Request("SiteiYMD") If SiteiYMD = "" Then SiteiYMD = Date() End If Dim Page Page = Request("Page") If Page <> "" Then Page = ConvMoneyToInt(Page) Else Page = 0 End If Dim PageRow PageRow = 100 Dim TmpUserID TmpUserID = Request("TmpUserID") Dim Query Dim Content If Not(SessionCheck()) Then Exit Sub End If UserID = Request("UserID") Shimei = Request("Shimei") TmpEnshuCD = Request("TmpEnshuCD") TmpGroupCD = Request("TmpGroupCD") GroupPassword = Request("GroupPassword") RouteType = Request("RouteType") If GB_Admin = 1 Then EnshuCD = "" End If '演習名称GET Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuName = Content.Fields("演習名称") End If Dim bShow bShow = 1 If GB_Admin = 2 Then bShow = 0 Query = "exec SPMグループ取得 '" & GB_SystemCD & "','" & TmpGroupCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If UCase(Content.Fields("グループキー")) = UCase(GroupPassword) Then bShow = 1 End If '演習管理者が作成したグループならグループキー無しでOK If UCase(Content.Fields("作成者ID")) = UCase(GB_EnshuID) Then bShow = 1 End If If Request("from") = "view" Then bShow = 1 GroupPassword = Content.Fields("グループキー") End If End If End If %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "ユーザー管理", "", "", "", "", "", "", "", "", "")) If GB_Admin = 2 Then Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("追加", "tblbtn( 'fm_user.asp?Action=1&RouteType=" & RouteType & "&EnshuCD=" & EnshuCD & "&GroupCD=" & TmpGroupCD & "&TmpGroupCD=" & TmpGroupCD & "')", "一括更新", "tblbtn( 'fm_user_ikkatsu.asp?GroupCD=" & TmpGroupCD & "')", "", "", "", "", "", "")) End If Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()", "削除", "sakujyobtn()", "全てチェック", "SakujyoUserIDAll()", "", "")) Response.Write(HttpL4("ユーザー管理", "一覧表示")) If GB_Admin = 1 Then Response.Write(HttpL5("チェックボックスにチェックを入れ、削除ができます。")) ElseIf GB_Admin = 2 And bShow = 0 And GroupPassword = "" Then Response.Write(HttpL5("グループを選択し、グループキーを入力してください。")) ElseIf GB_Admin = 2 And bShow = 0 And GroupPassword <> "" Then Response.Write(HttpL5("正しいグループキーを入力してください。")) End If %> >
<% = HtmlFooter %> <% End Sub %>