簡單過濾一下廣告的代碼
更新時間：2006年06月26日 00:00:00 作者：
好些人跟我要這段東西，其實是個很簡單的代碼，下邊就是，自己拿去改成函數(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ù)的處理方法
因為要做移動夢網(wǎng)WAP的一些接口，所以要用到這種方式，接下來會有ASP.net版本的，這個是ASP版本的，利用了MSXML2.XMLHTTP對像2006-06-06
利用批處理文件和 vbs 腳本實現(xiàn)網(wǎng)站視頻自動錄制
利用批處理文件和 vbs 腳本實現(xiàn)網(wǎng)站視頻自動錄制...2006-06-06
asp實現(xiàn)無限級分類的方法js版...2006-06-06
ASP字符串大寫轉(zhuǎn)換成小寫 ASP小寫轉(zhuǎn)換成大寫 ucase lcase
字符串大寫字面轉(zhuǎn)換成小寫字面或者小寫字面轉(zhuǎn)換成大寫字面，ASP（特指VBS）里自帶了兩個函數(shù)2009-06-06
ASP編程入門進階（七）：內(nèi)置對象Server...2007-01-01
asp錯誤的幾種處理方式...2006-11-11
asp刪除數(shù)據(jù)庫教程記錄其實在asp中是很非常容易做的事情了，只要連接數(shù)據(jù)庫了，再利用sql delete函數(shù)來刪除就ok了，下面來看看實例吧。2010-09-09
sql語句的一些集合...2006-06-06
Asp生成HTML方法大全...2006-06-06
ASP中常見的連接字符串寫法,包括了access2007等2009-11-11