📄 config.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/publicfun.asp"-->
<%
FunCode="F999"
session("title")="系统配置"
session("headline")="首页 -> 注册系统 -> 系统配置"
%>
<!--#include file="../inc/head2.asp"-->
<%
if request("act")="config" then
if request("B1") ="测试主控端是否连通" then
call PING()
else
call Save()
end if
end if
sub Save()
'config_list = "MAILFROM,MAILFROMNAME,MAILUSER,MAILPASSWORD,MAILSERVER,MAILADMINEMAIL,COMIMG,COMNAME,CERT,DOMAIN_EN,DOMAIN_CH,DOMAIN_CHINESE,CUR,SPLITCHAR,DOMAIN_ONLINE,REGEMAIL,OrderEMAIL,HANDLEEMAIL,DBEMAIL,GETPASSEMAIL,3721,DOMAIN_RESOLVER,dns1,dns1ip,dns2,dns2ip,URLRDOMAIN,MENUSTYLE,SoftNAME,SoftVer,OrderLimit,PageSize,DomainOnLineReg,DomainOnLineRegUser,DomainOnLineRegPass,ProductOnLineHandle,ProductOnLineHandleIP,ProductOnLineHandlePort,ProductOnLineHandleUser,ProductOnLineHandlePass,ProductOnLineHandleGroup,ProductOnLineHandleDns,SiteType,MasterURL,AgentUserName,AgentUserPass"
config_list = "COMIMG,COMNAME,CERT,DOMAIN_EN,DOMAIN_CH,DOMAIN_CHINESE,CUR,SPLITCHAR,DOMAIN_ONLINE,3721,DOMAIN_RESOLVER,dns1,dns1ip,dns2,dns2ip,URLRDOMAIN,MENUSTYLE,SoftNAME,SoftVer,OrderLimit,PageSize,DomainOnLineReg,DomainOnLineRegUser,DomainOnLineRegPass,ProductOnLineHandle,ProductOnLineHandleIP,ProductOnLineHandlePort,ProductOnLineHandleUser,ProductOnLineHandlePass,ProductOnLineHandleGroup,ProductOnLineHandleDns,SiteType,MasterURL,AgentUserName,AgentUserPass"
conn.execute("delete from config")
RArrary = split(config_list,",")
for each obj in RArrary
strTmp = request(obj)
conn.Execute("insert into config(name,config) values('"&obj&"','"&strTmp&"')")
next
set rs=server.createobject("adodb.recordset")
sql="select * from config "
rs.open sql,conn,1,1
do while not rs.eof
session(rs("name"))=rs("config")
rs.movenext
loop
rs.close
set rs=nothing
response.write"<SCRIPT language=JavaScript>alert('系统配置完成！');"
response.write "this.parent.location.href='../userlogin.asp';</SCRIPT></SCRIPT>"
response.end
end sub
sub PING()
session("ProductOnLineHandleIP") = request("ProductOnLineHandleIP")
session("ProductOnLineHandlePort") = request("ProductOnLineHandlePort")
session("ProductOnLineHandleUser") = request("ProductOnLineHandleUser")
session("ProductOnLineHandlePass") = request("ProductOnLineHandlePass")
set socketD=new PublicFun
socketD.fName="CfgGroupList"
socketD.ExecFun()
DnsRManage = socketD.oCode
ErrMsg = socketD.oMesg
if socketD.oCode = 0 then
response.write "祝贺你，主控端链接成功"
else
response.write "主控端链接失败:"& socketD.oMesg
end if
end SUB
set lqIP = server.CreateObject("lqhm.IP")
%>
<form method="POST" action="config.asp?act=config">
<br><br><br>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3
cellspacing=0 width=80% class="size09" align="center">
<tr>
<td colspan="2" bgcolor="#efefef" height="28">
<div align="center" class="color01">系统信息设置</div>
</td>
</tr>
<tr>
<td width="100" height="25">
<div align="center">机器码</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="25">
<input type="text" name="CERT_mode" size="40" maxlength="100" maxlength="100" class="form" disabled value="<%=lqIP.GetHostID()%>">
</td>
</tr>
<tr>
<td width="100" height="25">
<div align="center">注册码</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="25">
<input type="text" name="CERT" size="40" maxlength="100" maxlength="100" class="form" value="<%=session("CERT")%>"> 虚拟主机管理系统的注册码
</td>
</tr>
<tr>
<td width="100" height="25">
<div align="center">软件名称</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="25">
<input type="text" name="SoftNAME" size="30" maxlength="100" maxlength="100" class="form" value="<%=session("SoftNAME")%>">
</td>
</tr>
<tr>
<td width="100" height="25">
<div align="center">软件版本</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="25">
<input type="text" name="SoftVer" size="30" maxlength="100" maxlength="100" class="form" value="<%=session("SoftVer")%>">
</td>
</tr>
<tr>
<td width="100" height="25">
<div align="center">公司名称</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="25">
<input type="text" name="COMNAME" size="30" maxlength="100" maxlength="100" class="form" value="<%=session("COMNAME")%>">
</td>
</tr>
<tr>
<td width="100" height="25">
<div align="center">公司印章</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="25">
<input type="text" name="COMIMG" size="30" maxlength="100" class="form" value="<%=session("COMIMG")%>">
</td>
</tr>
<tr>
<td width="100" height="25">
<div align="center">界面风格</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="25">
<select name="MENUSTYLE">
<option value="0">流行风格
<option value="1"<% if session("MENUSTYLE") = "1" then response.write "selected"%>>目录树风格
<option value="2"<% if session("MENUSTYLE") = "2" then response.write "selected"%>>传统风格
</select>
</td>
</tr>
<tr>
<td width="100" height="25">
<div align="center">每页记录数</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="25">
<input type="text" name="PageSize" size="30" maxlength="100" class="form" value="<%=session("PageSize")%>">
</td>
</tr>
<tr>
<td width="100" height="25">
<div align="center">订单提交限制</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="25" align="left">
<select name="OrderLimit">
<option value="0">可以任意提交订单
<option value="1"<% if session("OrderLimit") = "1" then response.write "selected"%>>有足够金额才能提交订单
</select>
</td>
</tr>
<tr>
<td width="100" height="25">
<div align="center">配置域分隔符</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="25">
<input type="text" name="SPLITCHAR" size="3" maxlength="100" maxlength="100" class="form" value="<%=session("SPLITCHAR")%>"> 配置信息中各个域的分隔符
</td>
</tr>
<tr>
<td colspan="2" bgcolor="#efefef" height="28">
<div align="center" class="color01">站点类别设置 </div>
</td>
</tr>
<tr>
<td width="100" height="25">
<div align="center">站点类别</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="25">
<select name="SiteType">
<option value="1" <%if session("SiteType")="1" then response.write "selected" end if %>>主站</option>
<option value="2" <%if session("SiteType")="2" then response.write "selected" end if %>>代理网站</option>
</select> 代理网站需要设置下面的主站信息
</td>
</tr>
<tr>
<td width="100" height="25">
<div align="center">主站实时注册URL</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="25">
<input type="text" name="MasterURL" size="40" maxlength="200" maxlength="100" class="form" value="<%=session("MasterURL")%>"> 代理网站需要设置
</td>
</tr>
<tr>
<td width="100" height="25">
<div align="center">代理帐号</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="25">
<input type="text" name="AgentUserName" size="20" maxlength="200" maxlength="100" class="form" value="<%=session("AgentUserName")%>"> 代理网站需要设置</td>
</tr>
<tr>
<td width="100" height="25">
<div align="center">代理密码</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="25">
<input type="text" name="AgentUserPass" size="20" maxlength="200" maxlength="100" class="form" value="<%=session("AgentUserPass")%>"> 代理网站需要设置</td>
</tr>
<tr>
<td colspan="2" bgcolor="#efefef" height="28">
<div align="center" class="color01">在线开通设置[主站需要设置] <input type="submit" value="测试主控端是否连通" name="B1" style="text-align: center"></div>
</td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -