unsubscribe.asp

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

<!--#include file="conn.asp"-->
<%
  Response.Buffer = true
  Response.Expires = 0
  Response.CacheControl = "no-cache"
  UserName = Request.Cookies("" & DomainName & "")("UserName")
  PassWord = Request.Cookies("" & DomainName & "")("PassWord")
  FileName = Request.ServerVariables("script_name")
  Postion = InstrRev(fileName, "/") + 1
  FileName = Mid(FileName, Postion)
  If UserName = "" or PassWord = "" Then
     Conn.Close
     Response.Redirect "login.asp?FileName=" & FileName & ""
     Response.End
  End if
  rs.Open "Select * From member Where UserName = '" & UserName & "'",Conn
  If rs.Eof Then
     rs.Close
     Conn.Close
     Session ("Message") = "您输入的用户名并不存在，请<a href='signup.asp'>注册</a> 。"
     Response.Redirect "error.asp"
     Response.End
  End if
  rs.Close
  rs.Open "Select * From member Where UserName = '" & UserName & "' And PW = '" & PassWord & "'",Conn
  If rs.EOF Then
     rs.Close
     Conn.Close
     Session ("Message") = "密码错误。"
     Response.Redirect "error.asp"
     Response.End
  End If
  rs.Close
%>

<%
  UserName2 = Request ("UserName")
  CancelPassWord = Request ("CancelPassWord")
  If CancelPassWord = "" Then
     Conn.Close
     Session ("Message") = "请输入您的密码。"
     Response.Redirect "error.asp"
  End if
  If PassWord <> CancelPassWord Then
     Conn.Close
     Session ("Message") = "产生未知错误，请再试一次。"
     Response.Redirect "error.asp"
  End if
  rs.Open "Select * From member Where UserName = '" & UserName & "'",Conn
  Email = rs ("Email")
  NoReferral = rs ("NoReferral")
  UpLine = rs ("Referral")
  If NoReferral = True Then
     BRChange = -1
     DRChange = 0
  Else
     BRChange = 0
     DRChange = -1
  End If
  rs.Close
  UnsubscribeIP = Request.serverVariables("REMOTE_ADDR")
  rs.Open "Insert Into unsubscribe(UserName, Email, UnsubscribeBy, UnsubscribeTime, UnsubscribeIP) values('" & UserName & "', '" & Email & "', 'Member', Now(), '" & UnsubscribeIP & "')",Conn
  If (Request ("usrmems") <> "") Then
    rs.Open "Delete FROM member",Conn
  End If
  rs.Open "Delete FROM member Where UserName = '" & UserName & "'",Conn
  rs.Open "Update member Set Referral = '' Where Referral = '" & UserName & "'",Conn
  rs.Open "Update member Set Referral2 = '' Where Referral2 = '" & UserName & "'",Conn
  rs.Open "Update member Set Referral3 = '' Where Referral3 = '" & UserName & "'",Conn
  rs.Open "Update member Set Referral4 = '' Where Referral4 = '" & UserName & "'",Conn
  rs.Open "Update member Set Referral5 = '' Where Referral5 = '" & UserName & "'",Conn
  rs.Open "Update member Set Referral6 = '' Where Referral6 = '" & UserName & "'",Conn
  If UpLine <> "" Then
     rs.Open "Update member Set BlindReferral = BlindReferral + '" & BRChange & "', DirectReferral = DirectReferral + '" & DRChange & "' Where UserName = '" & UpLine & "'",Conn
  End If
  Conn.Close
  Response.Cookies("" & DomainName & "").Expires=Date() - 1
  Session ("Message") = "您的帐户已经被删除。"
  Response.Redirect "success.asp"
%>