savrenpass.asp

顶级影视站ＡＳＰ源代码系统。很全面很强大。数据库用access

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="primary_admin.asp"-->
<!--#include file="HMconnection.asp"-->
<!--#include file="../MD5/md5.asp"-->

  <% dim renameRS
  set renameRS=server.CreateObject("adodb.recordset")
  renameRS.Open "select * from Admin where username='"&session("loginname")&"'",conn,1,3
  if md5(trim(request("password")))<>renameRS("password") then%>
   <script language="javascript">
   alert("对不起，您输入的原密码有误！")
   document.URL="renpassword.asp"
   </script>
   <%renameRS.close
     set renameRS=nothing
   response.end
  elseif trim(request("password2"))=trim(request("password1")) and md5(trim(request("password")))=renameRS("password") then
   renameRS("password")=md5(trim(request("password2")))
   renameRS.Update
   renameRS.Close
   set renameRS=nothing
   Session("AdminID")=""
   session("loginname")=""
   session("IsAdmin")=false
   session("KEY")=""
   response.cookies("admin")=""
   response.cookies("qx")=""
   response.cookies("loginTimes")=""
   response.Write "<script language=javascript>alert('更改成功，请用新密码重新登陆！');document.URL='login_admin.asp';</script>"
   renameRS.close
   set renameRS=nothing
   response.End
  else 
   response.Write "<script language=javascript>alert('对不起，新密码和确认密码不相同，请重新输入！');history.go(-2);</script>"
   renameRS.close
   set renameRS=nothing
   response.End
  end if
   renameRS.close
   set renameRS=nothing
   response.End
%>