ChangePassword2_submit.asp ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) - ASP源码程序

www.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>