用三个文件实现:
1.asp
<%select case session("return")
case 0
response.write("忘记密码了?---")
case 1
response.write("用户名不能为空,请重新输入!")
session("return")=0
case 2
response.write("用户名不存在,请重新输入!")
session("return")=0
case 3
response.write("密码提示答案错误,请重新输入?--- ")
session("return")=0
end select%>
2.asp
<%username=trim(request.form("username"))
if username="" then
session("return")=1
response.redirect"getpassword.asp"
end if
sqlstr="select id,username,question,answer from register where username='"&username&"'"
rs.open sqlstr,conn,1,1
if not rs.eof then%>
3.asp
在<body>中加入:
<%id=request.QueryString("id")
answer=trim(request.form("answer"))
if answer="" then
session("return")=3
response.Redirect("getpassword.asp")
end if
sqlstr="select * from register where id="&id&" and answer='"&answer&"'"
rs.open sqlstr,conn,1,3
if rs.eof or rs.bof then
session("return")=3
response.redirect("getpassword.asp")
else %>
在<table>中加入:
<%
username=rs("username")
email=rs("email")
password=rs("password")
set jmail=server.createobject("jmail.message")
jmail.addrecipient email
jmail.from="jnrsjmaster@163.com"
jmail.fromname="济宁人事局"
jmail.subject="找回密码"
jmail.body=username&"你好,你在济宁人事局网站登陆的密码为:"&password&vbcrlf
if not jmail.Send("jnrsjmaster:jnrsjmaster@smtp.163.com" ) then
Response.write "邮件未能发送</center>"
else
Response.write "你好,密码已成功发送到你的注册邮箱!"
end if