ASP过滤外链，保留站内链接（有过滤所有链接代码）
本帖最后由 XingYuan171679045 于 2012-12-26 14:07:56 编辑 '函数
Function RegRemoveHref(HTMLstr)
Set ra = New RegExp
ra.IgnoreCase = True
ra.Global = True
ra.Pattern = "<a[^>]+>(.+?)<\/a>"
RegRemoveHref = ra.replace(HTMLstr,"$1")
END Function
'调用
RegRemoveHref(rs("带链接的内容")
这样过滤了所有链接，如果要保留站内链接或指定域名的链接，要怎么修改？
[解决办法]
Function RegRemoveHref(HTMLstr)
dim ra
set ra = New RegExp
ra.IgnoreCase = True
ra.Global = True
ra.Pattern = " href=[""'](https?.*?)[""' ]"
RegRemoveHref = ra.replace(HTMLstr,"")
END Function
