getpass.asp

. 缓存处理技术

<!-- #include file="top_cnbbr.asp" -->
<!-- #include file="Inc/md5.asp" -->
<%
Dim FindPassStep
FindPassStep=CheckStr(Trim(Request.Form("FindPassStep")))
if Not isNum(FindPassStep) then
   FindPassStep=1
else
   FindPassStep=Clng(FindPassStep)
   if FindPassStep>2 or FindPassStep<1 then FindPassStep=1
end if
Dim FindPassAct
FindPassAct=CheckStr(Trim(Request.Form("FindPassAct")))
if Not isNum(FindPassAct) then
   FindPassAct=0
else
   FindPassAct=Clng(FindPassAct)
   if FindPassAct>2 or FindPassAct<1 then FindPassAct=0
end if
if FindPassStep=2 And FindPassAct=1 then
   Dim BBRName,BBREmail
   BBRName=CheckStr(Trim(Request.Form("BBRName")))
   BBREmail=CheckStr(Trim(Request.Form("BBREmail")))
   if BBRName="" then Call AlertInfo("对不起，请填写你想要注册的用户名！","",0)
   if Len(BBRName)<5 or Len(BBRName)>20 then Call AlertInfo("对不起，你填写的用户名超出长度限制范围！","",0)
   if BBREmail="" then Call AlertInfo("对不起，请填写你的个人电子邮箱地址！","",0)
   if Len(BBREmail)<7 or Len(BBREmail)>48 then Call AlertInfo("对不起，你填写的个人电子邮箱地址超出长度限制范围！","",0)

    Dim RndPass,RndTempPass
    Randomize
    RndPass=Cstr(Int((1000000 - 100000 + 1) * Rnd + 100000))
    RndTempPass=RndPass
    RndPass=Md5(RndPass,cBBRMd5Byte)

        On Error Resume Next
	Dim RsNewUserID
	Sql="Select RegID,RegUserName,RegPassWord,RegEmail,RndPass from users where RegUserName='"& BBRName &"' and RegEmail='"& BBREMail &"'"
	Set RsNewUserID=Server.CreateObject("ADODB.RecordSet")
	RsNewUserID.Open Sql,conn,1,3
	if RsNewUserID.Eof then
	  RsNewUserID.Close
	  Set RsNewUserID=nothing
	  Call AlertInfo("出错了，没有找到匹配的用户信息，请返回重新填写！","",0)
	else



	   RsNewUserID("RegPassWord")=RndPass
	   RsNewUserID.Update
	   RsNewUserID.Close
	   Set RsNewUserID=nothing

	   if Err.Number<>0 then
	      Response.Write Err.Description
              Call AlertInfo("出错了，请返回检查你所输入的信息是否正确！","",0)
           else
	     if Comp_Check("JMAIL.SMTPMail") then
	       Dim MailTo,MailTopic,MailBody
	       MailTo=BBREmail
	       MailTopic=SYS_WEBNAME &"用户密码找回邮件，请查收！"
	       MailBody="你好，"& BBRName &"<BR><BR>"&_
	      	SYS_WEBNAME &"全体工作人员，欢迎你再次回来，以下是你在系统内注册的用户信息：<BR><BR>"&_
		"用 户 名："& BBRName &"<BR>"&_
		"用户密码："& RndTempPass &"<BR>"&_
		"操作时间："& Now() &_
		"<BR><BR>"&_
		"感谢你对本站的关注和支持！<BR><BR>"&_
		"<a href=""http://"& SYS_WEBURL &""" target=""_blank"">"& SYS_WEBName &"客户服务中心</a>"
	       Call JMail(MailTo,MailTopic,MailBody)
	       Call AlertInfo("恭喜你，用户密码找回操作成功，请查收你的邮箱！","Login.asp",1)
	      else
	       Call AlertInfo("恭喜你，用户密码找回操作成功，新密码为"& RndTempPass,"Login.asp",1)
	      end if
	     
	   end if
	end if
end if

Response.Write Cnbbr_Head
%>
<Table id="MainBody" width="<%=SYS_BodyWidth%>" align="center" border="0" cellpadding="0" cellspacing="0">
  <Tr>
   <Td align="center">
     <table width="100%" align="center" border="0" cellpadding="0" cellspacing="0" class="WhiteBg">
       <tr>
	<td align="center">
     	 <table width="98%" align="center" border="0" cellpadding="0" cellspacing="0">
       	   <tr>
	    <td width="100%" align="center" class="WhiteBg" valign="top">
<%
	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width=SYS_BodyWidth
	SiteMenu_Left="GetPass.asp|[menu]|找回用户密码"
	SiteMenu_Right=""
	Response.Write CnbbrSiteMenu(SiteMenu_Width,SiteMenu_Left,SiteMenu_Right)
%>

	 <table align="center" border="0" cellpadding="2" cellspacing="2" width="<%=SYS_BodyWidth%>" class="td">
	   <tbody>
	   <tr>
	    <td width="55%"><img src="Images/Spacer.gif" border="0" alt=""></td>
	<%
	Dim TempFindPassStepStr
	if FindPassStep=1 then
	   TempFindPassStepStr="<td width=""15%"" class=""orangeSpace"">1、填写信息</td>"& Vbcrlf
	   TempFindPassStepStr=TempFindPassStepStr &"<td width=""15%"" class=""graySpace"">2、查收邮件</td>"& Vbcrlf
	   TempFindPassStepStr=TempFindPassStepStr &"<td width=""15%"" class=""graySpace"">3、登录系统</td>"& Vbcrlf
	elseif FindPassStep=2 then
	   TempFindPassStepStr="<td width=""15%"" class=""graySpace"">1、填写信息</td>"& Vbcrlf
	   TempFindPassStepStr=TempFindPassStepStr &"<td width=""15%"" class=""orangeSpace"">2、查收邮件</td>"& Vbcrlf
	   TempFindPassStepStr=TempFindPassStepStr &"<td width=""15%"" class=""graySpace"">3、登录系统</td>"& Vbcrlf
	elseif FindPassStep=3 then
	   TempFindPassStepStr="<td width=""15%"" class=""graySpace"">1、填写信息</td>"& Vbcrlf
	   TempFindPassStepStr=TempFindPassStepStr &"<td width=""15%"" class=""graySpace"">2、查收邮件</td>"& Vbcrlf
	   TempFindPassStepStr=TempFindPassStepStr &"<td width=""15%"" class=""orangeSpace"">3、登录系统</td>"& Vbcrlf
	else
	   TempFindPassStepStr="<td width=""45%"" class=""graySpace"">用户密码找回</td>"& Vbcrlf
	end if
	Response.Write TempFindPassStepStr
	%>
	   </tr>
	   </tbody>
  	 </table>

	 <table align="center" border="0" cellpadding="2" cellspacing="2" width="698" class="td">
	   <form name=FindPassform method=post action="" OnSubmit="document.FindPassform.submitFindPass.disabled=true;">
	   <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=BBRName Type=text value="" 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=BBREmail Type=text value="" title="请输入你的个人电子邮箱地址"><img src="Skins/<%=Skins_Folder%>/notSpace.gif" border="0" alt=""></td>
	    <td width="55%">请填写你注册时所使用的个人电子邮件地址，用于查收新的用户密码。</td>
	   </tr>
	   <tr>
	    <td colspan="3" width="100%" height="38" height="20" align="center"><input name=submitFindPass type=button value="验证用户注册信息并发送密码邮件" style="height: 28px;" onClick="document.FindPassform.action='GetPass.asp'; document.FindPassform.target='_top'; document.FindPassform.submit();"></td>
	   </tr>
	   <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="images/Spacer.gif" border="0" alt=""></td>
	   </tr>
	   <input name=FindPassStep type=hidden value=<%=FindPassStep+1%>>
	   <input name=FindPassAct type=hidden value=<%=FindPassStep%>>
	   </form>
	   </tbody>
  	 </table>

	    </td>
      	   </tr>
     	 </table>
	</td>
       </tr>
     </table>
   </Td>
  </Tr>
</Table>
<% 
Response.Write Cnbbr_Bottom 
%>