Call Login_EN
if Request.QueryString("GetPass")="" then%>
论坛首页 >> 取回密码
用户名:注册用户名长度限制为1－10字节
密码问题:忘记密码的提示问题
问题答案:忘记密码的提示问题答案，用于取回论坛密码
电子邮件:请输入有效的邮件地址，这将使您能更好的使用论坛
else
Response.Write "首页 >> 取回密码"
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 "较对错误,不能取回密码"
Response.Write " 3 秒后将自动返回首页 重新获取"
else
Response.Cookies("username")=username
Response.Cookies("bbsgl")=rs("权限")
Response.Cookies("login")="Y"
Response.Write ""
Response.Write "正转到资料修改处,请修改回你的密码..."
Response.Write " 3 秒后将自动转到资料修改处"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
else
Response.Write "填写的所有内容均不能为空 重新获取"
end if
end if
EndTime = Timer()
%>
