<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim TmpEnshuCD Dim TmpGroupCD Dim GroupPassword Dim SiteiYMD Dim NRflg, ErrMSG , Action Dim UserID, Shimei, ShimeiRyakuMeisyo, Password '学生番号 、ユーザー名、 パスワード Dim GroupCD, GroupName , LastLoginYMD 'グループCD、グループ名、最新ログイン日 Dim DataCnt Dim Query Dim Content Dim RouteType RouteType = Request("RouteType") Dim Page Page = Request("Page") UserID = Request("UserID") TmpEnshuCD = Request("TmpEnshuCD") GroupPassword = Request("GroupPassword") SiteiYMD = Request("SiteiYMD") NRflg = Request("nr") Action = Request("Action") UserID = Request("UserID") Shimei = Request("Shimei") Password = Request("Password") GroupCD = Request("GroupCD") TmpGroupCD = Request("TmpGroupCD") '絞り込み状態を保持 LastLoginYMD = Request("LastLoginYMD") ErrMSG = Request("ErrMSG") If NRflg = "r" then UserID = Request("UserID") Shimei = Request("Shimei") ShimeiRyakuMeisyo = Request("ShimeiRyakuMeisyo") Password = Request("Password") GroupCD = Request("GroupCD") LastLoginYMD = Request("LastLoginYMD") ErrMSG = Request("ErrMSG") Else 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("パスワード") 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("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_user_ichiran.asp?&RouteType=" & RouteType & "&TmpEnshuCD=" & TmpEnshuCD & "&GroupPassword=" & GroupPassword & "&GroupCD=" & GroupCD & "&TmpGroupCD=" & TmpGroupCD & "&SiteiYMD=" & SiteiYMD & "')", "", "", "", "", "", "", "", "")) If Action = "1" Then Response.Write(HttpL4("ユーザー管理", "追加")) Else Response.Write(HttpL4("ユーザー管理", "修正")) End If Response.Write(HttpL5(ErrMSG)) %>
<% = HtmlFooter %> <% End Sub %>