<%set Rs=conn.execute("select * from user where username='"&username&"'")
if Rs.eof or Rs.bof then
response.write "用户尚为注册!"
elseif request("cmdYes")="提交" then
answer=trdb(request("answer"))
if answer<>"" and answer=rs("answer") then
randomize
pass=""&int(Rnd*1000000+100)
conn.Execute("UPDATE user SET passwd='"&trpass(pass)&"' WHERE username='"&username&"'")
response.write "成功:密码被系统重新设置为"&pass&" !"
else
response.write "你给出了错误的答案,找回密码失败!"
end if
elseif request("cmdYes")="1.产生临时密码" then
randomize
pass=""&int(Rnd*1000000+100)
conn.Execute("UPDATE user SET temppass='"&pass&"' WHERE username='"&username&"'")
set JMail = Server.CreateObject( "JMail.Speedmailer" )
JMail.SendMail "lxt.dzz@sc.cnpc.com.cn", rs("email"), "找回密码", room_name&":用户"&username&" 系统为你设置临时密码为:"&pass, "mail.sc.cnpc.com.cn"%>
系统产生临时密码并发到邮箱:<%=rs("email")%> 。 请接收邮件然后进行下一步。
<%elseif request("cmdYes")="2.修改用户密码" then%>
临时密码:
修改密码:
<%elseif request("cmdYes")="修改" then
temppass=request("temppass")
if temppass<>"" and temppass=trim(rs("temppass")) then
spass=request("spass")
if spass<>"" and spass<>username then
conn.Execute("UPDATE user SET temppass=' ',passwd='"&trpass(spass)&"' WHERE username='"&username&"'")
errtext="你成功地修改了密码!"
else
errtext="你想把密码修改为空或者与用户名相同!"
end if
else
conn.Execute("UPDATE user SET temppass=' ' WHERE username='"&username&"'")
errtext="临时密码验证失败,临时密码被清除!"
end if
response.write errtext
else
if (trim(rs("remand"))="" or trim(rs("answer"))="") and trim(rs("email"))="" then
response.write "你既没有设置密码提问和密码回答, 也没有设置Email地址。 不能找回密码!"
else%>
<%if (trim(rs("remand"))<>"" and trim(rs("answer"))<>"") then %>
密码提问:<%=Rs("remand")%> 密码回答:
<%end if%><%if trim(rs("email"))<>"" then%>
利用EMAIL地址找回密码
<%if trim(rs("temppass"))<>"" then%>
(临时密码已经产生,你可以重新产生或者直接进行第二步:修改用户密码。)<%end if%>
<%end if%>
<%end if
end if%>