gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\admin\ChangePassword2_submit.asp
<!--#include file=conn.asp --> <!--#include file=session.asp--> <!--#include file=md5.asp--> <% UserName=session("AdminUID") OldPassword=md5(trim(Request.Form("OldPassword"))) NewPassword=md5(trim(Request.Form("NewPassword"))) NewPassword2=md5(trim(Request.Form("NewPassword2"))) if Newpassword<>NewPassword2 then %> <script language=javascript> history.back() alert("两个新密码不同,请重新核对填写!") </script> <% Response.End else set rs=server.CreateObject ("ADODB.RecordSet") rs.Source="select id from Admin where AdminPWD='" & OldPassword & "'" rs.Open rs.Source,conn,1,1 if not rs.EOF then sql="update Admin set AdminPWD='" & NewPassword & "' where AdminUID='" & UserName & "'" conn.execute(sql) session("AdminPWD")=NewPassword else %> <script language=javascript> history.back() alert("原密码错误,您不能修改密码!") </script> <% end if end if %> <html> <head> <meta http-equiv="refresh" content="3;url=ChangePassword1.asp"> <meta http-equiv="Content-Language" content="zh-cn"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href="css/bodystyle.css" rel="stylesheet" type="text/css"> </head> <body> <p> </p> <table border="0" width="450" align=center> <tr> <td width="100%"><b>修改系统密码</b></td> </tr> <tr> <td width="100%"> <hr size="1"> </td> </tr> <tr> <td width="100%">已经成功修改系统密码!<BR> 系统将在3秒钟后自动返回!</td> </tr> <tr> <td width="100%"></td> </tr> <tr> <td width="100%"> </td> </tr> </table> </body> </html>