从文本框里提交过来的内容,如何过滤掉连续4位以上的数字和网址,把它们用*号代替?

没你自在 自由职业  2009-08-03 04:22:08
asp中用request.form("text")从文本框里提交过来的内容,现在想过滤掉连续4位以上的数字和网址,把它们用*号代替,怎么写呢?大家帮帮忙
...全文
94 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
aimie 2009-08-07
楼上的答案堪称完美.
回复
markhao 2009-08-07
正则....真牛.
回复
没你自在 2009-08-07
我先试试啊,好的话结贴^_^
回复
没你自在 2009-08-07
我又改进了一下过滤网址的

Dim objRegExp, Match, Matches
Set objRegExp = New Regexp

objRegExp.IgnoreCase = false
objRegExp.Global = True

'过滤4位以上数字,
objRegExp.Pattern="(\d{4,})"
strHTML=objRegExp.replace(strHTML,"*")
'过滤网址的正则
objRegExp.Pattern="(http|ftp|https):\/\/([\w-]+\.)+[\w-]+(\/[\w- .\/?%&=]*)?|([\w-]+\.)+[\w-]+(\/[\w- .\/?%&=]*)?"
strHTML=objRegExp.replace(strHTML,"*")

结贴!
回复
number123456 2009-08-07
如果只是http://www.aaaaaa.com这种型式的可以换个正则
http:\/\/(\w+)(\.(\w+))+
试试
回复
没你自在 2009-08-07
number123456 你好,过滤连续数字的正则很好用,过滤网址的正则怎么不行呀,我内容里的网址是http://www.aaaaaa.com 形式的
回复
number123456 2009-08-06
Dim objRegExp, Match, Matches 
Set objRegExp = New Regexp

objRegExp.IgnoreCase = false
objRegExp.Global = True

'过滤4位以上数字,
objRegExp.Pattern="(\d{4,})"
strHTML=objRegExp.replace(strHTML,"*")
'过滤网址的正则
objRegExp.Pattern="^(http|ftp|https):\/\/[\w\-_]+(\.[\w\-_]+)+([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?$"
strHTML=objRegExp.replace(strHTML,"*")
回复
没你自在 2009-08-06
还没有人回答吗?
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2009-08-03 04:22
社区公告
暂无公告