changepasspost.asp

实验教学系统 很好用 有学生 老师 管理等模块 便于学校使用

<!-- #include file="auctionlib.asp" -->
<%
'*************************************************************************
'******* XcAuction Copyright 1999 XCENT    www.xcent.com **************
'*************************************************************************
UserName = Request.Form("UserName")
Password = Request.Form("Password")
ConfirmPassword = Request.Form("ConfirmPassword")
NewPassword = Request.Form("NewPassword")
ConfirmNewPassword = Request.Form("ConfirmNewPassword")



sString = ""
	If Len(UserName) = 0 Then
		sString = sString & "您需要输入 <B>用户名</B>.<BR>"
	End If
	
	If Len(Password) = 0 Then
		sString = sString & "您需要输入 <B>密码</B>.<BR>"
	End If

	If Len(ConfirmPassword) = 0 Then
		sString = sString & "您需要 <B>再输一次密码</B>.<BR>"
	End If
	
	If Len(NewPassword) = 0 Then
		sString = sString & "您需要输入 <B>您的新密码</B>.<BR>"
	End If
	
	If Len(ConfirmNewPassword) = 0 Then
		sString = sString & "您需要 <B>再输入一次新密码</B>.<BR>"
	End If

	If Len(Trim(sString)) > 0 Then
		Response.Cookies("XcClassErrors") = sString
		Response.Redirect "changepassword.asp"
	Else
		Call ComparePassword
	End If


Call DoPageFooter
Call CloseDBConn

Sub ComparePassword
	Call OpenDBConn
	Call DoPageHeader
	Response.Write("<FONT FACE=" & chr(34) & sFont & chr(34) & ">")
	If Password = ConfirmPassword Then
		If NewPassword = ConfirmNewPassword Then
			Call CheckUser
		Else
			Response.Write("<CENTER><SMALL>对不起!  您的 <B>新密码</B> 和 <B>再次输入的新密码</B> 不相同<BR>")
			Response.Write("请在浏览器中单击 ""<B>后退</B>"" 按钮再试一次</SMALL></CENTER>")
		End If
	Else
		Response.Write("<CENTER><SMALL>对不起! 您的 <B>密码</B> 和 <B>再输入一次密码</B> 不相同<BR>")
		Response.Write("请在浏览其中单击 ""<B>后退</B>"" 按钮再试一次</SMALL></CENTER>")
	End If
End Sub


Sub CheckUser
	
	sSQL = ""
	sSQL = sSQL & "SELECT COUNT(*) as Total FROM registration WHERE "
	sSQL = sSQL & "username = " & SQLStr(UserName) & " AND password = " & SQLStr(Password)	
		Set rs = GobjConnect.Execute(sSQL)
		
			If rs.Fields("Total") = 0 THEN
				Response.Write("<CENTER><SMALL>对不起! 您不是注册的会员<BR>")
				Response.Write("如果您尚未注册， <A HREF=""register.asp"">按这里</A> 来注册")
				Response.Write("</SMALL></CENTER>")
			Else
				changeSQL = ""
				changeSQL = changeSQL & "UPDATE registration "
				changeSQL = changeSQL & "SET password = " & SQLStr(NewPassword) & " "
				changeSQL = changeSQL & "WHERE username = " & SQLStr(UserName) & " AND password = " & SQLStr(password)
				GobjConnect.Execute(changeSQL)
					Response.Write("<CENTER></SMALL>您的密码已经成功的更新<BR>")
					Response.Write("<A HREF=""default.asp"">按这里</A>继续<BR></SMALL></CENTER>")
			End If
			
		rs.Close
		Set rs = Nothing
End Sub
%>
%>