changeregistration.asp

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

<!-- #include file="auctionlib.asp" -->
<%
sUserName = Request.Form("UserName")
sPassword = Request.Form("Password")
sEmail    = Request.Form("Email")
sAddress1 = Request.Form("Address1")
sAddress2 = Request.Form("Address2")
sCity     = Request.Form("City")
sState    = Request.Form("State")
sZip      = Request.Form("Zip")



Call OpenDBConn

sSQL = ""
sSQL = sSQL & " SELECT * FROM Registration WHERE username = " & SQLStr(sUserName)
sSQL = sSQL & " AND password = " & SQLStr(sPassword)
Set rs = GobjConnect.Execute(sSQL)


If rs.eof Then
	Response.Redirect "changereglogin.asp"
Else
	Call DoPageHeader
	
	Response.Write("<FONT FACE =" & chr(34) & sFont & chr(34) & ">")
	Response.Write("<P><CENTER><BIG><BIG>变更会员注册资料</BIG></BIG></CENTER><P>")
	Response.Write("<CENTER>")
	Response.Write("<TABLE WIDTH=""550"" BORDER=""0"" CELLSPACING=""0"" CELLPADDING=""3"">") 
	Response.Write("<TR bgcolor=" & chr(34) & linecolor & chr(34) & "><TD COLSPAN=""2""></TD></TR>")
	Response.Write("<TR bgcolor=" & chr(34) & topcolor & chr(34) & "><TD COLSPAN=""2"">")
	Response.Write("<BIG>" & rs.Fields("Name") & "会员的注册资料</BIG>")
	Response.Write("</TD></TR>")
	Response.Write("<TR bgcolor=" & chr(34) & linecolor & chr(34) & "><TD COLSPAN=""2""></TD></TR>")
		
	If Len(Trim(sEmail)) = 0 Then
		sString = sString & "栏位 ""电子邮件地址"" 错误<BR>"
	End If

	If Len(Trim(sAddress1)) = 0 Then
		sString = sString & "栏位 ""联络地址一"" 错误<BR>"
	End If
	
	If Len(Trim(sCity)) = 0 Then
		sString = sString & "栏位 ""城市"" 错误<BR>"
	End If
	
	If sState = "other" Then
		sString = sString & "栏位 ""省"" 错误<BR>"
	End If
	
	If Len(Trim(sZip)) = 0 Then
		sString = sString & "栏位 ""邮政编码"" 错误<BR>"
	End If
	
	If sString <> "" Then
		Response.Write("<TR><TD COLSPAN=""2""><FONT COLOR=""RED""><SMALL><B>" & sString & "</B></FONT><P>")
		Response.Write("请在浏览器中单击 ""<B>后退</B>"" 按钮再试一次</SMALL></TD></TR>")
	Else	
		ChRegSQL = ""
		ChRegSQL = ChRegSQL & " UPDATE Registration SET "
		ChRegSQL = ChRegSQL & " Email     = " & SQLStr(sEmail)    & ", "
		ChRegSQL = ChRegSQL & " Address1  = " & SQLStr(sAddress1) & ", "
		ChRegSQL = ChRegSQL & " Address2  = " & SQLStr(sAddress2) & ", "
		ChRegSQL = ChRegSQL & " City      = " & SQLStr(sCity)     & ", "
		ChRegSQL = ChRegSQL & " State     = " & SQLStr(sState)    & ", "
		ChRegSQL = ChRegSQL & " Zip       = " & SQLStr(sZip)      & " "
		ChRegSQL = ChRegSQL & " WHERE UserName = " & SQLStr(sUserName) & " " 
		ChRegSQL = ChRegSQL & " AND Password = "   & SQLStr(sPassWord) & " " 
		GobjConnect.Execute ChRegSQL
		Response.Write("<TR><TD COLSPAN=""2"">")
		Response.Write("您的会员注册资料已经成功的更新<P>")
		Response.Write("<A HREF=""default.asp"">按这里</A> 回到拍卖网首页<P>")
		Response.Write("</TD></TR>")
	End If
	
	
	Response.Write("<TR bgcolor=" & chr(34) & linecolor & chr(34) & "><TD COLSPAN=""2""></TD></TR>")
	Response.Write("<TR bgcolor=" & chr(34) & topcolor & chr(34) & "><TD COLSPAN=""2""><CENTER><SMALL>")
	Call AuctionNavigation
	Response.Write("</SMALL></CENTER></TD></TR>")
	Response.Write("<TR bgcolor=" & chr(34) & linecolor & chr(34) & "><TD COLSPAN=""2""></TD></TR>")
	Response.Write("</TABLE>")
	
End If



DoPageFooter
CloseDBConn


%>