
<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：勘定情報更新処理
'	 作成日：2002/9/9
'	 作成者：徳田
'	 目的　：勘定情報の更新（追加・修正・削除）処理を行う。
'	 概要	：
'		<<表示>>
'	・無し
'
'	修正:
'################################################
'-->

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
%>