changeregform.asp

asp开发 asp开发 asp开发 asp开发

<!-- #include file="auctionlib.asp" -->
<%
sUserName = Request.Form("UserName")
sPassword = Request.Form("Password")
Call DoPageHeader
Call OpenDBConn

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

	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>")
	
	
	If rs.eof Then
		Response.Write("<TR bgcolor=" & chr(34) & topcolor & chr(34) & "><TD COLSPAN=""2"">")
		Response.Write("<BIG>登录错误</BIG>")
		Response.Write("</TD></TR>")
		Response.Write("<TR bgcolor=" & chr(34) & linecolor & chr(34) & "><TD COLSPAN=""2""></TD></TR>")
		Response.Write("<TR><TD COLSPAN=""2"">")
		Response.Write("对不起! 因为您尚未注册或登入资讯错误<BR>")
		Response.Write("<A HREF=""register.asp"">按这里</A> 来注册<BR><CENTER><B>或</B></CENTER><BR>")
		Response.Write("<A HREF=""changereglogin.asp"">按这里</A> 回到上一页再试一次")
		Response.Write("</TD></TR>")
	Else
		Response.Write("<FORM METHOD=""POST"" ACTION=""changeregistration.asp"">")
		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>")
		
		Response.Write("<TR>")
		Response.Write("<TD><SMALL>电子邮件地址</SMALL></TD>")
		Response.Write("<TD>")
		Response.Write("<INPUT TYPE=""TEXT"" NAME=""Email""  SIZE=""40"" VALUE=""" & rs.Fields("Email") & """>")
		Response.Write("</TD>")
		Response.Write("</TR>")
		
		Response.Write("<TR>")
		Response.Write("<TD><SMALL>联络地址一</SMALL></TD>")
		Response.Write("<TD>")
		Response.Write("<INPUT TYPE=""TEXT"" NAME=""Address1""  SIZE=""40"" VALUE=""" & rs.Fields("Address1") & """>")
		Response.Write("</TD>")
		Response.Write("</TR>")
		
		Response.Write("<TR>")
		Response.Write("<TD><SMALL>联络地址二</SMALL></TD>")
		Response.Write("<TD>")
		Response.Write("<INPUT TYPE=""TEXT"" NAME=""Address2""  SIZE=""40"" VALUE=""" & rs.Fields("Address2") & """>")
		Response.Write("</TD>")
		Response.Write("</TR>")
		
		Response.Write("<TR>")
		Response.Write("<TD><SMALL>城市</SMALL></TD>")
		Response.Write("<TD>")
		Response.Write("<INPUT TYPE=""TEXT"" NAME=""City""  SIZE=""40"" VALUE=""" & rs.Fields("City") & """>")
		Response.Write("</TD>")
		Response.Write("</TR>")
		
		Response.Write("<TR>")
		Response.Write("<TD><SMALL>州</SMALL></TD>")
		Response.Write("<TD>")
		Response.Write("<INPUT TYPE=""TEXT"" NAME=""State""  SIZE=""2"" VALUE=""" & rs.Fields("State") & """>")
		Response.Write("</TD>")
		Response.Write("</TR>")
		
		Response.Write("<TR>")
		Response.Write("<TD><SMALL>邮政编号</SMALL></TD>")
		Response.Write("<TD>")
		Response.Write("<INPUT TYPE=""TEXT"" NAME=""Zip""  SIZE=""12"" VALUE=""" & rs.Fields("Zip") & """>")
		Response.Write("</TD>")
		Response.Write("</TR>")
		
		Response.Write("<TR>")
		Response.Write("<TD>")
		Response.Write("<INPUT TYPE=""HIDDEN"" NAME=""UserName"" VALUE=""" & sUserName & """>")
		Response.Write("<INPUT TYPE=""HIDDEN"" NAME=""Password"" VALUE=""" & sPassword & """>&nbsp;")
		Response.Write("</TD>")
		Response.Write("<TD>")
		Response.Write("<INPUT TYPE=""SUBMIT"" VALUE=""变更"">")
		Response.Write("</TD>")
		Response.Write("</TR>")
		Response.Write("</FORM>")

	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>")
	
rs.Close
Set rs = Nothing	
Call DoPageFooter
Call CloseDBConn
%>