setup_do.asp

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

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

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

<%
  AdminUserName = Request ("AdminUserName")
  AdminPassWord = Request ("AdminPassWord")
  DomainName = Request ("DomainName")
  SiteTitle = Request ("SiteTitle")
  MailSever = Request ("MailSever")
  MailUser = Request ("MailUser")
  MailPW = Request ("MailPW")
  EmailAddress = Request ("EmailAddress")
  MailSever2 = Request ("MailSever2")
  MailUser2 = Request ("MailUser2")
  MailPW2 = Request ("MailPW2")
  EmailAddress2 = Request ("EmailAddress2")
  SetGroup = Request ("SetGroup")
  SetLine = Request ("SetLine")
  MoneyBookersAccount = Request ("MoneyBookersAccount")
  OffLine = Request ("OffLine")
  ContinueClick = Request ("ContinueClick")
  If OffLine <> "" Then
     OffLine = True
  Else
     OffLine = False
  End If
  If ContinueClick <> "" Then
     ContinueClick = True
  Else
     ContinueClick = False
  End If
  SignupPoints = Request ("SignupPoints")
  SignupBonus = Request ("SignupBonus")
  SignupPoints_Redeem = Request ("SignupPoints_Redeem")
  SignupBonus_Redeem = Request ("SignupBonus_Redeem")
  If SignupPoints_Redeem <> "" Then
     SignupPoints_Redeem = True
  Else
     SignupPoints_Redeem = False
  End If
  If SignupBonus_Redeem <> "" Then
     SignupBonus_Redeem = True
  Else
     SignupBonus_Redeem = False
  End If
  EarnFromRef = Request ("EarnFromRef")
  EarnFromRef2 = Request ("EarnFromRef2")
  EarnFromRef3 = Request ("EarnFromRef3")
  EarnFromRef4 = Request ("EarnFromRef4")
  EarnFromRef5 = Request ("EarnFromRef5")
  EarnFromRef6 = Request ("EarnFromRef6")
  MoneyBookersFee = Request ("MoneyBookersFee")
  RedeemDescription1 = Request ("RedeemDescription1")
  RedeemDescription2 = Request ("RedeemDescription2")
  RedeemDescription3 = Request ("RedeemDescription3")
  RedeemDescription4 = Request ("RedeemDescription4")
  RedeemDescription5 = Request ("RedeemDescription5")
  RedeemDescription6 = Request ("RedeemDescription6")
  RedeemDescription7 = Request ("RedeemDescription7")
  RedeemDescription8 = Request ("RedeemDescription8")
  RedeemDescription9 = Request ("RedeemDescription9")
  RedeemDescription10 = Request ("RedeemDescription10")
  RedeemDescription11 = Request ("RedeemDescription11")
  RedeemDescription12 = Request ("RedeemDescription12")
  RedeemDescription13 = Request ("RedeemDescription13")
  RedeemDescription14 = Request ("RedeemDescription14")
  RedeemDescription15 = Request ("RedeemDescription15")
  RedeemDescription16 = Request ("RedeemDescription16")
  RedeemDescription17 = Request ("RedeemDescription17")
  RedeemDescription18 = Request ("RedeemDescription18")
  RedeemDescription19 = Request ("RedeemDescription19")
  RedeemDescription20 = Request ("RedeemDescription20")
  RedeemLimit1 = Request ("RedeemLimit1")
  RedeemLimit2 = Request ("RedeemLimit2")
  RedeemLimit3 = Request ("RedeemLimit3")
  RedeemLimit4 = Request ("RedeemLimit4")
  RedeemLimit5 = Request ("RedeemLimit5")
  RedeemLimit6 = Request ("RedeemLimit6")
  RedeemLimit7 = Request ("RedeemLimit7")
  RedeemLimit8 = Request ("RedeemLimit8")
  RedeemLimit9 = Request ("RedeemLimit9")
  RedeemLimit10 = Request ("RedeemLimit10")
  RedeemLimit11 = Request ("RedeemLimit11")
  RedeemLimit12 = Request ("RedeemLimit12")
  RedeemLimit13 = Request ("RedeemLimit13")
  RedeemLimit14 = Request ("RedeemLimit14")
  RedeemLimit15 = Request ("RedeemLimit15")
  RedeemLimit16 = Request ("RedeemLimit16")
  RedeemLimit17 = Request ("RedeemLimit17")
  RedeemLimit18 = Request ("RedeemLimit18")
  RedeemLimit19 = Request ("RedeemLimit19")
  RedeemLimit20 = Request ("RedeemLimit20")
  rs.Open "Update config Set DomainName = '" & DomainName & "', SiteTitle = '" & SiteTitle & "', MailSever = '" & MailSever & "', MailUser = '" & MailUser & "', MailPW = '" & MailPW & "', EmailAddress = '" & EmailAddress & "', MailSever2 = '" & MailSever2 & "', MailUser2 = '" & MailUser2 & "', MailPW2 = '" & MailPW2 & "', EmailAddress2 = '" & EmailAddress2 & "', SetGroup = '" & SetGroup & "', SetLine = '" & SetLine & "', MoneyBookersAccount = '" & MoneyBookersAccount & "', OffLine = " & OffLine & ", ContinueClick = " & ContinueClick & "",Conn
  rs.Open "Update setup Set AdminUserName = '" & AdminUserName & "', AdminPassWord = '" & AdminPassWord & "', SignupPoints = '" & SignupPoints & "', SignupPoints_Redeem = " & SignupPoints_Redeem & ", SignupBonus = '" & SignupBonus & "', SignupBonus_Redeem = " & SignupBonus_Redeem & ", EarnFromRef = '" & EarnFromRef & "', EarnFromRef2 = '" & EarnFromRef2 & "', EarnFromRef3 = '" & EarnFromRef3 & "', EarnFromRef4 = '" & EarnFromRef4 & "', EarnFromRef5 = '" & EarnFromRef5 & "', EarnFromRef6 = '" & EarnFromRef6 & "',MoneyBookersFee = '" & MoneyBookersFee & "', RedeemDescription1 = '" & RedeemDescription1 & "', RedeemDescription2 = '" & RedeemDescription2 & "', RedeemDescription3 = '" & RedeemDescription3 & "', RedeemDescription4 = '" & RedeemDescription4 & "', RedeemDescription5 = '" & RedeemDescription5 & "', RedeemDescription6 = '" & RedeemDescription6 & "', RedeemDescription7 = '" & RedeemDescription7 & "', RedeemDescription8 = '" & RedeemDescription8 & "', RedeemDescription9 = '" & RedeemDescription9 & "', RedeemDescription10 = '" & RedeemDescription10 & "', RedeemDescription11 = '" & RedeemDescription11 & "', RedeemDescription12 = '" & RedeemDescription12 & "', RedeemDescription13 = '" & RedeemDescription13 & "', RedeemDescription14 = '" & RedeemDescription14 & "', RedeemDescription15 = '" & RedeemDescription15 & "', RedeemDescription16 = '" & RedeemDescription16 & "', RedeemDescription17 = '" & RedeemDescription17 & "', RedeemDescription18 = '" & RedeemDescription18 & "', RedeemDescription19 = '" & RedeemDescription19 & "', RedeemDescription20 = '" & RedeemDescription20 & "', RedeemLimit1 = '" & RedeemLimit1 & "', RedeemLimit2 = '" & RedeemLimit2 & "', RedeemLimit3 = '" & RedeemLimit3 & "', RedeemLimit4 = '" & RedeemLimit4 & "', RedeemLimit5 = '" & RedeemLimit5 & "', RedeemLimit6 = '" & RedeemLimit6 & "', RedeemLimit7 = '" & RedeemLimit7 & "', RedeemLimit8 = '" & RedeemLimit8 & "', RedeemLimit9 = '" & RedeemLimit9 & "', RedeemLimit10 = '" & RedeemLimit10 & "', RedeemLimit11 = '" & RedeemLimit11 & "', RedeemLimit12 = '" & RedeemLimit12 & "', RedeemLimit13 = '" & RedeemLimit13 & "', RedeemLimit14 = '" & RedeemLimit14 & "', RedeemLimit15 = '" & RedeemLimit15 & "', RedeemLimit16 = '" & RedeemLimit16 & "', RedeemLimit17 = '" & RedeemLimit17 & "', RedeemLimit18 = '" & RedeemLimit18 & "', RedeemLimit19 = '" & RedeemLimit19 & "', RedeemLimit20 = '" & RedeemLimit20 & "'",Conn
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "参数设定保存成功。"
  Response.Redirect "success.asp"
  Response.End
%>