<% ‘****************************** ‘函数:CheckQuery(ByVal str) ‘参数:str —-搜索的字符串 ‘作者:阿里西西 ‘日期:2007/7/15 ‘描述:限制搜索的关键字 ‘示例:CheckQuery(str) ‘****************************** Public Function CheckQuery(ByVal str) Dim FobWords, i, keyword keyword = str On Error Resume Next FobWords = Array(91, 92, 30