簡單過濾一下廣告的代碼
更新時(shí)間：2006年06月26日 00:00:00 作者：
好些人跟我要這段東西，其實(shí)是個(gè)很簡單的代碼，下邊就是，自己拿去改成函數(shù)調(diào)用就可
dim strA,strB,isOK
strA = "test,you,fuck,money" '需要過濾的關(guān)鍵字內(nèi)容
strB = "fasfaefwTestfajkewhfwiTuckjfksajfheyou" '待檢查的內(nèi)容
isOK = False '判斷是否含有待過濾內(nèi)容，如果返回True即為含有，F(xiàn)alse就是沒有
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ān)鍵字內(nèi)容
strB = "fasfaefwTestfajkewhfwiTuckjfksajfheyou" '待檢查的內(nèi)容
isOK = False '判斷是否含有待過濾內(nèi)容，如果返回True即為含有，F(xiàn)alse就是沒有
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)文章
利用ASP發(fā)送和接收XML數(shù)據(jù)的處理方法
因?yàn)橐鲆苿?dòng)夢(mèng)網(wǎng)WAP的一些接口，所以要用到這種方式，接下來會(huì)有ASP.net版本的，這個(gè)是ASP版本的，利用了MSXML2.XMLHTTP對(duì)像2006-06-06
利用批處理文件和 vbs 腳本實(shí)現(xiàn)網(wǎng)站視頻自動(dòng)錄制
利用批處理文件和 vbs 腳本實(shí)現(xiàn)網(wǎng)站視頻自動(dòng)錄制...2006-06-06
asp實(shí)現(xiàn)無限級(jí)分類的方法js版
asp實(shí)現(xiàn)無限級(jí)分類的方法js版...2006-06-06
ASP字符串大寫轉(zhuǎn)換成小寫 ASP小寫轉(zhuǎn)換成大寫 ucase lcase
字符串大寫字面轉(zhuǎn)換成小寫字面或者小寫字面轉(zhuǎn)換成大寫字面，ASP（特指VBS）里自帶了兩個(gè)函數(shù)2009-06-06
ASP編程入門進(jìn)階（七）：內(nèi)置對(duì)象Server
ASP編程入門進(jìn)階（七）：內(nèi)置對(duì)象Server...2007-01-01
asp錯(cuò)誤的幾種處理方式...2006-11-11
asp刪除數(shù)據(jù)庫教程記錄其實(shí)在asp中是很非常容易做的事情了，只要連接數(shù)據(jù)庫了，再利用sql delete函數(shù)來刪除就ok了，下面來看看實(shí)例吧。2010-09-09
sql語句的一些集合...2006-06-06
Asp生成HTML方法大全...2006-06-06
ASP中常見的連接字符串寫法,包括了access2007等2009-11-11