繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 简单过滤一下广告的代码
- ASP
- 提高SQL的执行效率的ASP的五种做法
- asp的offset的一个go to page
- asp中command的在单条记录时,有些字段显示为空的问题
- asp,php一句话木马整理方便查找木马
- asp 合并记录集并删除的sql语句
- asp下循环一行多少个
- asp循环行数输出函数
- asp access重新开始编号
- ASP生成数字相加求和的BMP图片验证码
- 静态页面利用JS读取cookies记住用户信息
- 比较详细的Asp伪静态化方法及Asp静态化探讨
- asp Response.flush 实时显示进度
- Asp高级故障解决以及相关代码
- asp智能脏话过滤系统v1.0
- ASP文件中的安全问题
- Access数据库中“所有记录中均未找到搜索关键字”的解决方法
- asp两组字符串数据比较合并相同数据
- asp MYSQL出现问号乱码的解决方法
- asp文章中随机插入网站版权文字的实现代码
- ASP利用XMLHTTP实现表单提交以及cookies的发送的代码
ASP 中的 简单过滤一下广告的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 123 ::
收藏到网摘: n/a
好些人跟我要这段东西，其实是个很简单的代码，下边就是，自己拿去改成函数调用就可
dim strA,strB,isOK
strA = "test,you,fuck,money" '需要过滤的关键字内容
strB = "fasfaefwTestfajkewhfwiTuckjfksajfheyou" '待检查的内容
isOK = False '判断是否含有待过滤内容，如果返回True即为含有，False就是没有
dim RegExp
set RegExp=new RegExp
RegExp.IgnoreCase =False
RegExp.Global=True
dim i,j
j = ubound(split(strA,","))
for i=0 to j
RegExp.Pattern="("&split(strA,",")(i)&")"
if(RegExp.Test(strB))then
isOK=True
exit for
end if
next
set RegExp=Nothing
response.write(isOK)
评论 (0) All
