asp采集内容怎样去掉链接

  '=========================================================
'** 函数：RemoveHref
'** 作用：正则表达式去除字符串中所有的超级链接
'=========================================================
Function RemoveHref(HTMLstr)
    Set ra = New RegExp
    ra.IgnoreCase = True
    ra.Global = True
    ra.Pattern = "<a[^>]+>(.+?)<\/a>"
    RemoveHref= ra.replace(HTMLstr,"$1")
End Function

'=========================================================
'** 函数：RemoveHref
'** 作用：去除字符串中所有的超级链接
'=========================================================
Function RemoveHref (HTMLstr)
    Dim n,str1,str2,str3,str4
    HTMLstr = Lcase(HTMLstr)
    For n=1 to Ubound(Split(HTMLstr,"<a"))
         str1 = Instr(HTMLstr,"<a")
         str2 = Instr(str1,HTMLstr,">")
         HTMLstr = left(HTMLstr,str1-1)&right(HTMLstr,len(HTMLstr)-len(left(HTMLstr,str2)))
         HTMLstr = replace (HTMLstr,"</a>","")
         RemoveHref  = HTMLstr
   Next
End Function