userinfo3.asp

中文bux点击站源码。配合其他站点用

<!--#include file="conn.asp"-->
<!--#include file="chklogin.asp"-->

<%
  UserName2 = Request ("UserName")
  OldPassWord = Request ("OldPassWord")
  NewPassWord = Request ("NewPassWord")
  ConfirmNewPassWord = Request ("ConfirmNewPassWord")
  If ConfirmNewPassWord = "" Then
     Conn.Close
     Session ("Message") = "确认新密码不能为空。"
     Response.Redirect "error.asp"
  End if
  If NewPassWord = "" Then
     Conn.Close
     Session ("Message") = "新密码不能为空。"
     Response.Redirect "error.asp"
  End if
  If OldPassWord = "" Then
     Conn.Close
     Session ("Message") = "旧密码不能为空。"
     Response.Redirect "error.asp"
  End if
  If NewPassWord <> ConfirmNewPassWord Then
     Conn.Close
     Session ("Message") = "您的新密码和确认新密码不匹配。"
     Response.Redirect "error.asp"
  End if
  If UserName <> UserName2 Then
     Conn.Close
     Session ("Message") = "产生未知错误，请再试一次。"
     Response.Redirect "error.asp"
  End if
  If PassWord <> OldPassWord Then
     Conn.Close
     Session ("Message") = "产生未知错误，请再试一次。"
     Response.Redirect "error.asp"
  End if
  rs.Open "Update member Set PW = '" & NewPassWord & "' Where UserName = '" & UserName & "'",Conn
  Conn.Close
  Response.Cookies("" & DomainName & "").Expires=Date() - 1
  Session ("Message") = "密码修改成功。您必须<a href='login.asp'>重新登录</a>。"
  Response.Redirect "success.asp"
%>