wdreset.asp 仿MOP对开式论坛程序 1.0源码程序 - ASP源码程序

gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > pwdreset.asp
    <%@language="VBScript"%>
<!--#include file="title.asp"-->
<!--#include file="code.asp"-->
<%
Dim answer,erryes
answer=Trim(Replace(Request.Form("answer"),"'",""))
userpwd=Trim(Request.Form("newpwd"))
contents=contents &"<title>重置密码－"& caption &"</title>"&_
"</head>"&_
"<body>"&_
""&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">"
if gbmaduser<>"" then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>你已经登陆了，不能使用该方法重置密码。<br>请通过社区服务的<a href=""pwdedit.asp"">修改密码功能</a>修改。<br>如果你忘了密码请先<a href=""logout.asp"">退出登陆</a>。<br><br></td></tr>"
else
if Session("resettimes")>3 then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>你已经3次输入验证码出错，系统不再接受验证，请过20分钟后再试。<br><br></td></tr>"
else
gbmaduser=Trim(Replace(Request.Form("username"),"'",""))
if gbmaduser<>"" and answer="" then
rs.Open "Select question From gbmaduser Where gbmaduser='"& gbmaduser &"'",conn,1,1
if Not rs.Eof then
if IsNull(rs("question")) then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>用户 "& gbmaduser &" 还没有设置过密码保护，不能重置密码，请<a href=""JavaScript:history.back();"">重新输入用户名</a>后再试。<br><br></td></tr>"
else
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">重置密码</td></tr>"&_
"<tr class=""tds""><td>"&_
"<script language=""JavaScript"">"&_
"function validinput()"&_
"{"&_
"if (document.pwdreset.answer.value.length==0){"&_
"alert(""请填写密码提示问题的答案。"");"&_
"document.pwdreset.answer.focus();"&_
"return false;"&_
"}"&_
"if (document.pwdreset.newpwd.value.length==0){"&_
"alert(""请填写好新密码。"");"&_
"document.pwdreset.newpwd.focus();"&_
"return false;"&_
"}"&_
"if (document.pwdreset.newpwd.value=="""& gbmaduser &"""){"&_
"alert(""新密码不能和用户名一样，否则将不能登陆。"");"&_
"document.pwdreset.newpwd.focus();"&_
"return false;"&_
"}"&_
"if (document.pwdreset.repwd.value.length==0){"&_
"alert(""请填写好确认密码。"");"&_
"document.pwdreset.repwd.focus();"&_
"return false;"&_
"}"&_
"if (document.pwdreset.newpwd.value!=document.pwdreset.repwd.value){"&_
"alert(""两次输入的新密码不相同请重新输入。"");"&_
"document.pwdreset.newpwd.focus();"&_
"return false;"&_
"}"&_
"return true;"&_
"}"&_
"</script>"&_
"请输入问题答案以及新密码。<br><br>"&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">"&_
"<form name=""pwdreset"" onsubmit=""return validinput();"" method=""post"" action=""pwdreset.asp"">"&_
"<tr><td width=""64"">提示问题：</td><td>"& rs("question") &"<input type=""hidden"" name=""username"" value="""& gbmaduser &"""></td></tr>"&_
"<tr><td>问题答案：</td><td><input name=""answer"" type=""text"" size=""25"" maxlength=""255"" class=""iptwin""></td></tr>"&_
"<tr><td>新 密 码：</td><td><input name=""newpwd"" type=""password"" size=""20"" maxlength=""50"" class=""iptwin""></td></tr>"&_
"<tr><td>确认密码：</td><td><input name=""repwd"" type=""password"" size=""20"" maxlength=""50"" class=""iptwin""></td></tr>"&_
"<tr><td></td><td><input name=""button"" type=""submit"" value=""提交"" onmouseover=""this.className='over';"" onmouseout=""this.className='out';"" class=""out""></td></tr>"&_
"</form>"&_
"</table>"&_
"</td></tr>"
end if
else
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>不存在的用户名，请<a href=""JavaScript:history.back();"">重新输入用户名</a>后再试。<br><br></td></tr>"
end if
rs.Close
elseif gbmaduser<>"" and answer<>"" and userpwd<>"" then
Session("resettimes")=Session("resettimes")+1
rs.Open "Select userpwd,answer From gbmaduser Where gbmaduser='"& gbmaduser &"'",conn,1,3
if Not rs.Eof then
if rs("answer")=pwdtocode(answer) then
rs("userpwd")=pwdtocode(userpwd)
rs.Update
Session.Contents.Remove "resettimes"
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">重置密码</td></tr><tr><td><br>新密码设置成功。<br>请牢记你的新密码，请勿在公用电脑上保存密码。<br><a href=""login.asp"">返回社区登陆页面</a>。<br><br></td></tr>"
else
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>密码提示问题的答案不正确，<a href=""JavaScript:history.back();"">返回重新输入后再试</a>。<br><br></td></tr>"
end if
else
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>非法调用或者程序出错。<br>请确定你是通过正常方式进行操作，请<a href=""reporting.asp"">联系管理员报告错误</a>。<br><br></td></tr>"
end if
rs.Close
else
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">重置密码</td></tr>"&_
"<form name=""pwdreset"" onsubmit=""return validinput();"" method=""post"" action=""pwdreset.asp"">"&_
"<tr class=""tds""><td>"&_
"<script language=""JavaScript"">"&_
"function validinput()"&_
"{"&_
"if (document.pwdreset.username.value.length==0){"&_
"alert(""请输入你要找回密码的用户名。"");"&_
"document.pwdreset.username.focus();"&_
"return false;"&_
"}"&_
"return true;"&_
"}"&_
"</script>"&_
"请输入你要找回密码的用户名。<br><br>"&_
"用 户 名：<input type=""text"" name=""username"" size=""20"" maxlength=""20"" class=""iptwin"">　<input name=""button"" type=""submit"" value=""提交"" onmouseover=""this.className='over';"" onmouseout=""this.className='out';"" class=""out"">"&_
"</td></tr>"&_
"</form>"
end if
end if
end if
contents=contents &"</table>"&_
""
%>
<!--#include file="bottom.asp"-->