400-1100-266

9:00-24:00（工作日）
主页 > 知识库 > asp实现限制搜索的关键字的函数

asp实现限制搜索的关键字的函数
热门标签：科大讯飞语音识别系统 团购网站 银行业务 服务器配置 Mysql连接数设置 阿里云 电子围栏 Linux服务器
%
'******************************
'函数：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, 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)
  For i = 1 To UBound(FobWords, 1)
   If InStr(keyword, ChrW(FobWords(i))) > 0 Then
    CheckQuery = False
    Exit Function
   End If
  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, "'", " ")
  For i = 0 To UBound(FobWords, 1)
   If keyword = FobWords(i) Then
    CheckQuery = False
    Exit Function
   End If
  Next
  CheckQuery = True
 End Function
%>

标签：江苏 广元 枣庄 萍乡 衢州 大理 衡水 蚌埠

巨人网络通讯声明：本文标题《asp实现限制搜索的关键字的函数》，本文关键词  ；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。
  • 相关文章
  • 推荐文章

    上一篇：asp实现过滤关键字的函数

    下一篇：彻底掌握ASP分页技术杂谈

     
    微信咨询办理
    在线QQ客服
    ( 客服小王 )
    ( 客服小李 )
    ( 客服小刘 )
    ( 客服小张 )
    关于我们 | 荣誉资质 | 呼叫中心 | 代理加盟 | 客户案例 | 服务支持 | 产品介绍 | 行业资讯

    Copyright © 1999-2012 诚信 合法 规范的巨人网络 www.1330.cn 始建于2005年

    全国网站建设网站开发咨询热线：400-1100-266   0514-86177077

    江苏扬州巨人网络科技有限公司   总部地址：江苏省扬州信息产业基地11号楼4层

    《增值电信业务经营许可证》苏B2-20120278    苏ICP备15040257号 网站地图
    全国咨询热线
    400-1100-266
    在线客服( QQ：340506921 )
    版权所有：巨人网络(扬州)科技有限公司——拥有网站建设十年经验，具备独立网站开发能力，能够提供完善的网站设计及相关的网站制作服务！     全国统一服务热线：400-1100-266
    收缩
    • 微信客服
    • 微信二维码

    • 电话咨询

    • 400-1100-266