<% ' ' ' %> <% main() Sub main() Dim Query Dim Content Dim i Dim ErrMsg Dim GakuseiBango, Shimei, ShimeiRyakuMeisyo, Password, GakuseiGuorpCD, GroupPassword Dim SystemCD '数値文字変換チェック用 Dim NumChrCheck NumChrCheck = "" SystemCD = Request("SystemCD") GakuseiBango = Request("GakuseiBango") Shimei = Request("Shimei") NumChrCheck = NumChrCheck & Shimei ShimeiRyakuMeisyo = Request("ShimeiRyakuMeisyo") NumChrCheck = NumChrCheck & ShimeiRyakuMeisyo Password = Request("Password") GakuseiGuorpCD = Request("GakuseiGuorpCD") GroupPassword = Request("GroupPassword") '更新モードの戻り先 Dim RedirectURL RedirectURL = Request("RedirectURL") 'Response.Write(RedirectURL) 'Exit Sub '数値文字変換チェック If Not(NumChrReject(NumChrCheck)) Then Exit Sub End If '登録モードのみチェック If RedirectURL = "" Then Query = "exec SPMグループ取得 '" & SystemCD & "','" & UCase(GakuseiGuorpCD) & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then 'グループキーのチェック If UCase(Content.Fields("グループキー")) = UCase(GroupPassword) Then Query = "exec SPMユーザー取得 '" & SystemCD & "','" & UCase(GakuseiBango) & "'" Set Content = OpenQuery(Query) 'ユーザーIDが登録済みでないかどうかチェック If Not(Content.BOF Or Content.EOF) Then ErrMsg = "入力されたログインIDはすでに登録されています" End If Else ErrMsg = "グループキーが正しくありません" End If Else ErrMsg = "グループがありません" End If End If '更新モード If RedirectURL <> "" Then Query = "exec SPMユーザー更新 '" & SystemCD & "',2 ,'" & UCase(GakuseiBango) & "', '" & Shimei & "', '" & ShimeiRyakuMeisyo & "', '" & UCase(Password) & "', '" & GakuseiGuorpCD & "'" Set Content = OpenQuery(Query) Session(HomeAlias & "GakuseiShimei") = Shimei Response.Redirect(RedirectURL) Exit Sub '登録モード ElseIf ErrMsg = "" Then Query = "exec SPMユーザー更新 '" & SystemCD & "',1 ,'" & UCase(GakuseiBango) & "', '" & Shimei & "', '" & ShimeiRyakuMeisyo & "', '" & UCase(Password) & "', '" & GakuseiGuorpCD & "'" Set Content = OpenQuery(Query) Response.Redirect("default_main.asp?GakuseiBango=" & UCase(GakuseiBango)) Exit Sub End If Response.Write(SubmitHystoryBack("reguser.asp?SystemCD=" & SystemCD & "&GakuseiBango=" & GakuseiBango & "&Shimei=" & Shimei & "&ShimeiRyakuMeisyo=" & ShimeiRyakuMeisyo & "&Password=" & Password & "&GakuseiGuorpCD=" & GakuseiGuorpCD & "&GroupPassword=" & GroupPassword & "&ErrMsg=" & ErrMsg & "&RedirectURL=" & RedirectURL)) %> 戻る <% End Sub %>