<%
'******************************
'函数：CheckQuery(ByValstr)
'参数：str----搜索的字符串
'作者：阿里西西
'日期：2007/7/15
'描述：限制搜索的关键字
'示例：CheckQuery(str)
'******************************
PublicFunctionCheckQuery(ByValstr)
DimFobWords,i,keyword
keyword=str
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,12532,12533,65339,65340)
Fori=1ToUBound(FobWords,1)
IfInStr(keyword,ChrW(FobWords(i)))>0Then
CheckQuery=False
ExitFunction
EndIf
Next
FobWords=Array("~","!","@","#","$","%","^","&","*","(",")","_","+","=","`","[","]","{","}",";",":","""","'","<",">",".","/","","|","?","about","after","all","also","an","and","another","any","are","as","at","be","because","been","before","being","between","both","but","by","came","can","come","could","did","do","each","for","from","get","got","had","has","have","he","her","here","him","himself","his","how","if","in","into","is","it","like","make","many","me","might","more","most","much","must","my","never","now","of","on","only","or","other","our","out","over","said","same","see","should","since","some","still","such","take","than","that","the","their","them","then","there","these","they","this")
keyword=Left(keyword,100)
keyword=Replace(keyword,"!","")
keyword=Replace(keyword,"]","")
keyword=Replace(keyword,"[","")
keyword=Replace(keyword,")","")
keyword=Replace(keyword,"(","")
keyword=Replace(keyword,"","")
keyword=Replace(keyword,"-","")
keyword=Replace(keyword,"/","")
keyword=Replace(keyword,"+","")
keyword=Replace(keyword,"=","")
keyword=Replace(keyword,",","")
keyword=Replace(keyword,"'","")
Fori=0ToUBound(FobWords,1)
Ifkeyword=FobWords(i)Then
CheckQuery=False
ExitFunction
EndIf
Next
CheckQuery=True
EndFunction
%>
【asp实现限制搜索的关键字的函数】相关文章：
★ ASP常用的函数