<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Action Dim TmpEnshuCD Dim TmpGroupCD Dim SiteiYMD Dim UserID, Shimei, ShimeiRyakuMeisyo, Password '学生番号 、ユーザー名、 パスワード Dim GroupCD, GroupPassword, GroupName, LastLoginYMD 'グループCD、グループ名、最新ログイン日 Dim DataCnt Dim UserIDs, SendValue '数値文字変換チェック用 Dim NumChrCheck NumChrCheck = "" Dim Query Dim Content Dim Ng , ErrMSG , rsts Dim ii Action = Request("Action") Dim Page Page = Request("Page") UserID = UCase(Request("UserID")) Shimei = Request("Shimei") NumChrCheck = NumChrCheck & Shimei TmpEnshuCD = Request("TmpEnshuCD") ShimeiRyakuMeisyo = Request("ShimeiRyakuMeisyo") NumChrCheck = NumChrCheck & ShimeiRyakuMeisyo Password = UCase(Request("Password")) GroupCD = Request("GroupCD") TmpGroupCD = Request("TmpGroupCD") '絞り込み状態を保持 GroupPassword = Request("GroupPassword") SiteiYMD = Request("SiteiYMD") LastLoginYMD = Request("LastLoginYMD") ErrMSG = Request("ErrMSG") SendValue= Request("SendValue") UserIDs = Split(SendValue,",") '数値文字変換チェック If Not(NumChrReject(NumChrCheck)) Then Exit Sub End If If Action = "4" Then For ii = 0 to UBound(UserIDs) If UserIDs(ii) <> "" Then Query = "exec SPMユーザー削除 '" & GB_SystemCD & "'," & "'" & UserIDs(ii) & "'" Set Content = OpenQuery(Query) End If Next Else Query = "exec SPMユーザー取得 '" & GB_SystemCD & "','" & UserID & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If Action = "1" Then ErrMSG = "このログインIDはすでに登録済みです。" rsts = False Else rsts = True End If Else If Action = "1" Then rsts = True Else ErrMSG = "対象データは存在しません。" rsts = False End If End If If rsts = False Then Ng = "fm_user.asp?action=" & Action & "&nr=r" & "&UserID=" & UserID & "&Shimei=" & Shimei & "&ShimeiRyakuMeisyo=" & ShimeiRyakuMeisyo Ng = Ng & "&Password=" & Password & "&GroupCD=" & GroupCD & "&TmpGroupCD=" & TmpGroupCD & "&GroupPassword=" & GroupPassword Ng = Ng & "&ErrMSG=" & ErrMSG ' Response.Redirect(Ng) Response.Write(SubmitHystoryBack(Ng)) Exit Sub End If Query = "exec SPMユーザー更新 '" & GB_SystemCD & "'," & Action Query = Query & ",'" & UserID & "'" Query = Query & ",'" & Shimei & "'" Query = Query & ",'" & ShimeiRyakuMeisyo & "'" Query = Query & ",'" & Password & "'" Query = Query & ",'" & GroupCD & "'" Set Content = OpenQuery(Query) End If If Action = "4" Then ' Response.Redirect("fm_user_ichiran.asp?LastLoginYMD=" & LastLoginYMD & "&UserID=" & UserID & "&Shimei=" & Shimei & "&TmpEnshuCD=" & TmpEnshuCD & "&Password=" & Password & "&GroupCD=" & GroupCD & "&TmpGroupCD=" & TmpGroupCD & "&GroupPassword=" & GroupPassword & "&from=view") Response.Write(SubmitHystoryBack("fm_user_ichiran.asp?LastLoginYMD=" & LastLoginYMD & "&UserID=" & UserID & "&Shimei=" & Shimei & "&TmpEnshuCD=" & TmpEnshuCD & "&Password=" & Password & "&GroupCD=" & GroupCD & "&TmpGroupCD=" & TmpGroupCD & "&GroupPassword=" & GroupPassword & "&from=view")) Else ' Response.Redirect("fm_user_view.asp?UserID=" & UserID & "&TmpEnshuCD=" & TmpEnshuCD & "&GroupPassword=" & GroupPassword & "&GroupCD=" & GroupCD & "&TmpGroupCD=" & TmpGroupCD & "&SiteiYMD=" & SiteiYMD & "&Page=" & Page) Response.Write(SubmitHystoryBack("fm_user_view.asp?UserID=" & UserID & "&TmpEnshuCD=" & TmpEnshuCD & "&GroupPassword=" & GroupPassword & "&GroupCD=" & GroupCD & "&TmpGroupCD=" & TmpGroupCD & "&SiteiYMD=" & SiteiYMD & "&Page=" & Page)) End If End Sub %>