提交信息关键字过滤类源码教程

<%
'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

%>

分页:

购买虚拟主机请与本站联系