过滤关键字<%
'******************************
'函数：ChkKeyWord(ByValkeyword)
'参数：keyword,关键字
'作者：阿里西西
'日期：2007/7/15
'描述：过滤关键字
'示例：ChkKeyWord("sfsdfdf'8&5ddd")
'******************************
FunctionChkKeyWord(ByValkeyword)
DimFobWords,i
OnErrorResumeNext
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)
Fori=1ToUBound(FobWords,1)
IfInStr(keyword,ChrW(FobWords(i)))>0Then
keyword=Replace(keyword,ChrW(FobWords(i)),"")
EndIf
Next
keyword=Left(keyword,100)
FobWords=Array("~","!","@","#","$","%","^","&","*","(",")","_","+","=","`","[","]","{","}",";",":","""","'",",","<",">",".","/","","?","_")
Fori=0ToUBound(FobWords,1)
IfInStr(keyword,FobWords(i))>0Then
keyword=Replace(keyword,FobWords(i),"")
EndIf
Next
ChkKeyWord=keyword
EndFunction%>
【asp实现过滤关键字的函数】相关文章：