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

www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > pwdsafe.asp
    <%@language="VBScript"%>
<!--#include file="title.asp"-->
<!--#include file="code.asp"-->
<%
Dim question,answer,theanswer,erryes
question=Trim(Replace(Request.Form("question"),"'",""))
answer=Trim(Replace(Request.Form("answer"),"'",""))
theanswer=Trim(Replace(Request.Form("theanswer"),"'",""))
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=""login.asp"">登陆</a>，2秒后自动执行<Script Language=""JavaScript"">setTimeout(""location.href='login.asp'"",3000)</script>。<br><br></td></tr>"
else
rs.Open "Select userpwd,question,answer From gbmaduser Where gbmaduser='"& gbmaduser &"'",conn,1,3
if Not rs.Eof then
if rs("userpwd")<>userpwd then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>密码验证错误，请<a href=""login.asp"">重新登陆</a>。<br>引起该错误的原因可能是因为你手动修改了Cookies。<br><br></td></tr>"
erryes="yes"
end if
else
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>不存在的用户，请<a href=""login.asp"">重新登陆</a>。<br>引起该错误的原因可能是因为你手动修改了Cookies。<br><br></td></tr>"
erryes="yes"
end if
if erryes<>"yes" then
if question<>"" and answer<>"" then
if IsNull(rs("question")) then
rs("question")=question
rs("answer")=pwdtocode(answer)
rs.Update
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">密码保护设置</td></tr><tr><td><br>密码保护设置成功。<br>请牢记你的问题答案，如果忘记则以后不能通过密码保护重设密码。<br><a href=""service.asp"">返回社区服务列表页面</a>。<br><br></td></tr>"
else
if rs("answer")=pwdtocode(theanswer) then
rs("question")=question
rs("answer")=pwdtocode(answer)
rs.Update
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">密码保护设置</td></tr><tr><td><br>新密码保护设置成功。<br>请牢记你的问题答案，如果忘记则以后不能通过密码保护重设密码。<br><a href=""service.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
end if
else
if rs("question")<>"" and rs("answer")<>"" then
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.pwdsafe.theanswer.value.length==0){"&_
"alert(""请填写原密码提示问题的答案。"");"&_
"document.pwdsafe.theanswer.focus();"&_
"return false;"&_
"}"&_
"if (document.pwdsafe.question.value.length==0){"&_
"alert(""请填写好新密码提示问题。"");"&_
"document.pwdsafe.question.focus();"&_
"return false;"&_
"}"&_
"if (document.pwdsafe.answer.value.length==0){"&_
"alert(""请填写好新密码提示问题的答案。"");"&_
"document.pwdsafe.answer.focus();"&_
"return false;"&_
"}"&_
"return true;"&_
"}"&_
"</script>"&_
"你已经设置过密码保护了，请输入原问题答案、新提示问题和新问题答案。<br><br>"&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">"&_
"<form name=""pwdsafe"" onsubmit=""return validinput();"" method=""post"" action=""pwdsafe.asp"">"&_
"<tr><td width=""64"">提示问题：</td><td>"& rs("question") &"</td></tr>"&_
"<tr><td>问题答案：</td><td><input name=""theanswer"" type=""text"" size=""25"" maxlength=""255"" class=""iptwin""></td></tr>"&_
"<tr><td>新 问 题：</td><td><input name=""question"" type=""text"" maxlength=""255"" size=""25"" class=""iptwin"">　<font class=""del"">如：</font>今天星期几？</td></tr>"&_
"<tr><td>新 答 案：</td><td><input name=""answer"" type=""text"" size=""25"" maxlength=""255"" class=""iptwin"">　<font class=""del"">如：</font>有什么关系？</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>"
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.pwdsafe.question.value.length==0){"&_
"alert(""请填写好密码提示问题。"");"&_
"document.pwdsafe.question.focus();"&_
"return false;"&_
"}"&_
"if (document.pwdsafe.answer.value.length==0){"&_
"alert(""请填写好密码提示问题的答案。"");"&_
"document.pwdsafe.answer.focus();"&_
"return false;"&_
"}"&_
"return true;"&_
"}"&_
"</script>"&_
"设置密码保护后即使你忘记密码也可以通过密码保护来重新设置密码，当然请记牢问题答案，因为忘记答案你将不能重新设置密码以及修改密码保护提示。<br><br>"&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">"&_
"<form name=""pwdsafe"" onsubmit=""return validinput();"" method=""post"" action=""pwdsafe.asp"">"&_
"<tr><td width=""64"">提示问题：</td><td><input name=""question"" type=""text"" maxlength=""255"" size=""25"" class=""iptwin"">　<font class=""del"">如：</font>我最喜欢去的酒吧？</td></tr>"&_
"<tr><td>问题答案：</td><td><input name=""answer"" type=""text"" size=""25"" maxlength=""255"" class=""iptwin"">　<font class=""del"">如：</font>缘来是你</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
end if
end if
rs.Close
end if
contents=contents &"</table>"&_
""
%>
<!--#include file="bottom.asp"-->