<% ' %> <% main() Sub main() Dim EnshuName Dim UserID , Shimei , GroupCD, GroupPassword Dim RouteType Dim DataCnt Dim SiteiYMD SiteiYMD = Request("SiteiYMD") If SiteiYMD = "" Then SiteiYMD = Date() End If Dim Excel Excel = Request("Excel") Dim Query Dim Content If Not(SessionCheck()) Then Exit Sub End If UserID = Request("UserID") Shimei = Request("Shimei") GroupCD = Request("GroupCD") GroupPassword = Request("GroupPassword") RouteType = Request("RouteType") If GB_Admin = 1 Then EnshuCD = "" End If '演習名称ＧＥＴ 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 & "','" & GroupCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If Content.Fields("グループキー") = GroupPassword Then bShow = 1 End If If Request("from") = "view" Then bShow = 1 GroupPassword = Content.Fields("グループキー") End If End If End If %> <% = AppTitle %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "ユーザー管理", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_user_ichiran.asp?GroupCD=" & GroupCD & "')", "EXCELデータのインポート", "tblbtn( 'fm_user_excel.asp')", "", "", "", "", "", "")) Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);", "行の挿入", "SpreadInsertItem(document.vaSpread1);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", "")) Response.Write(HttpL4("ユーザー管理", "一括更新")) If Excel = "Excel" Then Response.Write(HttpL5("EXCELデータのインポートが完了しました。")) ElseIf GroupCD = "" Then Response.Write(HttpL5("全てのユーザーを表示しています。")) ElseIf GroupCD <> "" Then Response.Write(HttpL5("「" & ConvGroupMeisyo(GroupCD) & "」グループを表示しています。")) End If %> >
<% = HtmlFooter %> <% End Sub %>