📄 admin_config.asp
字号:
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称：四博CMS网站管理系统 2008 sp3
' 当前版本：dincoo.com
' 文件名称：admin_config.asp
' 更新日期：2006-11-20
' 官方网站：www.newasp.net QQ：94022511
'=====================================================================
' Copyright 2003-2007 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Response.Write "<table border=0 align=center cellspacing=1 class=TableBorder cellpadding=3>"
Response.Write " <tr>"
Response.Write " <th>网站基本配置管理</th>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=TableRow><a href='admin_config.asp#setting1'>系统基本信息</a> |"
Response.Write " <a href='admin_config.asp#setting2'>系统邮件设置</a> | "
Response.Write " <a href='admin_config.asp#setting3'>注册用户设置</a> | "
Response.Write " <a href='admin_config.asp#setting4'>系统基本设置</a> |"
Response.Write " <a href='admin_config.asp#setting5'>过滤字符设置</a> |"
Response.Write " <a href='?action=edit'><font color=blue>内容关键字设置</font></a> |"
Response.Write " <a href='?action=ad'><font color=red>站点代码广告管理</font></a></td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<br>"
Dim Action
Action = Newasp.RemoveBadCharacters(Request("action"))
If Not ChkAdmin("SiteConfig") Then
Server.Transfer("showerr.asp")
Request.End
End If
Select Case LCase(Action)
Case "save"
Call SaveConfig
Case "ad"
Call siteAdsCode
Case "savead"
Call saveAdsCode
Case "edit"
Call EditContentKeyword
Case "savedit"
Call SaveContentKeyword
Case Else
Call MainPage
End Select
If FoundErr = True Then
ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
Private Sub MainPage()
Dim RootDirStr,SiteRootDir
Dim ChinaeBankPay,PreviewSetting
RootDirStr = Left(LCase(Request.ServerVariables("SCRIPT_NAME")), InStrRev(LCase(Request.ServerVariables("SCRIPT_NAME")), "/") - 1)
SiteRootDir = Left(RootDirStr, InStrRev(RootDirStr, "/"))
SiteRootDir = Trim(SiteRootDir)
ChinaeBankPay = Split(Newasp.ChinaeBank, "|||")
PreviewSetting = Split(Newasp.PreviewSetting, ",")
If UBound(PreviewSetting) < 15 Then
PreviewSetting = Split("999,1,2,110,90,www.newasp.cn,12,#FF0000,Arial,0,images/WaterMap.gif,0.8,#0066FF,100,35,0", ",")
End If
%>
<iframe width="260" height="165" id="colourPalette" src="include/selcolor.htm" style="visibility:hidden; position: absolute; left: 0px; top: 0px;border:1px gray solid" frameborder="0" scrolling="no" ></iframe>
<div onkeydown=CtrlEnter()>
<table border="0" align="center" cellspacing="1" class="TableBorder" cellpadding="3">
<tr>
<th align="left"><img src="images/welcome.gif" width="16" height="17" align="absMiddle"> 网站基本设置</th>
</tr>
<form name=myform method="POST" action="?action=save">
<tr>
<td class="TableRow1">
<fieldset style="cursor: default"><legend> 网站基本信息<a name="setting2"></a>[<a href="#top">顶部</a>]</legend><table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder2">
<tr>
<td class="TableRow1" width="35%"><div class="divbody">网站名称：</div></td>
<td class="TableRow1" width="65%">
<input type="text" name="SiteName" size="35" value="<%=Newasp.SiteName%>"></td>
</tr>
<tr>
<td class="TableRow2"><div class="divbody">网站URL：</div></td>
<td class="TableRow2"><input type="text" name="SiteUrl" size="35" value="<%=RootPath2DomainPath("")%>">
<font color="#FF0000">系统自动获取，请不要修改</font></td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">管理员Email：</div></td>
<td class="TableRow1">
<input type="text" name="MasterMail" size="25" value="<%=Newasp.MasterMail%>"></td>
</tr>
<tr>
<td class="TableRow2"><div class="divbody">首页文件名：</div></td>
<td class="TableRow2"><input type="text" name="IndexName" size="25" value="<%=Newasp.IndexName%>"></td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">系统所在根目录：</div></td>
<td class="TableRow1">
<input type="text" size="25" value="<%=Newasp.InstallDir%>" disabled>
<input type=hidden name="InstallDir" value="<%=SiteRootDir%>"> *
<font color="#FF0000">系统自动获取，无需手动输入</font></td>
</tr>
<tr>
<td class="TableRow2"><div class="divbody"><font color="red">迅雷|快车联盟ID：<br>如果要关闭联盟专用下载地址，请输入“0”</font></div></td>
<td class="TableRow2"><input type="text" name="ThunderPid" size="25" value="<%=Newasp.ThunderPid%>">
<font color="blue">* 输入联盟ID后，请到<a href="admin_server.asp?ChannelID=2"><font color="red">下载服务器</font></a>中设置一个迅雷或快车专用下载路径。</font>
<br><font color="blue">* 如果你还没注册迅雷或快车联盟，请点此注册<a href="http://union.xunlei.com/" target="_blank"><font color="red"><strong>迅雷联盟</strong></font></a>|<a href="http://union.flashget.com/" target="_blank"><font color="red"><strong>快车联盟</strong></font></a>吧，为你的网站带来收入。</font><br />
<font color="red">* 注意：迅雷和快车的ID之间请用“|”分开，如：迅雷ID|快车ID；第一个是迅雷ID，第二个才是快车ID，如只要快车联盟就这样输入：0|快车联盟ID</font></td>
</tr>
<tr>
<td class="TableRow2"><div class="divbody">站点关键字：<br>
将被搜索引擎用来搜索您网站的关键内容</div></td>
<td class="TableRow2"><textarea rows="3" name="keywords" cols="60"><%=Newasp.keywords%></textarea></td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">网站版权信息：</div></td>
<td class="TableRow1" width="65%">
<textarea rows="5" name="Copyright" cols="60"><%=Newasp.Copyright%></textarea></td>
</tr>
<tr>
<td class="TableRow2"><div class="divbody">是否关闭网站：</div></td>
<td class="TableRow2">
<input type="radio" name="IstopSite" value="1"<%If CInt(Newasp.IstopSite) = 1 Then Response.Write (" checked")%>> 关闭
<input type="radio" name="IstopSite" value="0"<%If CInt(Newasp.IstopSite) = 0 Then Response.Write (" checked")%>> 打开</td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">网站维护说明：<br>支持HTML方法,不能超过250个字符</div></td>
<td class="TableRow1">
<textarea rows="5" name="StopReadme" cols="60"><%=Newasp.StopReadme%></textarea></td>
</tr>
</table></fieldset>
<br>
<fieldset style="cursor: default"><legend> 系统邮件设置<a name="setting2"></a>[<a href="#top">顶部</a>]</legend><table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder2">
<tr>
<td class="TableRow2" width="35%"><div class="divbody">是否关闭邮件功能：</div></td>
<td class="TableRow2">
<input type="radio" name="IsCloseMail" value="1"<%If CInt(Newasp.IsCloseMail) = 1 Then Response.Write (" checked")%>> 关闭
<input type="radio" name="IsCloseMail" value="0"<%If CInt(Newasp.IsCloseMail) = 0 Then Response.Write (" checked")%>> 打开</td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">发送邮件的组件：</div></td>
<td class="TableRow1"><select size="1" name="SendMailType" onChange="chkselect(options[selectedIndex].value,'know1');">
<option value="0"<%If CInt(Newasp.SendMailType) = 0 Then Response.Write (" selected")%>>不支持</option>
<option value="1"<%If CInt(Newasp.SendMailType) = 1 Then Response.Write (" selected")%>>JMAIL</option>
<option value="2"<%If CInt(Newasp.SendMailType) = 2 Then Response.Write (" selected")%>>CDONTS</option>
<option value="3"<%If CInt(Newasp.SendMailType) = 3 Then Response.Write (" selected")%>>ASPEMAIL</option>
</select><div id=know1></div></td>
</tr>
<tr>
<td class="TableRow2"><div class="divbody">系统管理员Email：<br>
给用户发送邮件时，显示的来源Email信息</div></td>
<td class="TableRow2">
<input type="text" name="MailFrom" size="25" value="<%=Newasp.MailFrom%>"></td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">SMTP Server地址：</div></td>
<td class="TableRow1">
<input type="text" name="MailServer" size="25" value="<%=Newasp.MailServer%>"></td>
</tr>
<tr>
<td class="TableRow2"><div class="divbody">邮件登录用户名：</div></td>
<td class="TableRow2">
<input type="text" name="MailUserName" size="25" value="<%=Newasp.MailUserName%>"></td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">邮件登录密码：</div></td>
<td class="TableRow1">
<input type="password" name="MailPassword" size="25" value="<%=Newasp.MailPassword%>"></td>
</tr>
</table></fieldset>
<br>
<fieldset style="cursor: default"><legend> 注册用户设置<a name="setting3"></a>[<a href="#top">顶部</a>]</legend><table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder2">
<tr>
<td class="TableRow2" width="35%"><div class="divbody">是否允许新用户注册：</div></td>
<td class="TableRow2">
<input type="radio" name="CheckUserReg" value="0"<%If CInt(Newasp.CheckUserReg) = 0 Then Response.Write (" checked")%>> 否
<input type="radio" name="CheckUserReg" value="1"<%If CInt(Newasp.CheckUserReg) = 1 Then Response.Write (" checked")%>> 是</td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">注册会员是否要管理员认证：</div></td>
<td class="TableRow1">
<input type="radio" name="AdminCheckReg" value="0"<%If CInt(Newasp.AdminCheckReg) = 0 Then Response.Write (" checked")%>> 否
<input type="radio" name="AdminCheckReg" value="1"<%If CInt(Newasp.AdminCheckReg) = 1 Then Response.Write (" checked")%>> 是</td>
</tr>
<tr>
<td class="TableRow2"><div class="divbody">注册会员是否Email通知密码：<br>确认您的站点支持发送mail，所包含密码为系统随机生成</div></td>
<td class="TableRow2">
<input type="radio" name="MailInformPass" value="0"<%If CInt(Newasp.MailInformPass) = 0 Then Response.Write (" checked")%>> 关闭
<input type="radio" name="MailInformPass" value="1"<%If CInt(Newasp.MailInformPass) = 1 Then Response.Write (" checked")%>> 打开</td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">一个Email只能注册一个会员：</div></td>
<td class="TableRow1">
<input type="radio" name="ChkSameMail" value="0"<%If CInt(Newasp.ChkSameMail) = 0 Then Response.Write (" checked")%>> 关闭
<input type="radio" name="ChkSameMail" value="1"<%If CInt(Newasp.ChkSameMail) = 1 Then Response.Write (" checked")%>> 打开</td>
</tr>
<tr>
<td class="TableRow2"><div class="divbody">发送注册邮件信息：<br>请确认您打开了邮件功能</div></td>
<td class="TableRow2">
<input type="radio" name="SendRegMessage" value="0"<%If CInt(Newasp.SendRegMessage) = 0 Then Response.Write (" checked")%>> 关闭
<input type="radio" name="SendRegMessage" value="1"<%If CInt(Newasp.SendRegMessage) = 1 Then Response.Write (" checked")%>> 打开</td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">注册会员增加的点数：<br>
请输入整数</div></td>
<td class="TableRow1">
<!--webbot bot="Validation" s-display-name="请输入整数" s-data-type="Integer" s-number-separators="," --><input type="text" name="AddUserPoint" size="15" value="<%=Newasp.AddUserPoint%>"></td>
</tr>
</table></fieldset>
<br>
<fieldset style="cursor: default"><legend> 系统基本设置<a name="setting4"></a>[<a href="#top">顶部</a>]</legend><table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder2">
<tr>
<td class="TableRow2" width="35%"><div class="divbody">是否开启全文搜索：<br>
全文搜索占用服务器资源不建议开启</div></td>
<td class="TableRow2">
<input type="radio" name="FullContQuery" value="0"<%If CInt(Newasp.FullContQuery) = 0 Then Response.Write (" checked")%>> 否
<input type="radio" name="FullContQuery" value="1"<%If CInt(Newasp.FullContQuery) = 1 Then Response.Write (" checked")%>> 是</td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">删除不活动用户时间：<br>
单位：分钟，请输入数字</div></td>
<td class="TableRow1">
<!--webbot bot="Validation" s-display-name="请输入整数" s-data-type="Integer" s-number-separators="," --><input type="text" name="ActionTime" size="15" value="<%=Newasp.ActionTime%>"></td>
</tr>
<tr>
<td class="TableRow2"><div class="divbody">是否显示页面执行时间：</div></td>
<td class="TableRow2">
<input type="radio" name="IsRunTime" value="0"<%If CInt(Newasp.IsRunTime) = 0 Then Response.Write (" checked")%>> 否
<input type="radio" name="IsRunTime" value="1"<%If CInt(Newasp.IsRunTime) = 1 Then Response.Write (" checked")%>> 是</td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">选取上传组件：</div></td>
<td class="TableRow1"><select size="1" name="UploadClass" onChange="chkselect(options[selectedIndex].value,'know2');">
<option value="999"<%If CInt(Newasp.UploadClass) = 999 Then Response.Write (" selected")%>>关闭上传功能</option>
<option value="0"<%If CInt(Newasp.UploadClass) = 0 Then Response.Write (" selected")%>>无组件上传类</option>
<option value="1"<%If CInt(Newasp.UploadClass) = 1 Then Response.Write (" selected")%>>Aspupload3.0组件</option>
<option value="2"<%If CInt(Newasp.UploadClass) = 2 Then Response.Write (" selected")%>>SA-FileUp 4.0组件</option>
</select><div id="know2"></div></td>
</tr>
<tr>
<td class="TableRow2"><div class="divbody">上传文件大小： 单位(KB)</div></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -