asp實(shí)現(xiàn)過(guò)濾關(guān)鍵字的函數(shù)
更新時(shí)間：2007年08月08日 12:12:54 作者：
過(guò)濾關(guān)鍵字<%
'******************************
'函數(shù)：ChkKeyWord(ByVal keyword)
'參數(shù)：keyword,關(guān)鍵字
'作者：阿里西西
'日期：2007/7/15
'描述：過(guò)濾關(guān)鍵字
'示例：ChkKeyWord("sfsdfdf'8&5ddd")
'******************************
Function ChkKeyWord(ByVal keyword)
Dim FobWords, i
On Error Resume Next
FobWords = Array(91, 92, 304, 305, 430, 431, 437, 438, 12460, 12461, 12462, 12463, 12464, 12465, 12466, 12467, 12468, 12469, 12470, 12471, 12472, 12473, 12474, 12475, 12476, 12477, 12478, 12479, 12480, 12481, 12482, 12483, 12485, 12486, 12487, 12488, 12489, 12490, 12496, 12497, 12498, 12499, 12500, 12501, 12502, 12503, 12504, 12505, 12506, 12507, 12508, 12509, 12510, 12521, 12532, 12533, 65339, 65340)
For i = 1 To UBound(FobWords, 1)
If InStr(keyword, ChrW(FobWords(i))) > 0 Then
keyword = Replace(keyword, ChrW(FobWords(i)), "")
End If
Next
keyword = Left(keyword, 100)
FobWords = Array("~", "!", "@", "#", "$", "%", "^", "&", "*", "(", ")", "_", "+", "=", "`", "[", "]", "{", "}", ";", ":", """", "'", ",", "<", ">", ".", "/", "\", "?", "_")
For i = 0 To UBound(FobWords, 1)
If InStr(keyword, FobWords(i)) > 0 Then
keyword = Replace(keyword, FobWords(i), "")
End If
Next
ChkKeyWord = keyword
End Function%>
'******************************
'函數(shù)：ChkKeyWord(ByVal keyword)
'參數(shù)：keyword,關(guān)鍵字
'作者：阿里西西
'日期：2007/7/15
'描述：過(guò)濾關(guān)鍵字
'示例：ChkKeyWord("sfsdfdf'8&5ddd")
'******************************
Function ChkKeyWord(ByVal keyword)
Dim FobWords, i
On Error Resume Next
FobWords = Array(91, 92, 304, 305, 430, 431, 437, 438, 12460, 12461, 12462, 12463, 12464, 12465, 12466, 12467, 12468, 12469, 12470, 12471, 12472, 12473, 12474, 12475, 12476, 12477, 12478, 12479, 12480, 12481, 12482, 12483, 12485, 12486, 12487, 12488, 12489, 12490, 12496, 12497, 12498, 12499, 12500, 12501, 12502, 12503, 12504, 12505, 12506, 12507, 12508, 12509, 12510, 12521, 12532, 12533, 65339, 65340)
For i = 1 To UBound(FobWords, 1)
If InStr(keyword, ChrW(FobWords(i))) > 0 Then
keyword = Replace(keyword, ChrW(FobWords(i)), "")
End If
Next
keyword = Left(keyword, 100)
FobWords = Array("~", "!", "@", "#", "$", "%", "^", "&", "*", "(", ")", "_", "+", "=", "`", "[", "]", "{", "}", ";", ":", """", "'", ",", "<", ">", ".", "/", "\", "?", "_")
For i = 0 To UBound(FobWords, 1)
If InStr(keyword, FobWords(i)) > 0 Then
keyword = Replace(keyword, FobWords(i), "")
End If
Next
ChkKeyWord = keyword
End Function%>
相關(guān)文章
'此代碼是在別人基礎(chǔ)上增加的漢字功能，特此感謝，同時(shí)感謝鬼火狼煙。 '以前的圖片驗(yàn)證碼很容易被破解，所以在其基礎(chǔ)上進(jìn)行改進(jìn)，生成漢字，就目前而言很難破解2008-04-04
前段時(shí)間想用google suggest在網(wǎng)上找了很多都不盡人意,于是自己花了些時(shí)間寫了一個(gè),跟google suggest 基本一樣,后面的約多少結(jié)果非本程序范圍哦。2010-03-03
ASP新聞分頁(yè)，將一篇過(guò)長(zhǎng)的文章分頁(yè)，生成靜態(tài)頁(yè)面
現(xiàn)在將他們生成靜態(tài)頁(yè)面沒(méi)有什么問(wèn)題，但是如何將它們按照某種規(guī)則，生成編號(hào)為20030405-1.htm 20030405-2.htm 20030405-3.htm這樣的靜態(tài)文件呢？2008-11-11
asp下的事務(wù)功能代碼，一般銀行等比較嚴(yán)格的機(jī)構(gòu)使用，但我們平時(shí)低于同步的東西，仍需要這樣的操作2008-02-02
asp刪除mssql數(shù)據(jù)庫(kù)中沒(méi)有記錄的圖片代碼
asp刪除沒(méi)有記錄的圖片需要文件夾（存放圖片的文件夾）中的每個(gè)圖片和數(shù)據(jù)庫(kù)中的所有記錄進(jìn)行比較2009-08-08
利用ASP從遠(yuǎn)程服務(wù)器上接收XML數(shù)據(jù)的方法
利用ASP從遠(yuǎn)程服務(wù)器上接收XML數(shù)據(jù)的方法...2007-01-01
asp又一個(gè)分頁(yè)的代碼例子...2007-11-11
asp 多關(guān)鍵詞搜索的簡(jiǎn)單實(shí)現(xiàn)方法
asp搜索兩個(gè)以上的詞的實(shí)現(xiàn)方法，簡(jiǎn)單的就是利用split，其它的可以參考本站之前更新的文章2008-11-11
Ajax+asp應(yīng)用實(shí)例 注冊(cè)模塊，表單提交
實(shí)例ajax注冊(cè)用戶和表單提交效果代碼2008-11-11
asp中利用xmlhttp抓取網(wǎng)頁(yè)內(nèi)容的代碼
抓取網(wǎng)頁(yè)。偶要實(shí)現(xiàn)實(shí)實(shí)更新天氣預(yù)報(bào)。利用了XMLHTTP組件，抓取網(wǎng)頁(yè)的指定部分，其實(shí)很多的小偷程序要更好用2012-10-10