📄 admin_config.asp
字号:
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("PreviewSetting") = Replace(Replace(Request.Form("PreviewSetting"), " ", ""), "'", "")
Rs("ThunderPid") = Trim(Request.Form("ThunderPid"))
Rs("HostPath") = Server.MapPath("../") &"\"
Rs.update
Rs.close:set Rs = Nothing
Newasp.DelCahe("Config")
Newasp.DelCache("MyConfig")
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> 本功能用于在文章中找到适当的关键字, 并为其设置合适当的链接.
如: 设置了关键字 新云网络, 指向地址 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")
Newasp.DelCache("MyConfig")
OutHintScript("恭喜您！设置内容关键字成功。")
End Sub
Sub siteAdsCode()
Dim ArrayAdsCode
ArrayAdsCode = Split(Newasp.siteAdsCode & "||||||||||||||||||", "|||")
%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder">
<tr>
<th colspan="2">网站代码广告管理</th>
</tr>
<tr>
<td colspan="2" class="TableRow1"><b>说明：</b><br>①本广告代码用于网站所有页面；<br>②请将广告标签复制到模板中相应的位置</td>
</tr>
<form name="myform" method="post" action="?action=savead">
<tr>
<td class="TableRow2" width="20%"><b>广告代码一、</b><br />广告标签一： {$siteAdsCode1}</td>
<td class="TableRow1" width="80%"><textarea name="AdsCode1" rows="5" cols="80"><%=Server.HTMLEncode(ArrayAdsCode(0))%></textarea>
<a href="javascript:admin_Size(-10,'AdsCode1')"><img src="images/minus.gif" unselectable=on border=0></a>
<a href="javascript:admin_Size(10,'AdsCode1')"><img src="images/plus.gif" unselectable="on" border="0"></td>
</tr>
<tr>
<td class="TableRow2"><b>广告代码二、</b><br />广告标签二： {$siteAdsCode2}</td>
<td class="TableRow1"><textarea name="AdsCode2" rows="5" cols="80"><%=Server.HTMLEncode(ArrayAdsCode(1))%></textarea>
<a href="javascript:admin_Size(-10,'AdsCode2')"><img src="images/minus.gif" unselectable="on" border="0"></a>
<a href="javascript:admin_Size(10,'AdsCode2')"><img src="images/plus.gif" unselectable="on" border="0"></td>
</tr>
<tr>
<td class="TableRow2"><b>广告代码三、</b><br />广告标签三： {$siteAdsCode3}</td>
<td class="TableRow1"><textarea name="AdsCode3" rows="5" cols="80"><%=Server.HTMLEncode(ArrayAdsCode(2))%></textarea>
<a href="javascript:admin_Size(-10,'AdsCode3')"><img src="images/minus.gif" unselectable="on" border="0"></a>
<a href="javascript:admin_Size(10,'AdsCode3')"><img src="images/plus.gif" unselectable="on" border="0"></td>
</tr>
<tr>
<td class="TableRow2"><b>广告代码四、</b><br />广告标签四： {$siteAdsCode4}</td>
<td class="TableRow1"><textarea name="AdsCode4" rows="5" cols="80"><%=Server.HTMLEncode(ArrayAdsCode(3))%></textarea>
<a href="javascript:admin_Size(-10,'AdsCode4')"><img src="images/minus.gif" unselectable="on" border="0"></a>
<a href="javascript:admin_Size(10,'AdsCode4')"><img src="images/plus.gif" unselectable="on" border="0"></td>
</tr>
<tr>
<td class="TableRow2"><b>广告代码五、</b><br />广告标签五： {$siteAdsCode5}</td>
<td class="TableRow1"><textarea name="AdsCode5" rows="5" cols="80"><%=Server.HTMLEncode(ArrayAdsCode(4))%></textarea>
<a href="javascript:admin_Size(-10,'AdsCode5')"><img src="images/minus.gif" unselectable="on" border="0"></a>
<a href="javascript:admin_Size(10,'AdsCode5')"><img src="images/plus.gif" unselectable="on" border="0"></td>
</tr>
<tr>
<td class="TableRow2"><b>广告代码六、</b><br />广告标签六： {$siteAdsCode6}</td>
<td class="TableRow1"><textarea name="AdsCode6" rows="5" cols="80"><%=Server.HTMLEncode(ArrayAdsCode(5))%></textarea>
<a href="javascript:admin_Size(-10,'AdsCode6')"><img src="images/minus.gif" unselectable="on" border="0"></a>
<a href="javascript:admin_Size(10,'AdsCode6')"><img src="images/plus.gif" unselectable="on" border="0"></td>
</tr>
<tr>
<td class="TableRow1" align="center" colspan="2"><input type="button" name="Submit4" onclick="javascript:history.go(-1)" value="返回上一页" class="Button">
<input type="submit" name="btnSubmit" value="保存广告代码" class="Button"></td>
</tr>
</form>
</table>
<%
End Sub
Sub saveAdsCode()
Dim strAdsCode
strAdsCode = Replace(Request.Form("AdsCode1"), "|||", "") & "|||"
strAdsCode = strAdsCode & Replace(Request.Form("AdsCode2"), "|||", "") & "|||"
strAdsCode = strAdsCode & Replace(Request.Form("AdsCode3"), "|||", "") & "|||"
strAdsCode = strAdsCode & Replace(Request.Form("AdsCode4"), "|||", "") & "|||"
strAdsCode = strAdsCode & Replace(Request.Form("AdsCode5"), "|||", "") & "|||"
strAdsCode = strAdsCode & Replace(Request.Form("AdsCode6"), "|||", "") & "|||"
strAdsCode = Newasp.CheckStr(strAdsCode)
Newasp.Execute ("UPDATE NC_Config SET siteAdsCode='" & strAdsCode & "'")
Newasp.DelCahe("Config")
Newasp.DelCache("MyConfig")
Succeed("<li>恭喜您！保存站点广告代码成功。</li>")
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -