passwordget.asp

非常有商业价值的软件

<%
action=my_request("action",0)
response.write "<table border=1 width=771 id=table1 cellspacing=1 style='border-collapse: collapse' bordercolor=#ACA793 height=250 class=12px>"
response.write "<tr>"
response.write "<td>"
response.write "<div align=center>"
response.write "<table border=0 width=700 id=table2>"
response.write "<tr>"
response.write "<td colspan=2>"
response.write "<p align=center class=14px>忘记密码（找回密码）</td>"
response.write "</tr>"
select case action
case ""
call getuser()
case "setp1"
call getquestion()
case "setp2"
call dpassok()
case "setp3"
call isok()
case else
call getuser()
end select
response.write "</table>"
response.write "</div>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"

sub getuser()
response.write "<form action=getpassword.asp method=post>"
response.write "<tr>"
response.write "<td width=254 align=right>请输入注册时用户名：</td>"
response.write "<td width=436>"
response.write "<input type=text name=email size=25 maxlength=15><font color=#FF0000>"
response.write "*</font><input name=action type=hidden id=action value=setp1>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=690 align=right colspan=2>"
response.write "<p align=center>"
response.write "<input type=submit value=继续&gt;&gt;&gt;下一步 name=B1></td>"
response.write "</tr>"
response.write "</form>"
end sub


sub getquestion()
email=my_request("email",0)
if email="" then
response.write"<SCRIPT language=JavaScript>alert('请输入用户名！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from user_info_list where txt_login_name='"&email&"'"
rs.open sql,conn,1,3
if not (rs.bof and rs.eof) then
question=rs("txt_question")
rs.close
set rs=nothing
response.write "<form action=getpassword.asp method=post>"
response.write "<tr>"
response.write "<td width=254 align=right>您的问题：</td>"
response.write "<td width=436>"
response.write "<font color=#FF0000>"&question 
response.write "</font></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=254 align=right>请填写问题的答案：</td>"
response.write "<td width=436>"
response.write "<input type=text name=answer size=25 maxlength=20><font color=#FF0000>"
response.write "*</font><input name=action type=hidden id=action value=setp2>"
response.write "<input name=email type=hidden id=email value="&email&">"
response.write "<input name=question type=hidden id=question value="&question&"></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=690 align=right colspan=2>"
response.write "<p align=center>"
response.write "<input type=submit value=继续&gt;&gt;&gt;下一步 name=B2></td>"
response.write "</tr>"
response.write "</form>"
else
response.write "<br>&nbsp;<span class=12px>·<a href=""#"" onclick=history.back()>此用户不存在！</a></span>"
end if
rs.close
set rs=nothing
end sub


sub dpassok()
email=my_request("email",0)
question=my_request("question",0)
answer=my_request("answer",0)
set rs=server.createobject("adodb.recordset")
sql="select * from user_info_list where txt_login_name='"&email&"' and txt_answer='"&md5(answer,32)&"' and txt_question='"&question&"'"
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then				
response.write "<form action=getpassword.asp method=post>"
response.write "<tr>"
response.write "<td width=254 align=right>请输入新密码：</td>"
response.write "<td width=436>"
response.write "<input type=password name=password size=25 maxlength=15><font color=#FF0000>" 
response.write "*(5～15位)</font><input name=action type=hidden id=action value=setp3>"
response.write "<input name=email type=hidden id=email value="&email&"></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=254 align=right>请确认新密码：</td>"
response.write "<td width=436>"
response.write "<input type=password name=password2 size=25 maxlength=15><font color=#FF0000>"
response.write "*(5～15位)</font></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=690 align=right colspan=2>"
response.write "<p align=center><input type=submit value=完成 name=B3></td>"
response.write "</tr>"
response.write "</form>"
else
response.write "<span class=12px>·<a href=""#"" onclick=history.back()>您输入的答案有误！</a></span>"
end if
end sub

sub isok()
password=my_request("password",0)
password2=my_request("password2",0)
email=my_request("email",0)
if password="" or password2="" then
response.write"<SCRIPT language=JavaScript>alert('请填写密码！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
if password<>password2 then
response.write"<SCRIPT language=JavaScript>alert('两次密码输入不一致！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
password=md5(password,32)
sql="update user_info_list set txt_login_pass='"&password&"' where txt_login_name='"&email&"'"
conn.execute (sql)
Response.write "<script>alert(""密码修改成功，请用新的密码登录！"");location.href=""check_user.asp"";</script>"
Response.end
end sub
%>