求写个正则 过滤超链接 但排除指定网站的超链接不过滤,该怎么处理
求写个正则 过滤超链接 但排除指定网站的超链接不过滤
代码
<a href="http://www.****.net">****</a>
<a href="http://bbs.****.net">****bbs</a>
<a href="http://www.baidu.com">baidu</a>
经过ASP正则过滤后,排除关键词****.net 过滤结果为:
<a href="http://www.****.net">****</a>
<a href="http://bbs.****.net">****bbs</a>
请教如何实现
------解决思路----------------------
只是提供一个思路,自己参考
代码
<a href="http://www.****.net">****</a>
<a href="http://bbs.****.net">****bbs</a>
<a href="http://www.baidu.com">baidu</a>
经过ASP正则过滤后,排除关键词****.net 过滤结果为:
<a href="http://www.****.net">****</a>
<a href="http://bbs.****.net">****bbs</a>
请教如何实现
------解决思路----------------------
qsshtml="<a href='http://www.****.net'>****</a><a href='http://bbs.****.net'>****bbs</a><a href='http://www.baidu.com'>baidu</a>"
dim resultcss
dim regEx,Matches
set regEx = new regexp
regEx.ignorecase=true
regEx.global=true
regEx.pattern="<a[^>]*?href=['""]{0,1}[^'""]*?['""]{0,1}[^>]*?>(?!****
------解决思路----------------------
****bbs)[^>]*?<\/a>"
resultcss=regEx.Replace(qsshtml, "")
resultcss=replace(resultcss,"<","<")
response.Write " 发现a : " & resultcss & "<br>"
set resultcss = nothing
set regEx = nothing
只是提供一个思路,自己参考