asp利用正则过滤文章内容中的所有链接

一些在允许用户发布信息的时候，为了不让用户在其中发布链接，可使用正则将用户发布的信息中的超级链接给过滤掉。即使用户发布了，写入到数据库中的文章内容也没有了，这样让用户自觉的不再发布带有链接的文字了。具体实现的代码：
<%
Function LoseATag(ContentStr)
     Dim ClsTempLoseStr,regEx
    ClsTempLoseStr = Cstr(ContentStr)
     Set regEx = New RegExp
     regEx.Pattern = "<(\/){0,1}a[^<>]*>"
     regEx.IgnoreCase = True
     regEx.Global = True
     ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
     LoseATag = ClsTempLoseStr
     Set regEx = Nothing
End Function
str="sdfsdfsd<a href=""http://www.baidu.com"">www.baidu.com</a>123456789"
response.write "输出原始的结果是："&str&"<br>"
response.write "过滤后的结果是："&LoseATag(str)&"<br>"
%>