getpass.asp

仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户名：admin 密码：admin TOP/top.htm 顶部模板 left.htm 左边树形菜单模板

<%login=Request.Cookies("login")%>
<!--#include file="../inc/top1.inc"-->
<!--#include file="../conn.asp"-->
<!--#include file="Btbbs_Fun.asp"-->
<!--#include file="md5.asp"-->
<%StarTime = Timer():AccessNum=0
  Call Login_EN
  if Request.QueryString("GetPass")="" then%>
 </form><form name=newfile  method="post" action="GetPass.asp?GetPass=GetPass">
 <table width=743 align=center><tr><td><a href=index.asp><font class=NavColor>论坛首页</a>  >>  取回密码</font></td></tr></table>
 <table border=1 width=743 cellspacing=0 cellpadding=0 align=center class=table1>
 <tr><td width=300 class=light1><b>用户名:</b><br>注册用户名长度限制为1－10字节</td><td class=light>   
   <INPUT class=fminpt name=username type=text size=20></td></tr>

   <tr><td class=light1><b>密码问题:</b><br>忘记密码的提示问题</td><td class=light>
   <INPUT class=fminpt name=passwt type=text size=20></td></tr>
   </td></tr>
   <tr><td class=light1><b>问题答案:</b><br>忘记密码的提示问题答案，用于取回论坛密码</td><td class=light>
   <INPUT class=fminpt name=passdh type=text size=20></td></tr>
   </td></tr>
   <tr><td class=light1><b>电子邮件:</b><br>请输入有效的邮件地址，这将使您能更好的使用论坛</td>
   <td class=light>   <INPUT class=fminpt name=email type=text size=40></td></tr>
   <tr><td colspan=2 align=center class=light1><input type=Submit value="获取" name=add>&nbsp; <input type="reset" name="Clear" value="重写"></td></tr>
  </form>
 </table>
 <%
 else
   Response.Write "<table width=743 align=center><tr><td><a href=index.asp><font class=NavColor>首页</a>  >>  取回密码</font></td></tr></table>"
   username=Request.Form("username")
   passwt=Request.Form("passwt")
   passdh=md5(Request.Form("passdh"))
   email=Request.Form("email")
   if username<>"" and passwt<>"" and passdh<>"" and email<>"" then
     AccessNum=AccessNum+1
     set rs=conn.execute("select top 1 * FROM 用户资料 where 用户名='"&username&"' and 密码问题='"&passwt&"' and 问题答案='"&passdh&"' and 电子邮件='"&email&"' ")
     if rs.bof and rs.eof then
      Response.Write "<br><br><br>较对错误,不能取回密码"
      Response.Write "<meta HTTP-EQUIV=refresh Content='3;url=index.asp'><br><br><br> 3 秒后将自动返回首页&nbsp;&nbsp;<a href=Getpass.asp>重新获取</a><br><br><br><br>"
     else
      Response.Cookies("username")=username
      Response.Cookies("bbsgl")=rs("权限")
      Response.Cookies("login")="Y"    
      Response.Write "<script src=online.asp?userwz=获取密码&dis=NO></script>"        
      Response.Write "<br><br><br>正转到资料修改处,请修改回你的密码..."
      Response.Write "<meta HTTP-EQUIV=refresh Content='8;url=LookUserInfo.asp?Lookid=1'><br><br><br> 3 秒后将自动转到资料修改处<br><br><br><br>"
     end if
     rs.close
     set rs=nothing
     conn.close
     set conn=nothing
   else
    Response.Write "<br><br><br>填写的所有内容均不能为空&nbsp;&nbsp;<a href=Getpass.asp>重新获取</a><br><br><br><br>"
   end if
 end if
 EndTime = Timer()
 %>
 <!--#include file="../inc/tom1.inc"-->
</body>
</html>