📄 config_admin.asp
字号:
<!--#include file="admin.asp"-->
<%
on error resume next
url=replace(Request.ServerVariables("script_name"),"config_admin.asp","")
sql="select * from config"
rs.open sql,conn,1,3
if request("action")="save" then
chk_admin_login(3)
if not IsObjInstalled("jmail.message") and request.form("mailtype")="1" Then
ErrMsg("当前服务器不支持Jmail，请安装或改用其它邮件服务器！")
Response.End
end if
if not IsObjInstalled("CDONTS.NewMail") and request.form("mailtype")="2" Then
ErrMsg("当前服务器不支持CDONTS，请安装或改用其它邮件服务器！")
Response.End
end if
if not IsObjInstalled("Persits.MailSender") and request.form("mailtype")="3" Then
ErrMsg("当前服务器不支持AspEmail，请安装或改用其它邮件服务器！")
Response.End
end if
rs("version")="<a href=""http://www.9cool.net"" target=""_blank""><img src=""inc/9cool.gif"" border=""0"" alt=""Powered By 9Cool"" ></a>"
rs("site")=trim(request.form("site"))
siteurl=trim(request.form("siteurl"))
if right(siteurl,1)<>"/" then siteurl=siteurl&"/"
rs("siteurl")=siteurl
rs("SiteTitle")=trim(request.form("sitetitle"))
rs("logourl")=trim(request.form("logourl"))
rs("bannerurl")=trim(request.form("bannerurl"))
rs("siteemail")=trim(request.form("siteemail"))
rs("ftphost")=trim(request.form("ftphost"))
rs("filters")=trim(request.form("filters"))
rs("badip")=trim(request.form("badip"))
rs("regtime")=trim(request.form("regtime"))
rs("state")=trim(request.form("state"))
rs("point")=trim(request.form("point"))
rs("pay_gate")=trim(request.form("pay_gate"))
rs("userkill")=trim(request.form("userkill"))
rs("dvbbs")=trim(request.form("dvbbs"))
rs("mailtype")=trim(request.form("mailtype"))
rs("smtpserver")=trim(request.form("smtpserver"))
rs("smtpname")=trim(request.form("smtpname"))
rs("smtppass")=trim(request.form("smtppass"))
rs("CacheName")=trim(request.form("CacheName"))
rs.update
rs.close
response.write"<script>alert('系统配置修改成功！');location.href='config_admin.asp'</script>"
end if
%>
<html>
<head>
<title>系统设置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/admin.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="99%" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
<form name="coolform" action="?action=save" method="post" onSubmit="this.submit.disabled=true;">
<tr class="a1">
<td colspan="2">网站信息基本设置</td>
</tr>
<tr class="a3">
<td width="20%">网站名称：</td>
<td width="80%" height="23">
<input name="site" type="text" value="<%=rs("site")%>" size="30"></td>
</tr>
<tr class="a4">
<td>网站网址：</td>
<td>
<input name="siteurl" type="text" value="<%=rs("siteurl")%>" size="30">
<script>
autositeurl="http://<%=Request.ServerVariables("server_name")%><%=left(url,instrRev(url,"/",len(url)-1))%>"
if (autositeurl != '<%=rs("siteurl")%>'){
document.write("系统自动检测到的URL：<font color=FF0000>"+autositeurl+"</font>");
}
</script></td>
</tr>
<tr class="a3">
<td>网站Title显示：</td>
<td>
<input name="sitetitle" type="text" value="<%=rs("SiteTitle")%>" size="30"> </td>
</tr>
<tr class="a4">
<td>Logo地址：</td>
<td>
<input name="logourl" type="text" value="<%=rs("logourl")%>" size="30">
88×31像素 LOGO</td>
</tr>
<tr class="a3">
<td>网站左上角标志地址：</td>
<td>
<input name="bannerurl" type="text" value="<%=rs("bannerurl")%>" size="30">
推荐使用200×65像素，Gif或Jpg等格式</td>
</tr>
<tr class="a4">
<td>管理员Email:</td>
<td><input name="siteemail" type="text" value="<%=rs("siteemail")%>" size="30">
用于网站底部显示</td>
</tr>
<tr class="a3">
<td>FTP主机IP：</td>
<td><input name="ftphost" type="text" value="<%=rs("ftphost")%>" size="30">
<script>
autoip="<%=Request.ServerVariables("LOCAL_ADDR")%>"
if (autoip != '<%=rs("ftphost")%>'){
document.write("系统自动检测到的IP：<font color=FF0000>"+autoip+"</font>");
}
</script> </td>
</tr>
<tr class="a4">
<td>禁用或保留的用户名：</td>
<td><input name="filters" type="text" id="filters" value="<%=rs("filters")%>" size="30">
多个用户名请使用"|"分隔 </td>
</tr>
<tr class="a3">
<td>禁止访问的IP：</td>
<td><input name="badip" type="text" value="<%=rs("badip")%>" size="30">
多个IP请使用"|"分隔</td>
</tr>
<tr class="a4">
<td>服务条款显示时间：</td>
<td><input name="regtime" type="text" value="<%=rs("regtime")%>" size="6">
秒 </td>
</tr>
<tr class="a3">
<td>缓存名称：</td>
<td><input name="CacheName" type="text" id="CacheName" size="30" value="<%=rs("CacheName")%>">
如果一个站点有多个9cool系统请更改成不同名称</td>
</tr>
<tr class="a4">
<td>网站状态：</td>
<td><input type="radio" name="state" value="True" <%if rs("state")=True then response.write "checked"%>>
打开
<input type="radio" name="state" value="False" <%if rs("state")=False then response.write "checked"%>>
关闭 </td>
</tr>
<tr class="a3">
<td>推荐一个用户增加积分：</td>
<td><input name="point" type="text" value=<%=rs("point")%>>
填数字 </td>
</tr>
<tr class="a4">
<td>在线支付接口：</td>
<td> <select name="pay_gate" id="pay_gate">
<option value="0" <%if rs("pay_gate")=0 then Response.Write(" selected")%>>不使用</option>
<option value="1" <%if rs("pay_gate")=1 then Response.Write(" selected")%>>云网支付</option>
<option value="2" <%if rs("pay_gate")=2 then Response.Write(" selected")%>>易宝支付</option>
<option value="3" <%if rs("pay_gate")=3 then Response.Write(" selected")%>>网银在线</option>
</select>
如开通在线支付，请相应的修改pay/config.asp参数</td>
</tr>
<tr class="a3">
<td>帐户自杀功能</td>
<td><input type="radio" name="userkill" value="True" <%if rs("userkill")=True then response.write "checked"%>>
打开
<input type="radio" name="userkill" value="False" <%if rs("userkill")=False then response.write "checked"%>>
关闭 </td>
</tr>
<tr class="a4">
<td>整合动网论坛</td>
<td><input type="radio" name="dvbbs" value="True" <%if rs("dvbbs")=True then response.write "checked"%>>
打开
<input type="radio" name="dvbbs" value="False" <%if rs("dvbbs")=False then response.write "checked"%>>
关闭 </td>
</tr>
<tr class="a1">
<td colspan="2">发送邮件参数设置</td>
</tr>
<tr class="a4">
<td>发送邮件组件</td>
<td>
<select name="mailtype">
<option value="0">关闭</option>
<option value="1" <%if rs("mailtype")=1 then%>selected<%end if%>>JMAIL</option>
<option value="2" <%if rs("mailtype")=2 then%>selected<%end if%>>CDONTS</option>
<option value="3" <%if rs("mailtype")=3 then%>selected<%end if%>>ASPEMAIL</option>
</select>
如选择关闭，系统相关邮件发送功能将失效，推荐使用Jmail</td>
</tr>
<tr class="a3">
<td>SMTP Server地址：</td>
<td>
<input name="smtpserver" type="text" value="<%=rs("smtpserver")%>" size="30">
填写邮件服务器的IP或域名如: smtp.163.com</td>
</tr>
<tr class="a4">
<td> Smtp邮件帐号： </td>
<td>
<input name="smtpname" type="text" value="<%=rs("smtpname")%>" size="30">
一般像企业邮局要填写完整的E-mail地址，免费邮箱(如163)只需填用户名即可</td>
</tr>
<tr class="a3">
<td> Smtp帐号密码： </td>
<td>
<input name="smtppass" type="password" value="<%=rs("smtppass")%>" size="30">
系统邮箱登陆密码</td>
</tr>
<tr class="a4">
<td colspan="2" align="center">
<input name="submit" type="submit" id="submit" value=" 确 定 "></td>
</tr>
</form>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -