过滤关键字<%

'******************************

'函数：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%>