signup4.asp

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

<!--#include file="conn.asp"-->
<%
  rs.Open "Select * From config",Conn
  MailSever = rs ("MailSever")
  MailUser = rs ("MailUser")
  MailPW = rs ("MailPW")
  EmailAddress = rs ("EmailAddress")
  rs.Close
  rs.Open "Select * From setup",Conn
  SignupPoints = rs ("SignupPoints")
  SignupBonus = rs ("SignupBonus")
  rs.Close
  UserName = Request ("UserName")
  Email = Request ("Email")
  QQMSN = Request ("QQMSN")
  ActiveNumber = Request ("ActiveNumber")
  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")
  PassWord = Request ("PassWord")
  ConfirmPassWord = Request ("ConfirmPassWord")
  Terms = Request ("Terms")
  If Terms = "" Then
     Conn.Close
     Session ("Message") = "您必须同意会员条款才能完成注册。"
     Response.Redirect "error.asp"
     Response.End
  End if
  If ConfirmPassWord = "" Then
     Conn.Close
     Session ("Message") = "确认密码不能为空。"
     Response.Redirect "error.asp"
     Response.End
  End if
  If PassWord = "" Then
     Conn.Close
     Session ("Message") = "密码不能为空。"
     Response.Redirect "error.asp"
     Response.End
  End if
  If PaymentAccount = "" Then
     Conn.Close
     Session ("Message") = "收款帐户信息不能为空。"
     Response.Redirect "error.asp"
     Response.End
  End if
  If ZipCode = "" Then
     Conn.Close
     Session ("Message") = "邮政编码不能为空。"
     Response.Redirect "error.asp"
     Response.End
  End if
  If City = "" Then
     Conn.Close
     Session ("Message") = "所在城市不能为空。"
     Response.Redirect "error.asp"
     Response.End
  End if
  If Address = "" Then
     Conn.Close
     Session ("Message") = "家庭住址不能为空。"
     Response.Redirect "error.asp"
     Response.End
  End if
  If LastName = "" Then
     Conn.Close
     Session ("Message") = "名不能为空。"
     Response.Redirect "error.asp"
     Response.End
  End if
  If FirstName = "" Then
     Conn.Close
     Session ("Message") = "姓不能为空。"
     Response.Redirect "error.asp"
     Response.End
  End if
    If Email = "" Then
     Conn.Close
     Session ("Message") = "电子邮件地址不能为空。"
     Response.Redirect "error.asp"
     Response.End
  End if
    If QQMSN = "" Then
     Conn.Close
     Session ("Message") = "QQ号码或者MSN帐号不能为空。"
     Response.Redirect "error.asp"
     Response.End
  End if
  If UserName = "" Then
     Conn.Close
     Session ("Message") = "用户名不能为空。"
     Response.Redirect "error.asp"
     Response.End
  End if
  If PassWord <> ConfirmPassWord then
     Conn.Close
     Session ("Message") = "您的密码和确认密码不匹配。"
     Response.Redirect "error.asp"
     Response.End
  End if
  rs.Open "Select UserName From member Where UserName = '" & UserName & "'",Conn
  If NOT rs.EOF Then
     Conn.Close
     Session ("Message") = "您选择的用户名已经存在，请选择其他用户名。"
     Response.Redirect "error.asp"
     Response.End
  End if
  rs.Close
  rs.Open "Select * From member Where Email = '" & Email & "'",Conn
  If rs.EOF Then
     Conn.Close
     Session ("Message") = "您输入的电子邮件地址并不存在，请<a href='signup.asp'>注册</a> 。"
     Response.Redirect "error.asp"
     Response.End
  Else
     ActiveNumber2 = rs ("ActiveNumber")
     Active = rs ("Active")
     
     If Active = True Then
        Conn.Close
        Session ("Message") = "您输入的电子邮件地址已经存在，并且已经激活。请不要注册多重帐户。"
        Response.Redirect "error.asp"
        Response.End
     End If
  End if
  NoReferral = rs ("NoReferral")
  Referral = rs ("Referral")
  rs.Close
  Referral2 = ""
  Referral3 = ""
  Referral4 = ""
  Referral5 = ""
  Referral6 = ""
  If Referral <> "" Then
     rs.Open "Select * From member Where UserName = '" & Referral & "'",Conn
     If Not rs.EOF Then
        Referral2 = rs ("Referral")
     End If
     rs.Close
     If Referral2 <> "" Then
        rs.Open "Select * From member Where UserName = '" & Referral2 & "'",Conn
        If Not rs.EOF Then
           Referral3 = rs ("Referral")
        End If
        rs.Close
        If Referral3 <> "" Then
           rs.Open "Select * From member Where UserName = '" & Referral3 & "'",Conn
           If Not rs.EOF Then
              Referral4 = rs ("Referral")
           End If
           rs.Close
           If Referral4 <> "" Then
              rs.Open "Select * From member Where UserName = '" & Referral4 & "'",Conn
              If Not rs.EOF Then
                 Referral5 = rs ("Referral")
              End If
              rs.Close
              If Referral5 <> "" Then
                 rs.Open "Select * From member Where UserName = '" & Referral5 & "'",Conn
                 If Not rs.EOF Then
                    Referral6 = rs ("Referral")
                 End If
                 rs.Close
              End If
           End If 
        End If
     End If
  End if
  SignupIP = Request.serverVariables("REMOTE_ADDR")
  ProxyIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
  If ProxyIP <> "" Then
     rs.Open "Update member Set UserName = '" & UserName & "', QQMSN = '" & QQMSN & "', FirstName = '" & FirstName & "', LastName = '" & LastName & "', Address = '" & Address & "', City = '" & City & "', State = '" & State & "', ZipCode = '" & ZipCode & "', Country = '" & Country & "', PW = '" & PassWord & "', PaymentMethod = '" & PaymentMethod & "', PaymentAccount = '" & PaymentAccount & "', Referral2 = '" & Referral2 & "', Referral3 = '" & Referral3 & "', Referral4 = '" & Referral4 & "', Referral5 = '" & Referral5 & "', Referral6 = '" & Referral6 & "', SignupIP = '" & ProxyIP & "', ProxyIP = '" & SignupIP & "', SignupPoints = '" & SignupPoints & "', SignupBonus = '" & SignupBonus & "', LoginTime = Date(), Active = True Where Email = '" & Email & "'",Conn
  Else
     rs.Open "Update member Set UserName = '" & UserName & "', QQMSN = '" & QQMSN & "', FirstName = '" & FirstName & "', LastName = '" & LastName & "', Address = '" & Address & "', City = '" & City & "', State = '" & State & "', ZipCode = '" & ZipCode & "', Country = '" & Country & "', PW = '" & PassWord & "', PaymentMethod = '" & PaymentMethod & "', PaymentAccount = '" & PaymentAccount & "', Referral2 = '" & Referral2 & "', Referral3 = '" & Referral3 & "', Referral4 = '" & Referral4 & "', Referral5 = '" & Referral5 & "', Referral6 = '" & Referral6 & "', SignupIP = '" & SignupIP & "', ProxyIP = '" & ProxyIP & "', SignupPoints = '" & SignupPoints & "', SignupBonus = '" & SignupBonus & "', LoginTime = Date(), Active = True Where Email = '" & Email & "'",Conn
  End If
  If NoReferral = True Then
     rs.Open "Update member Set BlindReferral = BlindReferral + 1 Where UserName = '" & Referral & "'",Conn
  Else
     rs.Open "Update member Set DirectReferral = DirectReferral + 1 Where UserName = '" & Referral & "'",Conn
  End If
  Conn.Close
  Set msg = Server.CreateObject("JMail.Message")
  msg.Silent = true
  msg.Logging = true
  msg.Charset = "gb2312"
  msg.ContentType = "text/html"
  msg.MailServerUserName = "" & MailUser & ""
  msg.MailServerPassword = "" & MailPW & ""
  msg.From = "" & EmailAddress & ""
  msg.AddRecipient Request.Form("Email")
  msg.Subject = "欢迎注册成为" & SiteTitle & "会员"
  msg.Body = "<p>欢迎您注册" & SiteTitle & "！下面是您的注册信息，请妥善保存。</p>" &_
  "<p>用户名：" & UserName & "</a></p>" &_
  "<p>密  码：" & PassWord & "</p>" &_
  "<p>注册IP：" & SignupIP & "</p>" &_
  "<p>您可以使用下面的链接登录：</p>" &_
  "<p><a href='http://" & DomainName & "'>http://" & DomainName & "</a></p>" &_
  "<p>您可以介绍朋友们加入" & SiteTitle & "以赚取更多的奖励。</p>" &_
  "<p>如果您介绍朋友加入，请使用下面的介绍链接：</p>" &_
  "<p><a href='http://" & DomainName & "/index.asp?ref=" & UserName & "'>http://" & DomainName & "/index.asp?ref=" & UserName & "</a></p>" &_
  "<p>希望您能喜欢并支持我们的网站。</p>" &_
  "<p>谢谢！</p>"
  msg.Send ("" & MailSever & "")
  Set msg = nothing
   Session ("Message") =  "<p><a href='http://" & DomainName & "/login.asp'>恭喜您注册成功。<br>点击这里登陆进入您的帐户，开始您自由的网赚!</a></p>"
   Response.Redirect "success.asp"
  Response.End
%>
<p align="left">　</p>