⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_config.asp

📁 这是一套基于WEB的网站管理系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
			<input type="text" name="ChinaeBank1" size="30" value="<%=ChinaeBankPay(0)%>"></td>
		</tr>
		<tr style="display:none">
			<td class="TableRow1"><div class="divbody">在线支付KEY：（<a href="http://www.nps.cn/" target="_blank">NPS</a>或者<a href="http://www.chinaebank.cn/" target="_blank">网银在线</a>密钥）</div></td>
			<td class="TableRow1">
			<input type="password" name="ChinaeBank2" size="30" value="<%=ChinaeBankPay(1)%>"></td>
		</tr>
		<tr style="display:none">
			<td class="TableRow2"><div class="divbody">在线支付手续费： 单位（百分比）</div></td>
			<td class="TableRow2">
			<input type="text" name="ChinaeBank3" size="5" value="<%=ChinaeBankPay(2)%>"> ％&nbsp;&nbsp;
			<font color=blue>* 如果不对用户增加相应的手续费请输入0</font></td>
		</tr>
	</table></fieldset>
	<br>
	<fieldset style="cursor: default"><legend>&nbsp;过滤字符设置<a name="setting5"></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">过滤字符：<br>
			请用“|”分开</div></td>
			<td class="TableRow1"><textarea rows="5" name="Badwords" cols="60"><%=Newasp.Badwords%></textarea></td>
		</tr>
		<tr>
			<td class="TableRow2"><div class="divbody">过滤后的字符：<br>
			请用“|”分开</div></td>
			<td class="TableRow2"><textarea rows="5" name="Badwordr" cols="60"><%=Newasp.Badwordr%></textarea></td>
		</tr>
	</table></fieldset>
	</td>
	</tr>
	<tr>
		<td class="TableRow1" align="center">
		<input type="submit" value="保存设置" name="B1" class=Button> <font color=red>按Ctrl+Enter直接提交</font></td>
	</tr></form>
