0514-86177077

9:00-17:00（工作日）

主页 > 知识库 > asp实现过滤关键字的函数

asp实现过滤关键字的函数
热门标签：绵阳防封电销卡价格 伊春外呼业务系统 调度系统外呼 宜宾语音外呼系统软件 河北智能外呼系统软件 福建外呼增值业务线路 电销机器人教育 电销机器人源码网盘下载 中国办理电信400电话
过滤关键字%
'******************************
'函数：ChkKeyWord(ByVal keyword)
'参数：keyword,关键字
'作者：阿里西西
'日期：2007/7/15
'描述：过滤关键字
'示例：ChkKeyWord("sfsdfdf'85ddd")
'******************************
Function ChkKeyWord(ByVal keyword)
  Dim FobWords, i
  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, 12521, 12532, 12533, 65339, 65340)
  For i = 1 To UBound(FobWords, 1)
   If InStr(keyword, ChrW(FobWords(i))) > 0 Then
    keyword = Replace(keyword, ChrW(FobWords(i)), "")
   End If
  Next
  keyword = Left(keyword, 100)
  FobWords = Array("~", "!", "@", "#", "$", "%", "^", "", "*", "(", ")", "_", "+", "=", "`", "[", "]", "{", "}", ";", ":", """", "'", ",", "", ">", ".", "/", "\", "?", "_")
  For i = 0 To UBound(FobWords, 1)
   If InStr(keyword, FobWords(i)) > 0 Then
    keyword = Replace(keyword, FobWords(i), "")
   End If
  Next
  ChkKeyWord = keyword
 End Function%>

标签：河池 铜川 电商邀评 苏州 那曲 延边 优质小号 新乡

巨人网络通讯声明：本文标题《asp实现过滤关键字的函数》，本文关键词  asp,实现,过滤,关键字,的,；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《asp实现过滤关键字的函数》相关的同类信息！
  • 本页收集关于asp实现过滤关键字的函数的相关信息资讯供网民参考！
    • 推荐文章

    上一篇：ASP下的两个防止SQL注入式攻击的Function

    下一篇：asp实现限制搜索的关键字的函数

    Copyright © 1999-2012 诚信 合法 规范的巨人网络通讯始建于2005年

    苏ICP备15040257号-8

    产品关键词： asp实现过滤关键字的函数 asp,实现,过滤,关键字,的,