📄 setup.asp
字号:
<%@ LANGUAGE = VBScript %>
<!--#include file="conn.asp"-->
<!--#include file="checklogin.asp"-->
<%
rs.Open "Select * From config",Conn
DomainName = rs ("DomainName")
SiteTitle = rs ("SiteTitle")
MailSever = rs ("MailSever")
MailUser = rs ("MailUser")
MailPW = rs ("MailPW")
EmailAddress = rs ("EmailAddress")
MailSever2 = rs ("MailSever2")
MailUser2 = rs ("MailUser2")
MailPW2 = rs ("MailPW2")
EmailAddress2 = rs ("EmailAddress2")
SetGroup = rs ("SetGroup")
SetLine = rs ("SetLine")
MoneyBookersAccount = rs ("MoneyBookersAccount")
OffLine = rs ("OffLine")
ContinueClick = rs ("ContinueClick")
rs.Close
rs.Open "Select * From setup Where AdminUserName = '" & AdminUserName & "' And AdminPassWord = '" & AdminPassWord & "'",Conn
If rs.EOF Then
rs.Close
Set rs = nothing
Conn.Close
Set Conn = nothing
Session ("Message") = "管理员密码错误。"
Response.Redirect "error.asp"
Response.End
End If
SignupPoints = rs ("SignupPoints")
SignupBonus = rs ("SignupBonus")
SignupPoints_Redeem = rs ("SignupPoints_Redeem")
SignupBonus_Redeem = rs ("SignupBonus_Redeem")
EarnFromRef = rs ("EarnFromRef")
EarnFromRef2 = rs ("EarnFromRef2")
EarnFromRef3 = rs ("EarnFromRef3")
EarnFromRef4 = rs ("EarnFromRef4")
EarnFromRef5 = rs ("EarnFromRef5")
EarnFromRef6 = rs ("EarnFromRef6")
MoneyBookersFee = rs ("MoneyBookersFee")
RedeemLimit1 = rs ("RedeemLimit1")
RedeemLimit2 = rs ("RedeemLimit2")
RedeemLimit3 = rs ("RedeemLimit3")
RedeemLimit4 = rs ("RedeemLimit4")
RedeemLimit5 = rs ("RedeemLimit5")
RedeemLimit6 = rs ("RedeemLimit6")
RedeemLimit7 = rs ("RedeemLimit7")
RedeemLimit8 = rs ("RedeemLimit8")
RedeemLimit9 = rs ("RedeemLimit9")
RedeemLimit10 = rs ("RedeemLimit10")
RedeemLimit11 = rs ("RedeemLimit11")
RedeemLimit12 = rs ("RedeemLimit12")
RedeemLimit13 = rs ("RedeemLimit13")
RedeemLimit14 = rs ("RedeemLimit14")
RedeemLimit15 = rs ("RedeemLimit15")
RedeemLimit16 = rs ("RedeemLimit16")
RedeemLimit17 = rs ("RedeemLimit17")
RedeemLimit18 = rs ("RedeemLimit18")
RedeemLimit19 = rs ("RedeemLimit19")
RedeemLimit20 = rs ("RedeemLimit20")
RedeemDescription1 = rs ("RedeemDescription1")
RedeemDescription2 = rs ("RedeemDescription2")
RedeemDescription3 = rs ("RedeemDescription3")
RedeemDescription4 = rs ("RedeemDescription4")
RedeemDescription5 = rs ("RedeemDescription5")
RedeemDescription6 = rs ("RedeemDescription6")
RedeemDescription7 = rs ("RedeemDescription7")
RedeemDescription8 = rs ("RedeemDescription8")
RedeemDescription9 = rs ("RedeemDescription9")
RedeemDescription10 = rs ("RedeemDescription10")
RedeemDescription11 = rs ("RedeemDescription11")
RedeemDescription12 = rs ("RedeemDescription12")
RedeemDescription13 = rs ("RedeemDescription13")
RedeemDescription14 = rs ("RedeemDescription14")
RedeemDescription15 = rs ("RedeemDescription15")
RedeemDescription16 = rs ("RedeemDescription16")
RedeemDescription17 = rs ("RedeemDescription17")
RedeemDescription18 = rs ("RedeemDescription18")
RedeemDescription19 = rs ("RedeemDescription19")
RedeemDescription20 = rs ("RedeemDescription20")
rs.Close
Set rs = nothing
Conn.Close
Set Conn = nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link REL="StyleSheet" HREF="../tjscripts.css" TYPE="text/css" MEDIA="screen">
<title><%= SiteTitle %>后台管理系统</title>
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<table border="1" cellspacing="1" width="760" bordercolor="#0033CC">
<tr>
<td width="100%" height="31" bgcolor="#FFCC00"><b>参数设定</b></td>
</tr>
<tr>
<td width="100%" align="center">
<form method="POST" action="setup_do.asp">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="95%">
<tr>
<td width="25%" align="center" height="30">管理员用户名</td>
<td width="25%" align="center" height="30"><input type="text" name="AdminUserName" size="20" value="<%= AdminUserName %>"></td>
<td width="25%" align="center" height="30">管理员密码</td>
<td width="25%" align="center" height="30"><input type="password" name="AdminPassWord" size="20" value="<%= AdminPassWord %>"></td>
</tr>
<tr>
<td width="100%" align="center" height="30" colspan="4"> </td>
</tr>
<tr>
<td width="25%" align="center" height="30">网站域名</td>
<td width="25%" align="center" height="30"> <font size="3" color="#FF0000"><b><%= DomainName %>
<input type="hidden" name="DomainName" value="<%= DomainName %>">
</b></font> </td>
<td width="25%" align="center" height="30">网站标题</td>
<td width="25%" align="center" height="30"><input type="text" name="SiteTitle" size="20" value="<%= SiteTitle %>"></td>
</tr>
<tr>
<td width="25%" align="center" height="30">SMTP发信服务器</td>
<td width="25%" align="center" height="30"><input name="MailSever" size="20" value="<%= MailSever %>"></td>
<td width="25%" align="center" height="30">邮件帐户用户名</td>
<td width="25%" align="center" height="30"><input name="MailUser" size="20" value="<%= MailUser %>"></td>
</tr>
<tr>
<td width="25%" align="center" height="30">邮件帐户密码</td>
<td width="25%" align="center" height="30"><input type="password" name="MailPW" size="20" value="<%= MailPW %>"></td>
<td width="25%" align="center" height="30">收信电子邮件地址</td>
<td width="25%" align="center" height="30"><input type="text" name="EmailAddress" size="20" value="<%= EmailAddress %>"></td>
</tr>
<tr>
<td width="25%" align="center" height="30">SMTP发信服务器II（选填）</td>
<td width="25%" align="center" height="30"><input name="MailSever2" size="20" value="<%= MailSever2 %>"></td>
<td width="25%" align="center" height="30">邮件帐户用户名II（选填）</td>
<td width="25%" align="center" height="30"><input name="MailUser2" size="20" value="<%= MailUser2 %>"></td>
</tr>
<tr>
<td width="25%" align="center" height="30">邮件帐户密码II（选填）</td>
<td width="25%" align="center" height="30"><input type="password" name="MailPW2" size="20" value="<%= MailPW2 %>"></td>
<td width="25%" align="center" height="30">收信电子邮件地址II（选填）</td>
<td width="25%" align="center" height="30"><input type="text" name="EmailAddress2" size="20" value="<%= EmailAddress2 %>"></td>
</tr>
<tr>
<td width="25%" align="center" height="30">线程数</td>
<td width="25%" align="center" height="30"><input name="SetGroup" size="20" value="<%= SetGroup %>"></td>
<td width="25%" align="center" height="30">每线程发送数</td>
<td width="25%" align="center" height="30"><input name="SetLine" size="20" value="<%= SetLine %>"></td>
</tr>
<tr>
<td width="25%" align="center" height="30">支付宝帐户</td>
<td width="25%" align="center" height="30"><input name="MoneyBookersAccount" size="20" value="<%= MoneyBookersAccount %>"></td>
<td width="25%" align="center" height="30">支付宝手续费</td>
<td width="25%" align="center" height="30"><input name="MoneyBookersFee" size="20" value="<%= MoneyBookersFee %>"></td>
</tr>
<tr>
<td width="25%" align="center" height="30">可否连点</td>
<% If ContinueClick = True Then %>
<td width="25%" align="center" height="30"><input type="checkbox" name="ContinueClick" value="ON" checked></td>
<% Else %>
<td width="25%" align="center" height="30"><input type="checkbox" name="ContinueClick" value="ON"></td>
<% End If %>
<td width="25%" align="center" height="30">是否关闭</td>
<% If OffLine = True Then %>
<td width="25%" align="center" height="30"><input type="checkbox" name="OffLine" value="ON" checked></td>
<% Else %>
<td width="25%" align="center" height="30"><input type="checkbox" name="OffLine" value="ON"></td>
<% End If %>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -