reguserdetail.asp

. 缓存处理技术

<!-- #include file="top_cnbbr.asp" -->
<!-- #include file="ChkSession.asp" -->
<!--#include file="js/BBR_PlaceJs.asp"-->
<%

   Sql="Select RegID,RegAdmin,RegValidated,RegUserName,Askforpass,Answerforpass,RegName,IDCard,RegState,RegCity,RegAddress1,RegZip,RegTel,Userqq from users where RegId="& LoginedUserID &" and RegAdmin='N'"
   Set Rs=Server.CreateObject("ADODB.RecordSet")
   Rs.Open Sql,conn,1,3
   if Rs.Eof or Rs.Bof then Call AlertInfo("对不起，你还没有登陆或者已经超时，请重新登陆！","Login.asp",1)

Dim RegStep
RegStep=CheckStr(Trim(Request.Form("RegStep")))
if Not isNum(RegStep) then
   RegStep=2
else
   RegStep=Clng(RegStep)
   if RegStep>3 or RegStep<2 then RegStep=2
end if
Dim RegAct
RegAct=CheckStr(Trim(Request.Form("RegAct")))
if Not isNum(RegAct) then
   RegAct=0
else
   RegAct=Clng(RegAct)
   if RegAct>2 or RegAct<1 then RegAct=0
end if

if RegStep=3 And RegAct=2 then
   Dim BBRAsk,BBRAnswer,BBRRealName,BBRIdCard,BBRProv,BBRCity,BBRAddress,BBRZip,BBRTel,BBRQQ
   BBRAsk=CheckStr(Trim(Request.Form("BBRAsk")))
   BBRAnswer=CheckStr(Trim(Request.Form("BBRAnswer")))
   if BBRAsk="" then BBRAnswer=""
   if BBRAsk<>"" and BBRAnswer="" then BBRAsk=""

   BBRRealName=CheckStr(Trim(Request.Form("BBRRealName")))
   if Len(BBRRealName)<2 then Call AlertInfo("你的真实姓名为必填项，长度不能小于2，请返回重新填写！","",0)
   if Len(BBRRealname)>20 then Call AlertInfo("你填写的真实姓名长度超出范围，请返回重新填写！","",0)

   BBRIdCard=CheckStr(Trim(Request.Form("BBRIdCard")))
   if BBRIdCard="" then Call AlertInfo("你的身份证号码为必填项，请返回重新填写！","",0)
   if Len(BBRIdCard)<10 or Len(BBRIdCard)>18 then Call AlertInfo("你填写的身份证号码长度超出范围，请返回重新填写！","",0)

   BBRProv=CheckStr(Trim(Request.Form("TPL_Prov")))
   BBRCity=CheckStr(Trim(Request.Form("TPL_city")))
   if BBRProv="" or BBRCity="" then Call AlertInfo("你选择的居住城市有误，请返回！","",0)
   if Len(BBRProv)>20 or Len(BBRCity)>20 then Call AlertInfo("你选择的居住城市有误，请返回！","",0)
   
   BBRAddress=CheckStr(Trim(Request.Form("BBRAddress")))
   if Len(BBRAddress)>50 then Call AlertInfo("你填写的交易联系地址超过了长度限制范围，请返回重新填写！","",0)

   BBRZip=CheckStr(Trim(Request.Form("BBRZip")))
   if BBRZip<>"" then
      if Len(BBRZip)>6 then Call AlertInfo("你填写的邮政编码有误，请返回重新填写！","",0)
      if not isNum(BBRZip) then Call AlertInfo("你填写的邮政编码不是数字，请返回重新填写！","",0)
   end if

   BBRTel=CheckStr(Trim(Request.Form("BBRTel")))
   if BBRTel<>"" then
      if Len(BBRTel)<7 or Len(BBRTel)>15 then Call AlertInfo("你填写的交易联系电话有误，请返回重新填写！","",0)
      Dim TempBBRTel
      TempBBRTel=Replace(BBRTel,"-","")
      if not isNum(TempBBRTel) then Call AlertInfo("你填写的交易联系电话必须是由数字和-组成，请返回重新填写！","",0)
   end if

   BBRQQ=CheckStr(Trim(Request.Form("BBRQQ")))
   if BBRQQ<>"" then
      if Len(BBRQQ)>15 then Call AlertInfo("你填写的联系QQ有误，请返回重新填写！","",0)
      if not isNum(BBRQQ) then Call AlertInfo("你填写的联系QQ不是数字，请返回重新填写！","",0)
   end if

      On Error Resume Next

      if Rs("RegValidated")="N" then
	 Rs("RegName")=BBRRealName
         Rs("IdCard")=BBRIDCard
      end if


      Rs("RegState")=BBRProv
      Rs("RegCity")=BBRCity
      Rs("RegAddress1")=BBRAddress
      Rs("RegZip")=BBRZip
      Rs("RegTel")=BBRTel
      Rs("UserQQ")=BBRQQ
      Rs.Update

      if Err then Call AlertInfo("操作出现异常错误，用户注册失败，请返回重新注册！","",0)
      if SysCount(1,1)=False then Call AlertInfo("操作出现异常错误，用户注册失败，请返回重新注册！","",0)

      Response.Clear
      Response.Redirect "RegSuccess.asp"
      Response.End