</table>
</div>
<%
	Dim InstalledObjects(8)
	Dim i
	Response.Write "<div id=""Issubport0"" style=""display:none"">请选择EMAIL组件！</div>" & vbCrLf
	Response.Write "<div id=""Issubport999"" style=""display:none"">请选择上传组件！</div>" & vbCrLf
	
	InstalledObjects(1) = "JMail.Message" 'JMail 4.3
	InstalledObjects(2) = "CDONTS.NewMail" 'CDONTS
	InstalledObjects(3) = "Persits.MailSender" 'ASPEMAIL
	'-----------------------
	InstalledObjects(4) = "Scripting.FileSystemObject" 'Fso
	InstalledObjects(5) = "ADODB.Recordset" 'NewCloud
	InstalledObjects(6) = "LyfUpload.UploadFile" 'LyfUpload
	InstalledObjects(7) = "Persits.Upload" 'Aspupload3.0
	'-----------------------
	For i = 1 To 7
		Response.Write "<div id=""Issubport" & i & """ style=""display:none"">"
		If Not IsObjInstalled(InstalledObjects(i)) Then
			Response.Write "<b>×</b>服务器不支持!"
		Else 
			Response.Write "<font color=red><b>√</b>服务器支持!</font>"
		End If
		Response.Write "</div>"
	Next
	Response.Write "<SCRIPT LANGUAGE=""JavaScript"">" & vbCrLf
	Response.Write "<!--" & vbCrLf
	Response.Write "function chkselect(s,divid)" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "var divname='Issubport';" & vbCrLf
	Response.Write "var chkreport;" & vbCrLf
	Response.Write "s=Number(s)" & vbCrLf
	Response.Write "if (divid==""know1"")" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "divname=divname+s;" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "if (divid==""know2"")" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "s+=4;" & vbCrLf
	Response.Write "if (s==1003){s=999;}" & vbCrLf
	Response.Write "divname=divname+s;" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "if (divid==""know3"")" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "s+=8;" & vbCrLf
	Response.Write "if (s==1007){s=999;}" & vbCrLf
	Response.Write "divname=divname+s;" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "document.getElementById(divid).innerHTML=divname;" & vbCrLf
	Response.Write "chkreport=document.getElementById(divname).innerHTML;" & vbCrLf
	Response.Write "document.getElementById(divid).innerHTML=chkreport;" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "//-->"
	Response.Write "</SCRIPT>" & vbCrLf
End Sub

Sub SaveConfig()
	Dim strChinaeBank
	If Len(Request.Form("SiteName")) = 0 Or Len(Request.Form("SiteName")) => 50 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>网站名称不能为空或者超过50个字符！</li>"
	End If
	If Len(Request.Form("keywords")) = 0 Or Len(Request.Form("keywords")) => 250 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>站点关键字不能为空或者超过250个字符！</li>"
	End If
	If Len(Request.Form("StopReadme")) = 0 Or Len(Request.Form("StopReadme")) => 250 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>维护说明不能为空或者超过250个字符！</li>"
	End If
	If Len(Request.Form("Copyright")) = 0 Or Len(Request.Form("Copyright")) => 250 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>网站版权信息不能为空或者超过250个字符！</li>"
	End If
	If Len(Request.Form("IndexName")) = 0 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>首页文件名不能为空！</li>"
	End If
	If Not Newasp.IsValidChar(Request.Form("IndexName")) Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>首页文件名中含有非法字符或者中文字符！</li>"
	End If
	If Trim(Request.Form("StopApplyLink")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>是否关闭友情连接功能！</li>"
	End If
	If Len(Request.Form("InitTitleColor")) = 0 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>初始化标题颜色不能为空！</li>"
	End If
	If Len(Request.Form("InstallDir")) = 0 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>系统所在根目录不能为空！</li>"
	End If
	If Len(Request.Form("ChinaeBank4")) > 20 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>在线支付加密密码不能大于20个字符！</li>"
	End If
	
	strChinaeBank = Trim(Request.Form("ChinaeBank1")) & "|||" & Trim(Request.Form("ChinaeBank2")) & "|||" & Trim(Request.Form("ChinaeBank3")) & "|||" & Trim(Request.Form("ChinaeBank4")) & "|||"
	
	If FoundErr = True Then Exit Sub
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "select * from NC_Config where id = 1"
	Rs.Open SQL,Conn,1,3
		Rs("SiteName") = Trim(Request.Form("SiteName"))
		Rs("SiteUrl") = Trim(Request.Form("SiteUrl"))
		Rs("MasterMail") = Trim(Request.Form("MasterMail"))
		Rs("keywords") = Trim(Request.Form("keywords"))
		Rs("Copyright") = Trim(Request.Form("Copyright"))
		Rs("InstallDir") = Trim(Request.Form("InstallDir"))
		Rs("IndexName") = Trim(Request.Form("IndexName"))
		Rs("IstopSite") = Trim(Request.Form("IstopSite"))
		Rs("StopReadme") = Trim(Request.Form("StopReadme"))
		Rs("IsCloseMail") = Trim(Request.Form("IsCloseMail"))
		Rs("SendMailType") = Trim(Request.Form("SendMailType"))
		Rs("MailFrom") = Trim(Request.Form("MailFrom"))
		Rs("MailServer") = Trim(Request.Form("MailServer"))
		Rs("MailUserName") = Trim(Request.Form("MailUserName"))
		Rs("MailPassword") = Trim(Request.Form("MailPassword"))
		Rs("CheckUserReg") = Trim(Request.Form("CheckUserReg"))
		Rs("AdminCheckReg") = Trim(Request.Form("AdminCheckReg"))
		Rs("MailInformPass") = Trim(Request.Form("MailInformPass"))
		Rs("ChkSameMail") = Trim(Request.Form("ChkSameMail"))
		Rs("AddUserPoint") = Trim(Request.Form("AddUserPoint"))
		Rs("SendRegMessage") = Trim(Request.Form("SendRegMessage"))
		Rs("FullContQuery") = Trim(Request.Form("FullContQuery"))
		Rs("ActionTime") = Trim(Request.Form("ActionTime"))
		Rs("IsRunTime") = Trim(Request.Form("IsRunTime"))
		Rs("UploadClass") = Trim(Request.Form("UploadClass"))
		Rs("UploadFileSize") = Trim(Request.Form("UploadFileSize"))
		Rs("UploadFileType") = Trim(Request.Form("UploadFileType"))
		Rs("StopApplyLink") = Trim(Request.Form("StopApplyLink"))
		Rs("FSO_ScriptName") = Trim(Request.Form("FSO_ScriptName"))
		Rs("InitTitleColor") = Trim(Request.Form("InitTitleColor"))
		Rs("StopBankPay") = Trim(Request.Form("StopBankPay"))
		Rs("ChinaeBank") = strChinaeBank
		Rs("Badwords") = Trim(Request.Form("Badwords"))
		Rs("Badwordr") = Trim(Request.Form("Badwordr"))
	Rs.update
	Rs.close:set Rs = Nothing
	Newasp.DelCahe("Config")
	Succeed("<li>恭喜您！保存设置成功。</li>")
End Sub

Sub ReloadCache()
	Application.Contents.RemoveAll
	Response.Write "<script>alert('重建缓存成功！');javascript:history.back(1)</script>"
End Sub

Sub EditContentKeyword()
	Dim i,ContentKeywordStr,KeywordStr
	Set Rs = Newasp.Execute("Select id,ContentKeyword From NC_Config where id = 1")
	ContentKeywordStr = Split(Rs("ContentKeyword"), "@@@")
	
%>
<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>
<tr>
	<th colspan=2 align="left"><img src="images/welcome.gif" width="16" height="17" align="absMiddle"> 文章内容关键字设置</th>
</tr>
<form name=myform method=post action=?action=savedit>
<input type=hidden name=id value=''>
<tr>
	<td class=TableTitle align=center>内容关键字</td>
	<td class=TableTitle align=center>关键字连接URL</td>
</tr>
<%
If Trim(Rs("ContentKeyword")) <> "" Then
	
	For i = 0 To UBound(ContentKeywordStr)
		
		If ContentKeywordStr(i) <> "" Then
			KeywordStr = Split(ContentKeywordStr(i), "$$$")
		Else
			KeywordStr(0) = "del"
			KeywordStr(1) = "del"
		End If
		
		
%>
<tr>
	<td class=tablerow1><input type=text name=KeywordStr size=45 value='<%=KeywordStr(0)%>'></td>
	<td class=tablerow2><input type=text name=KeywordUrl size=45 value='<%=KeywordStr(1)%>'></td>
</tr>
<%
	Next
Else
%>
<tr>
	<td class=tablerow1><input type=text name=KeywordStr size=45 value='del'></td>
	<td class=tablerow2><input type=text name=KeywordUrl size=45 value='del'></td>
</tr>
<%
End If
%>
<tr>
	<td class=tablerow2 colspan=2 align=center><input type=submit value='保存设置' class=Button></td>
</tr>
<tr>
	<td class=tablerow1 colspan=2><strong>说明:</strong><br>&nbsp;&nbsp;本功能用于在文章中找到适当的关键字, 并为其设置合适当的链接.
如: 设置了关键字 新云网络, 指向地址 http://www.newasp.net  那么当文章中出现"新云网络"这些字时, 页面上能自动为这些字加上指向http://www.newasp.net这个地址的链接.   注意: 不能设置重复的关键字, 也不能设置包含相同文字的关键字,如果想清除该关键字，请在对应的文本框中输入"del"，
如果要设置多个关键字用一个连接请用“|”分开。</td>
</tr>
</form>
</table>

<%
	Rs.Close:Set Rs = Nothing
End Sub

Sub SaveContentKeyword()
	Dim TempKeywordStr,TempKeywordUrl
	Dim i
	Dim ContentKeyword,ContentKeywordStr
	TempKeywordStr = Request.Form("KeywordStr")
	TempKeywordUrl = Request.Form("KeywordUrl")
	TempKeywordStr = Split(TempKeywordStr, ",")
	TempKeywordUrl = Split(TempKeywordUrl, ",")
	For i = 0 To UBound(TempKeywordStr)
		If Trim(TempKeywordStr(i)) = "" Or Trim(TempKeywordUrl(i)) = "" Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>内容关键字和关键字连接URL不能为空！</li>"
			Exit Sub
		End If
		If LCase(Trim(TempKeywordStr(i))) <> "del" And LCase(Trim(TempKeywordUrl(i))) <> "del" Then
			ContentKeyword = ContentKeyword & Trim(TempKeywordStr(i)) & "$$$" & Trim(TempKeywordUrl(i)) & "@@@"
		End If
	Next
	ContentKeywordStr = Newasp.CheckStr(ContentKeyword)
	Newasp.Execute ("update [NC_Config] set ContentKeyword ='" & ContentKeywordStr & "' where id = 1")
	Newasp.DelCahe("Config")
	OutHintScript("恭喜您！设置内容关键字成功。")
End Sub
%>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -