userinfo2.asp

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

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

<%
  UserName2 = Request ("UserName")
  Email = Request ("Email")
  QQMSN = Request ("QQMSN")
  Address = Request ("Address")
  City = Request ("City")
  State = Request ("State")
  ZipCode = Request ("ZipCode")
  PaymentMethod = Request ("PaymentMethod")
  PaymentAccount = Request ("PaymentAccount")
  Vacation = Request ("Vacation")
  If Vacation = "" Then
     Vacation = False
  Else
     Vacation = True
  End if
  If UserName <> UserName2 Then
     Conn.Close
     Session ("Message") = "产生未知错误，请再试一次。"
     Response.Redirect "error.asp"
  End if
  rs.Open "Update member Set Email = '" & Email & "', QQMSN = '" & QQMSN & "', Address = '" & Address & "', City = '" & City & "', State = '" & State & "', ZipCode = '" & ZipCode & "', PaymentMethod = '" & PaymentMethod & "', PaymentAccount = '" & PaymentAccount & "', Vacation = " & Vacation & " Where UserName = '" & UserName & "'",Conn
  Conn.Close
  Session ("Message") = "个人信息修改成功。"
  Response.Redirect "success.asp"
%>