end if

Response.Write Cnbbr_Head

	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width=SYS_BodyCenterWidth
	SiteMenu_Left="RegUserDetail.asp|[menu]|用户详细资料更新"
	SiteMenu_Right=""
	Response.Write CnbbrSiteMenu(SiteMenu_Width,SiteMenu_Left,SiteMenu_Right)
%>


	<!--  用户注册导航条  -->
	 <table align="center" border="0" cellpadding="2" cellspacing="2" width="<%=SYS_BodyCenterWidth%>" class="td">
	   <tbody>
	   <tr>
	    <td width="55%"><img src="Images/Spacer.gif" border="0" alt=""></td>
		<%
		Dim TempRegStepStr
		if RegStep=1 then
		   TempRegStepStr="<td width=""15%"" class=""orangeSpace"">1、注册信息</td>"& Vbcrlf &_
		   	"<td width=""15%"" class=""graySpace"">2、填写资料</td>"& Vbcrlf &_
		   	"<td width=""15%"" class=""graySpace"">3、注册成功</td>"& Vbcrlf
		elseif RegStep=2 then
		   TempRegStepStr="<td width=""15%"" class=""graySpace"">1、注册信息</td>"& Vbcrlf &_
		   	"<td width=""15%"" class=""orangeSpace"">2、填写资料</td>"& Vbcrlf &_
		   	"<td width=""15%"" class=""graySpace"">3、注册成功</td>"& Vbcrlf
		elseif RegStep=3 then
		   TempRegStepStr="<td width=""15%"" class=""graySpace"">1、注册信息</td>"& Vbcrlf &_
		 	"<td width=""15%"" class=""graySpace"">2、填写资料</td>"& Vbcrlf &_
	   		"<td width=""15%"" class=""orangeSpace"">3、注册成功</td>"& Vbcrlf
		else
		   TempRegStepStr="<td width=""45%"" class=""graySpace"">新用户注册</td>"& Vbcrlf
		end if
		Response.Write TempRegStepStr
		%>
	   </tr>
	   </tbody>
  	 </table>
	 <table align="center" border="0" cellpadding="2" cellspacing="2" width="<%=SYS_BodyCenterWidth%>" class="td">
	   <tbody>
	   <tr>
	    <td>&nbsp;</td>
	    <td width="698">
		<div class=Div1px><img src="Skins/<%=Skins_Folder%>/ErrMsg.gif" border="0" alt="">
		<%
		if RegStep=1 then
		   Response.Write "你准备好了？第一步，请填写你的系统注册信息。" & Vbcrlf
		elseif RegStep=2 then
		   Response.Write "恭喜你，你的用户帐号已经建立！第二步，为了你的系统交易能够顺利进行，请继续完善你的个人详细资料。" & Vbcrlf
		elseif RegStep=3 then
		   Response.Write "感谢你的支持！你现在可以在系统进行购物或者销售宝贝了，祝你购物愉快！" & Vbcrlf
		else
		   Response.Write "出错了！" & Vbcrlf
		end if
		%>
		</div>
	   </td>
	   <td>&nbsp;</td>
	   </tr>
	   </tbody>
  	 </table>
	<!--  用户注册导航条结束  -->


	 <table align="center" border="0" cellpadding="2" cellspacing="2" width="<%=SYS_BodyCenterWidth%>" class="td">
	   <tbody>
	   <tr>
	    <td width="100%" align="center">

	 <table align="center" border="0" cellpadding="2" cellspacing="2" width="698" class="td">
	   <form name=Form1 method=post action="">
	   <tbody>
	   <tr>
	    <td colspan="3" width="100%" height="20" align="Left"><img src="images/Spacer.gif" border="0" alt=""></td>
	   </tr>
	   <tr>
	    <td colspan="3" width="100%" height="20" align="Left"><img src="Skins/<%=Skins_Folder%>/NavReg.gif" border="0" alt=""> <Span Style="Font-Size: 14px; Font-weight: bold;">更新用户详细资料</Span>（作为买家，以下各项均为非必填项; 作为商家，带<img src="Skins/<%=Skins_Folder%>/notSpace.gif" border="0" alt="">为必填项）</td>
	   </tr>
	   <tr>
	    <td colspan="3" width="100%" height="10" align="Left"><img src="images/Spacer.gif" border="0" alt=""></td>
	   </tr>
	<!--
	   <tr>
	    <td width="20%" height="38" align="Right">密码提示问题：</td>
	    <td width="25%"><input name=BBRAsk Type=text value="<%=Rs("AskForPass")%>" maxlength="50" title=""></td>
	    <td width="55%">如果你的密码不慎遗失，找回密码时，必须填写此问题答案！</td>
	   </tr>
	   <tr>
	    <td width="20%" height="38" align="Right">密码提示问题答案：</td>
	    <td width="25%"><input name=BBRAnswer Type=text value="<%=Rs("AnswerForPass")%>" maxlength="50" title=""></td>
	    <td width="55%">如果你的密码不慎遗失，找回密码时，必须填写密码提示问题答案！</td>
	   </tr>
	-->
	   <tr>
	    <td width="20%" height="38" align="Right">真 实 姓 名：</td>
	    <td width="25%"><input name=BBRRealName Type=text value="<%=Trim(Rs("Regname"))%>" maxlength="20" title="请填写你的真实姓名"><img src="Skins/<%=Skins_Folder%>/notSpace.gif" border="0" alt=""></td>
	    <td width="55%">请填写你的真实姓名，确保诚信交易，如需认证，此姓名必须此身份证号相符。（商家必填项）</td>
	   </tr>
	   <tr>
	    <td width="20%" height="38" align="Right">身份证号码：</td>
	    <td width="25%"><input name=BBRIDCard Type=text value="<%=Trim(Rs("IDCard"))%>" maxlength="18" title="请填写你的身份证号码"><img src="Skins/<%=Skins_Folder%>/notSpace.gif" border="0" alt=""></td>
	    <td width="55%">重新输入以上你所设置的个人用户密码，两次输入的密码必须保持一致。（卖家必填项）</td>
	   </tr>
	   <tr>
	    <td width="20%" height="38" align="Right">你所居住的城市：</td>
	    <td width="25%"><% Call BBR_PlaceJs(Trim(Rs("RegState")),Trim(Rs("RegCity"))) %><img src="Skins/<%=Skins_Folder%>/notSpace.gif" border="0" alt=""></td>
	    <td width="55%">请选择你所居住的城市。（卖家必填项）</td>
	   </tr>
	   <tr>
	    <td width="20%" height="38" align="Right">你的联系地址：</td>
	    <td width="25%"><input name=BBRAddress Type=text value="<%=Trim(Rs("RegAddress1"))%>" maxlength="250" title="请准确填写你的交易联系地址"></td>
	    <td width="55%">请准确填写你的交易联系地址，确认物品更快，更安全的送到你手中。</td>
	   </tr>
	   <tr>
	    <td width="20%" height="38" align="Right">邮 政 编 码：</td>
	    <td width="25%"><input name=BBRZip Type=text value="<%=Trim(Rs("RegZip"))%>" maxlength="6" title="请准确填写你的邮政编码"></td>
	    <td width="55%">请准确填写邮政编码，确认物品更快，更安全的送到你手中。</td>
	   </tr>
	   <tr>
	    <td width="20%" height="38" align="Right">你的联系电话：</td>
	    <td width="25%"><input name=BBRTel Type=text value="<%=Trim(Rs("RegTel"))%>" maxlength="14" title="请准确填写你的交易联系电话"></td>
	    <td width="55%">请准确填写你的交易联系电话，方便交易对方与你及时取得联系。</td>
	   </tr>
	   <tr>
	    <td width="20%" height="38" align="Right">你的联系 QQ：</td>
	    <td width="25%"><input name=BBRQQ Type=text value="<%=Trim(Rs("UserQQ"))%>" maxlength="15" title="推荐填写你的交易联系QQ"></td>
	    <td width="55%">推荐填写你的交易联系QQ号码，提供更多的联系方式给对方。</td>
	   </tr>
	   <tr>
	    <td colspan="3" width="100%" height="38" height="20" align="center"><input name=submitreg type=button value="更新详细资料" style="height: 28px;" onClick="document.Form1.action='RegUserDetail.asp'; document.Form1.target='_top'; document.Form1.submit();"> &nbsp; <input name=submitreg type=button value="跳过资料更新完成注册" style="height: 28px;" onClick="document.Form1.action='BBRhome.asp'; document.Form1.target='_top'; document.Form1.submit();"></td>
	   </tr>
	   <tr>
	    <td colspan="3" width="100%" height="20" align="Left"><img src="images/Spacer.gif" border="0" alt=""></td>
	   </tr>
	   <input name=regStep type=hidden value=<%=RegStep+1%>>
	   <input name=regAct type=hidden value=<%=RegStep%>>
	   </form>
	   </tbody>
  	 </table>

	    </td>
      	   </tr>
     	 </table>

<% 
Rs.Close
Set Rs=nothing

Response.Write Cnbbr_Bottom 
%>