<%
HtmlTop
if SiteConfig("SelectMailMode")="" then error("系统未开启 邮件 功能！")
UserName=HTMLEncode(Request("UserName"))
UserEmail=HTMLEncode(Request("UserEmail"))
ActivationKey=HTMLEncode(Request("ActivationKey"))
select case Request("menu")
case ""
default
case "MailRecover"
if Request("VerifyCode")<>Session("VerifyCode") or Session("VerifyCode")="" then error("验证码错误！")
if UserEmail="" then error("请输入Email地址！")
if UserName<>"" then UserNameSql="and UserName='"&UserName&"'"
sql="select * from [BBSXP_Users] where UserEmail='"&UserEmail&"' "&UserNameSql&""
Rs.Open sql,Conn,1
if Rs.eof then error("论坛中找不到相关的资料")
UserEmail=Rs("UserEmail")
UserName=Rs("UserName")
Rs.close
Randomize
ActivationKey=int(rnd*9999999999)+1
MailSubject="用户找回密码"
MailBody="
亲爱的"&UserName&", 您好!
请点击以下链接, 重新设置新的密码!
"&SiteURL&"RecoverPassword.asp?menu=MailRecoverok&username="&UserName&"&ActivationKey="&ActivationKey&"
申请发送密码者的IP为："&Request.ServerVariables("REMOTE_ADDR")&""
SendMail UserEmail,MailSubject,MailBody
Conn.Execute("insert into [BBSXP_UserActivation] (ActivationKey,UserName) values ('"&ActivationKey&"','"&UserName&"')")
Session("VerifyCode")=""
log(""&UserName&"申请找回密码，Email:"&UserEmail&"")
succeed "请到邮箱中取回密码","Login.asp"
case "setNewPassword"
Userpass=Trim(Request("Userpass"))
Userpass2=Trim(Request("Userpass2"))
if Userpass<>Userpass2 then error"您的新密码和确认新密码不同"
if Len(Userpass)<6 then error"新密码必须至少包含 6 个字符"
if Conn.Execute("select UserName from [BBSXP_UserActivation] where ActivationKey='"&ActivationKey&"' and UserName='"&UserName&"'").eof then error("找回密码的信息已过期！请重新提交找回！")
Conn.execute("update [BBSXP_Users] set UserPass='"&md5(Userpass)&"' where UserName='"&UserName&"'")
Conn.execute("Delete from [BBSXP_UserActivation] where UserName='"&UserName&"'")
Message=Message&"新密码设置成功请返回登录"
succeed Message,"Login.asp"
case "MailRecoverok"
if Conn.Execute("select UserName from [BBSXP_UserActivation] where ActivationKey='"&ActivationKey&"' and UserName='"&UserName&"'").eof then error("找回密码的信息已过期！请重新提交找回！")
%>
<%ClubTree%> → 找回密码
<%
end select
Sub default
%>
<%ClubTree%> → 找回密码
BACK
<%
End Sub
HtmlBottom
%>