memberdatamodify_do.asp

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

<%@ LANGUAGE = VBScript %>
<!--#include file="conn.asp"-->

<!--#include file="checklogin.asp"-->

<%
  UserName = Request ("UserName")
  Email = Request ("Email")
  QQMSN = Request ("QQMSN")
  PassWord = Request ("PassWord")
  FirstName = Request ("FirstName")
  LastName = Request ("LastName")
  Address = Request ("Address")
  City = Request ("City")
  State = Request ("State")
  ZipCode = Request ("ZipCode")
  Country = Request ("Country")
  PaymentMethod = Request ("PaymentMethod")
  PaymentAccount = Request ("PaymentAccount")
  MemberShip = Request ("MemberShip")
  BlindReferral = Request ("BlindReferral")
  NoReferral = Request ("NoReferral")  
  Referral = Request ("Referral")
  Referral2 = Request ("Referral2")
  Referral3 = Request ("Referral3")
  Referral4 = Request ("Referral4")
  Referral5 = Request ("Referral5")
  Referral6 = Request ("Referral6")
  ActiveNumber = Request ("ActiveNumber")
  SignupTime = Request ("SignupTime")
  SignupIP = Request ("SignupIP")
  ProxyIP = Request ("ProxyIP")
  SignupPoints = Request ("SignupPoints")
  Points = Request ("Points")
  Points1 = Request ("Points1")
  Points2 = Request ("Points2")
  Points3 = Request ("Points3")
  Points4 = Request ("Points4")
  Points5 = Request ("Points5")
  Points6 = Request ("Points6")
  PointsCredits = Request ("PointsCredits")
  PointsDebits = Request ("PointsDebits")
  SignupBonus = Request ("SignupBonus")
  Dollars = Request ("Dollars")
  Dollars1 = Request ("Dollars1")
  Dollars2 = Request ("Dollars2")
  Dollars3 = Request ("Dollars3")
  Dollars4 = Request ("Dollars4")
  Dollars5 = Request ("Dollars5")
  Dollars6 = Request ("Dollars6")
  DollarsCredits = Request ("DollarsCredits")
  DollarsDebits = Request ("DollarsDebits")
  LoginTime = Request ("LoginTime")
  Active = Request ("Active")
  Vacation = Request ("Vacation")
  Valid = Request ("Valid")
  If NoReferral <> "" Then
     NoReferral = "True"
  Else
     NoReferral = "False"
  End if
  If Active <> "" Then
     Active = "True"
  Else
     Active = "False"
  End if
  If Vacation <> "" Then
     Vacation = "True"
  Else
     Vacation = "False"
  End if
  If Valid <> "" Then
     Valid = "True"
  Else
     Valid = "False"
  End if
  rs.Open "Update member Set Email = '" & Email & "', QQMSN = '" & QQMSN & "', PW = '" & PassWord & "', FirstName = '" & FirstName & "', LastName = '" & LastName & "', Address = '" & Address & "', City = '" & City & "', State = '" & State & "', ZipCode = '" & ZipCode & "', Country = '" & Country & "', PaymentMethod = '" & PaymentMethod & "', PaymentAccount = '" & PaymentAccount & "', MemberShip = '" & MemberShip & "', BlindReferral = '" & BlindReferral & "', NoReferral = " & NoReferral & ", Referral = '" & Referral & "', Referral2 = '" & Referral2 & "', Referral3 = '" & Referral3 & "', Referral4 = '" & Referral4 & "', Referral5 = '" & Referral5 & "', Referral6 = '" & Referral6 & "', ActiveNumber = '" & ActiveNumber & "', SignupTime = '" & SignupTime & "', SignupIP = '" & SignupIP & "', ProxyIP = '" & ProxyIP & "', SignupPoints = '" & SignupPoints & "', Points = '" & Points & "', Points1 = '" & Points1 & "', Points2 = '" & Points2 & "', Points3 = '" & Points3 & "', Points4 = '" & Points4 & "', Points5 = '" & Points5 & "', Points6 = '" & Points6 & "', PointsCredits = '" & PointsCredits & "', PointsDebits = '" & PointsDebits & "', SignupBonus = '" & SignupBonus & "', Dollars = '" & Dollars & "', Dollars1 = '" & Dollars1 & "', Dollars2 = '" & Dollars2 & "', Dollars3 = '" & Dollars3 & "', Dollars4 = '" & Dollars4 & "', Dollars5 = '" & Dollars5 & "', Dollars6 = '" & Dollars6 & "', DollarsCredits = '" & DollarsCredits & "', DollarsDebits = '" & DollarsDebits & "', LoginTime = '" & LoginTime & "', Active = " & Active & ", Vacation = " & Vacation & ", Valid = " & Valid & " Where UserName = '" & UserName & "'",Conn
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "会员数据修改成功。"
  Response.redirect "success.asp"
  Response.End
%>