<a href= '
http://www.abc.com/
'> abc.com </a><br /><a href= 'http://www.edf.com/
'> edf.com </a>过滤后，变为abc.com <br /><a href= '
http://www.edf.com/
'> edf.com </a>没人知道怎么做么，我就是要保留edf.com的超级链接，过滤掉其他的所有网址的超级链接。
Function autoLink(str)
Set ra = New RegExp
ra.IgnoreCase = True
ra.Global = True
ra.Pattern = "<a[^>]+>(.+?)<\/a>"
autoLink = ra.replace(str,"$1")
END Function
这样子，会过滤掉所有的链接的。
