ASP超级链接和HTML函数 正则表达式的使用，最后一个实例经过测试。

过滤超级链接 代码如下:Function RegRemoveHref(HTMLstr) Set ra = New RegExp ra.IgnoreCase = True ra.Global = True ra.Pattern = “]+>(.+?)” RegRemoveHref = ra.replace(HTMLstr,”$1″) END Function 过滤所有HTML代码 代码如下:Function RemoveHTML(strHTML) Dim objRegExp, Match