chlogininfo.asp

这是ASP使用的经典例子,非常适合于学习使用

<!-- #include file="..\auctionlib.asp" -->
<!-- #include file="admconfig.asp" -->
<%
sOldUserName = Request.Form("OldUser")
sOldPassword = Request.Form("OldPass")
sNewUserName = Request.Form("NewUser")
sNewPassword = Request.Form("NewPass")
sConfirmPass = Request.Form("ConfirmPass")





If IsLoggedOn Then
	Call DoPageHeader
	Call OpenDBConn
		
		Response.Write("<CENTER>This feature disabled for DEMO</CENTER>")
		
		'If MatchPasswords Then
		'	CheckLoginInfo
		'Else
		'	Response.Write("<FONT FACE =" & chr(34) & sFont & chr(34) & ">")
		'	Response.Write("<CENTER>Sorry,  but <B>New Password</B> does not match with <B>Confirm New Password</B>.<BR>")
		'	Response.Write("Use the <B>Back</B> button on your browser to try again.</CENTER>")
		'	Response.Write("</FONT>")
		'End If
	Call DoPageFooter
	Call CloseDBConn
Else
	Response.Redirect "adminlogin.asp"
End If
		

Function MatchPasswords
	If sNewPassword = sConfirmPass Then
		MatchPasswords = True
	Else
		MatchPasswords = False
	End If
End Function

Sub CheckLoginInfo

	Response.Write("<FONT FACE =" & chr(34) & sFont & chr(34) & ">")
		sSQL = ""
		sSQL = sSQL & " SELECT COUNT(*) AS Total FROM Registration WHERE "
		sSQL = sSQL & " username = " & SQLStr(sOldUserName)
		sSQL = sSQL & " AND password = " & SQLStr(sOldPassword)
		sSQL = sSQL & " AND admin = true " 
		'Response.Write sSQL
		Set rs = GobjConnect.Execute(sSQL)
		
		If rs.Fields("Total") > 0 Then
			Call CheckUserName
		Else
			Response.Write ("<CENTER>There is something wrong with your current User Name/Password.</CENTER>")
		End If
	
	rs.Close
	Set rs = Nothing
	
End Sub

Sub CheckUserName

	crSQL = ""
	crSQL = crSQL & "SELECT COUNT(*) as Total FROM registration WHERE username = " & SQLStr(sNewUserName)
	Set CountRS = GobjConnect.Execute(crSQL)  
		
		If CountRS.Fields("Total") > 0 Then
			Response.Write("<CENTER>The User Name you chose," & chr(34) & "<B>"  & sUserName & "</B>" & chr(34) & ", has already been taken.<BR>")
			Response.Write("Please use the ""<B>BACK</B>"" button on your browser to try again.</CENTER>")
		Else
			
			regSQL = ""
			regSQL = regSQL & " UPDATE Registration SET "
			regSQL = regSQL & " username = " & SQLStr(sNewUserName)
			regSQL = regSQL & " , password = " & SQLStr(sNewPassword)
			regSQL = regSQL & " , Validated = true "
			regSQL = regSQL & " WHERE admin = true "
			regSQL = regSQL & " AND username = " & SQLStr(sOldUserName)
			regSQL = regSQL & " AND password = " & SQLStr(sOldPassword)
			GobjConnect.Execute(regSQL)
			
			Response.Write("<CENTER>Username and Password successfully Updated</CENTER>")
		End If

End Sub


%>