www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > pwdedit.asp
<%@language="VBScript"%>
<!--#include file="title.asp"-->
<!--#include file="code.asp"-->
<%
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
Dim oldpwd,newpwd,savecookies
oldpwd=Trim(Request.Form("password"))
newpwd=Trim(Request.Form("newpwd"))
savecookies=Request.Cookies(bbssn)("savecookies")
if oldpwd<>"" and newpwd<>"" then
rs.Open "Select userpwd From gbmaduser Where gbmaduser='"& gbmaduser &"'",conn,1,3
if Not rs.Eof then
if rs("userpwd")=pwdtocode(oldpwd) then
rs("userpwd")=pwdtocode(newpwd)
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>"
if savecookies="yes" then Response.Cookies(bbssn).expires=Date()+365
Response.Cookies(bbssn)("password")=rs("userpwd")
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>不存在的用户，请<a href=""login.asp"">重新登陆</a>。<br>引起该错误的原因可能是因为你手动修改了Cookies。<br><br></td></tr>"
end if
rs.Close
else
contents=contents &"<script language=""JavaScript"">"&_
"function validinput()"&_
"{"&_
"if (document.pwdedit.password.value.length==0){"&_
"alert(""请填写好旧密码。"");"&_
"document.pwdedit.password.focus();"&_
"return false;"&_
"}"&_
"if (document.pwdedit.newpwd.value.length==0){"&_
"alert(""请填写好新密码。"");"&_
"document.pwdedit.newpwd.focus();"&_
"return false;"&_
"}"&_
"if (document.pwdedit.newpwd.value=="""& gbmaduser &"""){"&_
"alert(""新密码不能和用户名一样，否则将不能登陆。"");"&_
"document.pwdedit.newpwd.focus();"&_
"return false;"&_
"}"&_
"if (document.pwdedit.repwd.value.length==0){"&_
"alert(""请填写好确认密码。"");"&_
"document.pwdedit.repwd.focus();"&_
"return false;"&_
"}"&_
"if (document.pwdedit.newpwd.value!=document.pwdedit.repwd.value){"&_
"alert(""两次输入的新密码不相同请重新输入。"");"&_
"document.pwdedit.newpwd.focus();"&_
"return false;"&_
"}"&_
"return true;"&_
"}"&_
"</script>"&_
"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">修改密码</td></tr>"&_
"<tr class=""tds""><td>"&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">"&_
"<form name=""pwdedit"" onsubmit=""return validinput();"" method=""post"" action=""pwdedit.asp"">"&_
"<tr><td width=""64"">旧 密 码：</td><td><input name=""password"" type=""password"" maxlength=""50"" size=""20"" 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 type=""submit"" value=""提交"" class=""out"" onmouseover=""this.className='over'"" onmouseout=""this.className='out'""></td></tr>"&_
"</form>"&_
"</table>"&_
"</td></tr>"
end if
end if
contents=contents &"</table>"&_
""
%>
<!--#include file="bottom.asp"-->