'******************************'函数：CheckQuery(ByValstr)'参数：str----搜索的字符串'作者：阿里西西'日期：2007/7/15'描述：限制搜索的关键字'示例：CheckQuery(…