[原创]提交信息关键字过滤类源码 || 中国X黑客小组


	您现在的位置：中国X黑客小组 >> 技术文章 >> 编程技术 >> 网络编程 >> 文章正文	用户登录新用户注册

[原创]提交信息关键字过滤类源码

热荐 ★★★

【字体：小大】

[原创]提交信息关键字过滤类源码

作者：奇奇文章来源：本站点击数：更新时间：2004-11-6

<%
'Cnxhacker.Net 全站系统文章和提交信息关键字过滤类源码
'Cnxhacker.Net 奇奇编写

'转贴请保留此信息，注释信息会被解释程序忽略，这不会对脚本的执行速度和程序整体性能造成任何影响，谢谢！

'Add  to the start of any page on which you want to call the function.

'First, please specify some key words to filtrate and pass to Waiting, separate each with "|".
'BE CAREFUL: No need to add another "|" at the end of the string.
Waiting="Fa轮功|激情电影"

'If you want to give out a warning to cover it all when the above keywords are seen, specify the warning message here, one after another, separated by "|".
WaitingtoCover="[提交的信息被过滤！！请勿在此提交广告或非法信息！！！]"

'If you want the above keywords to filtrate to be taken place, specify the string with which you want to cover it.
WaitingA="中国气功万岁！|动画片"

'WARNING: The length of any of the specified keywords to filtrate CANNOT be zero or null.

dim sa(),sb(),sc()
dim ctra,ctrb,ctrc

'OK. Everything is ready, Let's begin.
lengtha=len(waiting)
if mid(waiting,lengtha,1) ="|" then
waiting=left(waiting,lengtha-1)
lengtha=lengtha-1
end if

lengthb=len(waitinga)
if mid(waitinga,lengthb,1) ="|" then
waitinga=left(waiting,lengthb-1)
lengthb=lengthb-1
end if

lengthc=len(waitingtocover)

ctra=0:ctrb=0:ctrc=0

for i=1 to lengtha
if mid(waiting,i,1)="|" then ctra=ctra+1
next
redim preserve sa(ctra+1)

for i=1 to lengthb
if mid(waitinga,i,1)="|" then ctrb=ctrb+1
next
redim preserve sb(ctrb+1)

ctraa=0
for i=1 to lengtha
if mid(waiting,i,1)<>"|" then
temps=temps+mid(waiting,i,1)
else
ctraa=ctraa+1
sa(ctraa)=temps
temps=""
if ctraa=ctra then
ctraa=ctraa+1
sa(ctraa)=right(waiting,lengtha-i)
end if
end if
next

ctrbb=0
temps=""
for i=1 to lengthb
if mid(waitinga,i,1)<>"|" then
temps=temps+mid(waitinga,i,1)
else
ctrbb=ctrbb+1
sb(ctrbb)=temps
temps=""
if ctrbb=ctrb then
ctrbb=ctrbb+1
sb(ctrbb)=right(waitinga,lengthb-i)
end if
end if
next

'Call filtrate(filtration), "filtration" is the source string that you want to have which filtrate, to return a string after filtration.
'You have two choices to filtrate a string:
'1. To change the keywords you want to filtrate to others;
'2. To cover all if any of the specified keywords exists.

'Specify type of filtration, directly pass the value to "typetofil" when calling the function.
'Space is processed as " ".
function filtrate(filtration,typetofil)
dim ctrglobal
filt=filtration
select case typetofil
case 1
for i=1 to ctra+1
length=len(sa(i))
for j=1 to len(filtration)
if len(sa(i))>len(filtration) then
exit for
end if
if len(mid(filtration,i))<len(sa(i)) then
exit for
end if
if mid(filtration,j,length)=sa(i) then
temp1=left(filtration,j-1)
temp2=mid(filtration,j+length)
filt=temp1+sb(i)+temp2
end if
next
next
filtrate=filt
case 2
for m=1 to ctra+1
if instr(1,filtration,sa(m))<>0 then
filtrate=waitingtocover
exit function
end if
next
filtrate=filtration
case else
end select
end function

'Sample:
'filtrate("激情电影免费看",1)="动画片免费看"
'filtrate("我爱Fa轮功",2)="[提交的信息被过滤！！请勿在此提交广告或非法信息！！！]"

'Programmed by Qiqi, Cnxhacker.NET

%>
<html>
<head>
<meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
</head>
<body>

</body>
</html>

文章录入：IceRiver 责任编辑：IceRiver

上一篇文章：使用ASP生成HTML文件

下一篇文章：用Delphi创建服务程序

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

最新热点		最新推荐		相关文章
				打击流氓“净蓝丝带”原创作 C++ 创建快捷方式的最简单方 [原创]我的web＋asp攻击【原创】XX外挂浮点注册算法 [原创]简单算法-韩语小词典2 (原创)利用Htran把内网肉鸡做 wget程序任意文件覆盖/添加 [原创] Worm.NetSky.B 病毒全菜鸟编程10大好习惯

　网友评论：（只显示最新5条。评论内容只代表网友观点，与本站立场无关！）


关于我们 - 版权声明 - 帮助(？) - 广告服务 - 联系我们 - 友情链接 - 用户注册 -	Powered by ICE RIVER - STUDIO

» CnXHacker.CoM