<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim TmpEnshuCD Dim TmpGroupCD Dim SiteiYMD Dim GroupPassword Dim EnshuCD, EnshuName '演習CD、 演習名称 Dim UserID, Shimei, ShimeiRyakuMeisyo , Password '学生番号 、ユーザー名、 パスワード Dim GroupCD, GroupName, LastLoginYMD 'グループCD、グループ名、最新ログイン日 Dim DataCnt Dim RouteType RouteType = Request("RouteType") SiteiYMD = Request("SiteiYMD") UserID = Request("UserID") Shimei = Request("Shimei") TmpEnshuCD = Request("TmpEnshuCD") GroupCD = Request("GroupCD") TmpGroupCD = Request("TmpGroupCD") '絞り込み状態を保持する GroupPassword = Request("GroupPassword") RouteType = Request("RouteType") Dim Page Page = Request("Page") Dim TmpUserID TmpUserID = Request("TmpUserID") Query = "exec SPMユーザー取得 '" & GB_SystemCD & "','" & UserID & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Shimei = Content.Fields("氏名") ShimeiRyakuMeisyo = Content.Fields("氏名略名称") GroupCD = Content.Fields("学生グループCD") LastLoginYMD = Content.Fields("最新ログイン日") Password = Content.Fields("パスワード") GroupName = Content.Fields("グループ名称") End If 'ユーザーデータ存在チェック ' Query = "exec SPMユーザーデータチェック '" & UserID & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then DataCnt = 1 Else DataCnt = 0 End If %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "ユーザー管理", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("修正", "UpdateCall()", "削除", "DeleteCheck()", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_user_ichiran.asp?&RouteType=" & RouteType & "&TmpEnshuCD=" & TmpEnshuCD & "&GroupPassword=" & GroupPassword & "&TmpGroupCD=" & TmpGroupCD & "&SiteiYMD=" & SiteiYMD & "&Page=" & Page & "&TmpUserID=" & UserID & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("ユーザー管理", "照会")) %> <% = HtmlFooter %> <% End Sub %>