簡(jiǎn)單過(guò)濾一下廣告的代碼
更新時(shí)間：2006年06月26日 00:00:00 作者：
好些人跟我要這段東西，其實(shí)是個(gè)很簡(jiǎn)單的代碼，下邊就是，自己拿去改成函數(shù)調(diào)用就可
dim strA,strB,isOK
strA = "test,you,fuck,money" '需要過(guò)濾的關(guān)鍵字內(nèi)容
strB = "fasfaefwTestfajkewhfwiTuckjfksajfheyou" '待檢查的內(nèi)容
isOK = False '判斷是否含有待過(guò)濾內(nèi)容，如果返回True即為含有，F(xiàn)alse就是沒(méi)有
dim RegExp
set RegExp=new RegExp
RegExp.IgnoreCase =False
RegExp.Global=True
dim i,j
j = ubound(split(strA,","))
for i=0 to j
RegExp.Pattern="("&split(strA,",")(i)&")"
if(RegExp.Test(strB))then
isOK=True
exit for
end if
next
set RegExp=Nothing
response.write(isOK)
dim strA,strB,isOK
strA = "test,you,fuck,money" '需要過(guò)濾的關(guān)鍵字內(nèi)容
strB = "fasfaefwTestfajkewhfwiTuckjfksajfheyou" '待檢查的內(nèi)容
isOK = False '判斷是否含有待過(guò)濾內(nèi)容，如果返回True即為含有，F(xiàn)alse就是沒(méi)有
dim RegExp
set RegExp=new RegExp
RegExp.IgnoreCase =False
RegExp.Global=True
dim i,j
j = ubound(split(strA,","))
for i=0 to j
RegExp.Pattern="("&split(strA,",")(i)&")"
if(RegExp.Test(strB))then
isOK=True
exit for
end if
next
set RegExp=Nothing
response.write(isOK)
相關(guān)文章
用JAVASCRIPT幫我寫(xiě)個(gè)計(jì)數(shù)器
用JAVASCRIPT幫我寫(xiě)個(gè)計(jì)數(shù)器...2007-02-02
asp下清空對(duì)象的分析2008-08-08![如何遠(yuǎn)程調(diào)用ACCESS數(shù)據(jù)庫(kù)[要求加精??！]](http://img.jbzj.com/images/xgimg/bcimg2.png)
如何遠(yuǎn)程調(diào)用ACCESS數(shù)據(jù)庫(kù)[要求加精！！]
如何遠(yuǎn)程調(diào)用ACCESS數(shù)據(jù)庫(kù)[要求加精??！]...2006-06-06
javascript asp教程第五課--合二為一...2007-03-03
Aspjpeg添加水印完整方法...2006-06-06
這篇文章主要介紹了asp中的日期時(shí)間函數(shù)，本文提供vbscript時(shí)間函數(shù)的概要介紹，可應(yīng)對(duì)一般應(yīng)用，具體特殊需求可進(jìn)一步搜索2012-09-09![給萬(wàn)博系統(tǒng)的新聞系統(tǒng)增加分頁(yè)功能[配有詳細(xì)說(shuō)明]](http://img.jbzj.com/images/xgimg/bcimg6.png)
給萬(wàn)博系統(tǒng)的新聞系統(tǒng)增加分頁(yè)功能[配有詳細(xì)說(shuō)明]
給萬(wàn)博系統(tǒng)的新聞系統(tǒng)增加分頁(yè)功能[配有詳細(xì)說(shuō)明]...2007-03-03
javascript asp教程More About Recordsets
javascript asp教程More About Recordsets...2007-03-03
九種防MDB數(shù)據(jù)庫(kù)被下載的方法小結(jié)
原來(lái)改mdb為asp就能防下載是鬼話。用Flashget試驗(yàn)下載data.asp文件，并另存為data.mdb文件，發(fā)現(xiàn)用ACCESS打開(kāi)完好無(wú)損！2006-06-06
有關(guān)Server.Mappath詳細(xì)接觸
很多的朋友一而再，再而三的在Server.Mappath上卡殼，cnbruce也是一遍兩遍地重復(fù)，還是不能全部解決，所以通過(guò)下面的舉例，希望更多的朋友能恍然大悟，透徹明白過(guò)來(lái)2007-01-01