asp实现过滤关键字的函数
2018-09-06 12:33
过滤关键字<%
******************************
函数：ChkKeyWord(ByValkeyword)
参数：keyword,关键字
作者：阿里西西
日期：2007/7/15
描述：过滤关键字
示例：ChkKeyWord(sfsdfdf8&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 类型转换函数大全第12页