龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > web编程 > asp编程 >

asp 非法关键词过滤程序

时间:2012-12-31 22:56来源:未知 作者:admin 点击: 次
分享到：

asp教程 非法关键词过滤程序

Public Function FilterBadWord(str)
  If str = "" Or IsNull(str) Then
   FilterBadWord = ""
   Exit Function
  End If
  Dim i,badWordSplit,filterSplit
  badWordSplit = Split(Cfg.badWordFilter,"|")
  For i = 0 To UBound(badWordSplit)
   filterSplit = Split(badWordSplit(i),",")
   If InStr(1,str,filterSplit(0),1) Then str = Replace(str,filterSplit(0),filterSplit(1))
  Next
  FilterBadWord = str
 End Function

'使用方法
dim stra
stra = FilterBadWord(request.Form(fom))


精彩图集
精彩文章

热门标签

渐进式 PowerEdge 表链接 定时执行任务 .net添加Cookie 控制台 卡号 流量监控 Inodes response.set 登陆 getopt 常用工具类 双冒号 地方 安全检测 mysql.sock CSSvista MYSQLI_STORE 绑定虚拟 ifelse 用户密码 promise化 bezier曲线 VC库函数 地址栏 namespace 树形结构 spring 鼠标拖动 匿名用户 振兴 switch语句 jquery基础教程 看表 图片垂直居中 SQLServer200 开机自启动 win2003+IIS 添加app SFTP 检查电子邮件 类型关键字 策略模式 邮件发送 MD5算法 图像标签 绑定类型 diff OpenSSL adb命令大全 新记录 TimerTask 删除分区表 checkbox多选 百度站点地图 获取结点 皇后 Rolling 哈弗曼算法

赞助商链接