求去掉链接的代码

使用正则表达式
例:
''封装成函数 regExReplace 正则替换
Function regExReplace(sSource,patrn, replStr)
Dim regEx, str1
str1 = sSource
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
regExReplace = regEx.Replace(str1, replStr)
End Function
dim c1,c2
c1="<a href='http://www.abc.com' target='_blank'>http://www.abc.com</A>"
c2=regExReplace(c1,"<[aA]\s+[^<>]+>(.+)<\/[aA]>","$1")
response.Write(c2)
欢迎使用如下调试工具:
http://www.ar114.com.cn/cai_tools/regexp.html

c2="<font style="text-decoration: none;">求去掉链接的代码 求百度空间CSS代码 鼠标移到链接上时 链接文字下面的底纹颜色怎么去掉 求DW链接ACCESS数据库的代码 求Asp链接数据库的代码(用Access连的) 想问问要在网页上去掉链接的下划线,插入什么代码?~~~我忘记了~~~ 急求：asp网页链接应用程序的代码 VB中用正则去掉HTML代码中的所有链接 求一个去掉QQ空间横幅的免费代码! ASP中ACCESS数据库转成SQL SERVER的链接代码,求高手改代码 去掉链接