<%username=trdb(request("username")) set rs=conn.execute("select room_name from room order by ID") room_name=rs("room_name") if username="" then call echoerr("没有输入用户名!","default.asp") response.end end if%>
>

<%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 %>

密码回答:

<%end if%><%if trim(rs("email"))<>"" then%>

<%if trim(rs("temppass"))<>"" then%>

(临时密码已经产生,你可以重新产生或者直接进行第二步:修改用户密码。)<%end if%> <%end if%>

<%end if end if%>


[帮助] [后退] [登录页面]