如何實現asp過濾關鍵字的函數？想必這是很多初學習asp的朋友們想知道是問題吧，那么我們現在就去看看asp過濾關鍵字的實現函數介紹，希望對你有所幫助。

過濾關鍵字<%
'******************************
'函數：ChkKeyWord(ByVal?keyword)
'參數：keyword,關鍵字
'作者：阿里西西
'日期：2007/7/15
'描述：過濾關鍵字
'示例：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%>

以上就是本文的全部內容，希望對大家的學習有所幫助，也希望大家多多支持錯新技術頻道。