www.gusucode.com > 绿色环保工作企业网站源码程序 > GetPassword.asp
<!--#include file="Inc/conn.asp"--> <!--#include file="Inc/function.asp"--> <!--#include file="Inc/md5.asp"--> <% dim Action,UserName,rsGetPassword,FoundErr,ErrMsg dim Answer,Password,PwdConfirm Action=trim(request("Action")) UserName=trim(request("UserName")) Answer=trim(request("Answer")) Password=trim(request("Password")) PwdConfirm=trim(request("PwdConfirm")) %> <html> <head> <title>忘记密码</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <style type="text/css"> A:link,A:active,A:visited{TEXT-DECORATION:none ;Color:#000000} A:hover{Color:#4455aa} BODY{ FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: 宋体; background-color: #ffffff; scrollbar-face-color: #C0C0C0; scrollbar-highlight-color: #C0C0C0; scrollbar-shadow-color: #C0C0C0; scrollbar-3dlight-color: #E0E0E0; scrollbar-arrow-color: #000000; scrollbar-track-color: #E0E0E0; scrollbar-darkshadow-color: #C0C0C0; } TD{ font-family: 宋体; font-size: 12px; line-height: 15px; } td.TableBody1 { background-color: #137171; } .tableBorder1 { width:97%; border: 1px; background-color: #0D4F4F; } .table { border-collapse: collapse; border-left: 1px solid #000000; border-right: 1px solid #000000; background-color:#ffffff } INPUT{BORDER-TOP-WIDTH: 1px; PADDING-RIGHT: 1px; PADDING-LEFT: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 9pt; BORDER-LEFT-COLOR: #cccccc; BORDER-BOTTOM-WIDTH: 1px; BORDER-BOTTOM-COLOR: #cccccc; PADDING-BOTTOM: 1px; BORDER-TOP-COLOR: #cccccc; PADDING-TOP: 1px; HEIGHT: 18px; BORDER-RIGHT-WIDTH: 1px; BORDER-RIGHT-COLOR: #cccccc} </style> </head> <body> <%if Action="" then%> <table align='center' width='300' border='0' cellpadding='4' cellspacing='0' class='border'> <tr > <td height='15' colspan='2' class='title'>忘记密码 >> 第一步:输入用户名</td> </tr> <tr> <td height='100' colspan='2' align="center" class='tdbg'><form name="form1" method="post" action=""> <strong> 请输入你的用户名:</strong> <input name="UserName" type="text" id="UserName" size="20" maxlength="20"> <br> <br> <input name="Action" type="hidden" id="Action" value="step2"> <input name="Next" type="submit" id="Next" style="cursor:hand;" value="下一步"> <input name="Cancel" type="button" id="Cancel" style="cursor:hand;" onclick="window.close();" value=" 取消 "> </form></td> </tr> </table> <% elseif Action="step2" then if UserName="" or strLength(UserName)>14 or strLength(UserName)<4 then founderr=true errmsg=errmsg & "<br><li>请输入用户名(不能大于14小于4)</li>" else if Instr(UserName,"=")>0 or Instr(UserName,"%")>0 or Instr(UserName,chr(32))>0 or Instr(UserName,"?")>0 or Instr(UserName,"&")>0 or Instr(UserName,";")>0 or Instr(UserName,",")>0 or Instr(UserName,"'")>0 or Instr(UserName,",")>0 or Instr(UserName,chr(34))>0 or Instr(UserName,chr(9))>0 or Instr(UserName,"")>0 or Instr(UserName,"$")>0 then errmsg=errmsg+"<br><li>用户名中含有非法字符</li>" founderr=true end if end if if FoundErr=true then call WriteErrMsg() else set rsGetPassword=server.createobject("adodb.recordset") rsGetPassword.open "select UserName,Question,Answer,Password from [User] where UserName='" & UserName & "'",conn,1,1 if rsGetPassword.bof and rsGetPassword.eof then FoundErr=True ErrMsg=ErrMsg & "<br><li>对不起,你输入的用户名不存在!</li>" call WriteErrMsg() else %> <table align='center' width='300' border='0' cellpadding='4' cellspacing='0' class='border'> <tr > <td height='15' colspan='2' class='title'>忘记密码 >> 第二步:回答问题</td> </tr> <tr> <td height='100' colspan='2' align="center" class='tdbg'><form name="form1" method="post" action=""> <table width="100%" border="0" cellspacing="5" cellpadding="0"> <tr> <td width="44%" align="right"><strong>密码提示问题:</strong></td> <td width="56%"><%=rsGetPassword("Question")%></td> </tr> <tr> <td align="right"><strong>你的答案:</strong></td> <td><input name="Answer" type="text" size="20" maxlength="20"></td> </tr> </table> <br> <input name="UserName" type="hidden" id="UserName" value="<%=rsGetPassword("UserName")%>"> <input name="Action" type="hidden" id="Action" value="step3"> <input name="PrevStep" type="button" id="PrevStep" value="上一步" style="cursor:hand;" onclick="history.go(-1)"> <input name="NextStep" type="submit" id="NextStep" style="cursor:hand;" value="下一步"> <input name="Cancel" type="button" id="Cancel" style="cursor:hand;" onclick="window.close();" value=" 取消 "> </form></td> </tr> </table> <% end if rsGetPassword.close set rsGetPassword=nothing end if elseif Action="step3" then if Answer="" then FoundErr=True ErrMsg=ErrMsg & "<br><li>请输入提示问题的答案!</li>" call WriteErrmsg() else set rsGetPassword=server.createobject("adodb.recordset") rsGetPassword.open "select UserName,Question,Answer,Password from [User] where UserName='" & UserName & "'",conn,1,1 if rsGetPassword.bof and rsGetPassword.eof then FoundErr=True ErrMsg=ErrMsg & "<br><li>对不起,用户名不存在!可能已经被管理员删除了。</li>" call WriteErrMsg() else if rsGetPassword("Answer")<>md5(Answer) then FoundErr=True ErrMsg=ErrMsg & "<br><li>对不起,你的答案不对!</li>" Call WriteErrMsg() else %> <table align='center' width='300' border='0' cellpadding='4' cellspacing='0' class='border'> <tr > <td height='15' colspan='2' class='title'>忘记密码 >> 第三步:设置新密码</td> </tr> <tr> <td height='100' colspan='2' align="center" class='tdbg'><form name="form1" method="post" action=""> <table width="100%" border="0" cellspacing="5" cellpadding="0"> <tr> <td width="44%" align="right"><strong>密码提示问题:</strong></td> <td width="56%"><%=rsGetPassword("Question")%></td> </tr> <tr> <td align="right"><strong>你的答案:</strong></td> <td><%=Answer%> <input name="Answer" type="hidden" id="Answer" value="<%=rsGetPassword("Answer")%>"></td> </tr> <tr> <td align="right"><strong>新密码:</strong></td> <td><input name="Password" type="password" id="Password" size="20" maxlength="20"></td> </tr> <tr> <td align="right"><strong>确认新密码:</strong></td> <td><input name="PwdConfirm" type="password" id="PwdConfirm" size="20" maxlength="20"></td> </tr> </table> <br> <input name="UserName" type="hidden" id="UserName" value="<%=rsGetPassword("UserName")%>"> <input name="Action" type="hidden" id="Action" value="step4"> <input name="PrevStep" type="button" id="PrevStep" value="上一步" style="cursor:hand;" onclick="history.go(-1)"> <input name="Next" type="submit" id="Next" style="cursor:hand;" value="下一步"> <input name="Cancel" type="button" id="Cancel" style="cursor:hand;" onclick="window.close();" value=" 取消 "> </form></td> </tr> </table> <% end if end if rsGetPassword.close set rsGetPassword=nothing end if elseif Action="step4" then if Password="" or strLength(Password)>12 or strLength(Password)<6 then founderr=true errmsg=errmsg & "<br><li>请输入密码(不能大于12小于6)</li>" else if Instr(Password,"=")>0 or Instr(Password,"%")>0 or Instr(Password,chr(32))>0 or Instr(Password,"?")>0 or Instr(Password,"&")>0 or Instr(Password,";")>0 or Instr(Password,",")>0 or Instr(Password,"'")>0 or Instr(Password,",")>0 or Instr(Password,chr(34))>0 or Instr(Password,chr(9))>0 or Instr(Password,"")>0 or Instr(Password,"$")>0 then errmsg=errmsg+"<br><li>密码中含有非法字符</li>" founderr=true end if end if if PwdConfirm="" then founderr=true errmsg=errmsg & "<br><li>请输入确认密码(不能大于12小于6)</li>" else if Password<>PwdConfirm then founderr=true errmsg=errmsg & "<br><li>密码和确认密码不一致</li>" end if end if if FoundErr=True then call WriteErrmsg() else set rsGetPassword=server.createobject("adodb.recordset") rsGetPassword.open "select UserName,Question,Answer,Password from [User] where UserName='" & UserName & "'",conn,1,3 if rsGetPassword.bof and rsGetPassword.eof then FoundErr=True ErrMsg=ErrMsg & "<br><li>对不起,用户名不存在!可能已经被管理员删除了。</li>" call WriteErrMsg() else if rsGetPassword("Answer")<>Answer then FoundErr=True ErrMsg=ErrMsg & "<br><li>对不起,你的答案不对!</li>" Call WriteErrMsg() else rsGetPassword("Password")=md5(Password) rsGetPassword.update %> <table align='center' width='300' border='0' cellpadding='4' cellspacing='0' class='border'> <tr > <td height='15' colspan='2' class='title'>忘记密码 >> 第四步:成功设置新密码</td> </tr> <tr> <td height='100' colspan='2' align="center" class='tdbg'> <table width="90%" border="0" cellspacing="5" cellpadding="0"> <tr> <td width="80" align="right"><strong>用户名:</strong></td> <td><%=UserName%></td> </tr> <tr> <td width="80" align="right"><strong>新密码:</strong></td> <td><strong><%=Password%></strong></td> </tr> </table> <br> <font color="#FF0000">请记住您的新密码并使用新密码<a href="index.asp">登录</a>!</font><br> <br> <a href="index.asp">【返 回】</a><a href="javascript:window.close();">【关闭窗口】</a></td> </tr> </table> <% end if end if rsGetPassword.close set rsGetPassword=nothing end if end if %> </body> </html> <% call CloseConn() %>