admin_config.asp

这是一套基于WEB的网站管理系统

<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header 
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewCloud Site Management System Version 2.0.0
' 文件名称：admin_config.asp
' 更新日期：2004-11-20
' 官方网站：www.newasp.net   QQ：94022511
'=====================================================================
' Copyright 2002-2005 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=reload'><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 "reload"
		Call ReloadCache
	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
	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, "|||")
%>
<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>&nbsp;网站基本信息<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%>">&nbsp;* 
			<font color="#FF0000">系统自动获取，无需手动输入</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>&nbsp;系统邮件设置<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>&nbsp;注册用户设置<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">
			&nbsp;<!--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>&nbsp;系统基本设置<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">
			&nbsp;<!--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")%>>新云上传组件</option>
			<option value="2"<%If CInt(Newasp.UploadClass) = 2 Then Response.Write (" selected")%>>Lyfupload组件</option>
			</select><div id="know2"></div></td>
		</tr>
		<tr>
			<td class="TableRow2"><div class="divbody">上传文件大小： 单位(KB)</div></td>
			<td class="TableRow2">
			<input type="text" name="UploadFileSize" size="15" value="<%=Newasp.UploadFileSize%>"> <b>KB</></td>
		</tr>
		<tr>
			<td class="TableRow1"><div class="divbody">上传文件类型： 请用“|”分开</div></td>
			<td class="TableRow1">
			<input type="text" name="UploadFileType" size="60" value="<%=Newasp.UploadFileType%>"></td>
		</tr>
		<tr>
			<td class="TableRow2"><div class="divbody">是否关闭友情连接申请：</div></td>
			<td class="TableRow2">
			<input type="radio" name="StopApplyLink" value="1"<%If CInt(Newasp.StopApplyLink) = 1 Then Response.Write (" checked")%>> 关闭 
			<input type="radio" name="StopApplyLink" value="0"<%If CInt(Newasp.StopApplyLink) = 0 Then Response.Write (" checked")%>> 打开</td>
		</tr>
		<tr>
			<td class="TableRow1"><div class="divbody">FSO组件的名称：<br>
			FSO默认名称：Scripting.FileSystemObject</div></td>
			<td class="TableRow1">
			<input type="text" name="FSO_ScriptName" size="35" value="<%=Newasp.FSO_ScriptName%>"><br>
			某些网站为了安全，将FSO组件的名称进行更改以达到禁用FSO的目的。如果你的网站是这样做的，请在此输入更改过的名称。</div></td>
		</tr>
		<tr>
			<td class="TableRow2"><div class="divbody">初始标题颜色：</div><br>
			每个颜色的值请的“,”分开</td>
			<td class="TableRow2"><textarea rows="3" name="InitTitleColor" cols="60"><%=Newasp.InitTitleColor%></textarea></td>
		</tr>
		<tr style="display:none">
			<td class="TableRow1"><div class="divbody">请选择在线支付功能：</div></td>
			<td class="TableRow1">
			<input type="radio" name="StopBankPay" value="0"<%If CInt(Newasp.StopBankPay) = 0 Then Response.Write (" checked")%>> 关闭在线支付&nbsp;&nbsp;
			<input type="radio" name="StopBankPay" value="1"<%If CInt(Newasp.StopBankPay) = 1 Then Response.Write (" checked")%>> NPS 在线支付&nbsp;&nbsp;
			<input type="radio" name="StopBankPay" value="2"<%If CInt(Newasp.StopBankPay) = 2 Then Response.Write (" checked")%>> 网银在线支付&nbsp;&nbsp;
			<br><font color=blue>* 如果你还没开通NPS在线支付，请<a href="http://www.nps.cn/merchant/join_agreement.jsp" target="_blank"><font color=RED><strong>点此开通NPS在线支付</strong></font></a>吧</font>
			<br><font color=blue>* 如果你还没开通网银在线支付，请<a href="http://www.chinaebank.cn/" target="_blank"><font color=RED><strong>点此开通中国网银在线支付</strong></font></a>吧</font>
			</td>
		</tr>
		<tr style="display:none">
			<td class="TableRow2"><div class="divbody">在线支付 ID：（<a href="http://www.nps.cn/" target="_blank">NPS</a>或者<a href="http://www.chinaebank.cn/" target="_blank">网银在线</a>ID）</div></td>
			<td class="TableRow2">