admin_badword.asp

正版创力4.1SQL商业版!!!ASP版。

<!--#include file="Inc/Const.asp"-->
<%
if Not Cl.TrueOtherPurview("Badword") then
	Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if

Header

if request("action") = "savebadword" then
call savebadword()
else

%>
<form action="admin_badword.asp?action=savebadword" method=post>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="Border">
<%if request("reaction")="badword" then%>
<tr>
<th colspan=2 align=center height=23 Class="title">脏 话 过 滤 字 符 编 辑</th>
</tr>
<tr>
<td class=tdbg width="100%" colspan=2><B>说明</B>：过滤字符设定规则为  <B>要过滤的字符=过滤后的字符</B> ，每个过滤字符用回车分割开。</td>
</tr>
<tr>
<td class=tdbg width="100%" colspan=2>
<textarea name="badwords" cols="80" rows="25" ID="badwords"><%
For i=0 To Ubound(Cl.BadWords)
	If i > UBound(Cl.rBadWord) Then
		Response.Write Server.HtmlEnCode(Cl.BadWords(i)) & "=*"
	Else
		Response.Write Server.HtmlEnCode(Cl.BadWords(i) & "=" & Cl.rBadWord(i))
	End If
	If i<Ubound(Cl.BadWords) Then Response.Write chr(10)
Next
%></textarea>
<br /><a href="javascript:admin_Size(-5,'badwords')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(5,'badwords')"><img src="images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
<%elseif request("reaction")="splitreg" then%>
<tr>
<th colspan=2 align=center height=23 Class="title">注 册 过 滤 字 符</th>
</tr>
<tr>
<td class=tdbg width="20%">说明：</td>
<td class=tdbg width="80%">注册过滤字符将不允许用户注册包含以下字符的内容，请您将要过滤的字符串添入，如果有多个字符串，请用“,”分隔开，例如：admin,管理,梅傲风</td>
</tr>
<tr>
<td class=tdbg width="20%">请输入过滤字符</td>
<td class=tdbg width="80%"><input type="text" name="splitwords" value="<%=Server.HTMLENCode(Cl.CacheData(10,0))%>" size="80"></td>
</tr>
<%end if%>
<input type=hidden value="<%=request("reaction")%>" name="reaction">
<tr> 
<td class=tdbg width="20%"></td>
<td width="80%" class=tdbg><input type="submit" name="Submit" value="提 交"></td>
</tr>
</table>
</form>
<%end if

sub savebadword()
If request("reaction")="badword" then
dim badwords,badwords_1,badwords_2,badwords_3
badwords=request("badwords")
badwords=split(badwords,vbCrlf)
for i = 0 to ubound(badwords)
	if not (badwords(i)="" or badwords(i)=" ") then
		badwords_1 = split(badwords(i),"=")
		If ubound(badwords_1)=1 Then
			If i=0 Then
				badwords_2 = badwords_1(0)
				badwords_3 = badwords_1(1)
			Else
				badwords_2 = badwords_2 & "|" & badwords_1(0)
				badwords_3 = badwords_3 & "|" & badwords_1(1)
			End If
		End If
	End If
next
sql = "update Cl_Setup set Badwords='"&Cl.Checkstr(badwords_2)&"',rBadword='"&Cl.Checkstr(badwords_3)&"'"
Cl.Execute(sql)
elseif request("reaction")="splitreg" then
'request("badwords")
sql = "update Cl_Setup set Regword='"&Cl.Checkstr(request("splitwords"))&"'"
Cl.Execute(sql)
end if
Cl.Load_Setup
Cl.SaveAdminLog
Call Cl.ShowSuc("更新成功！")
end sub

Footer
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: [e-mail]		[e-mail]　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>