asp下去除超链接的函数

代码如下:

<% 
Function ReplaceUrl2(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>","") 
ReplaceUrl2 = HTMLstr 
Next 
End Function 
%> 

正则表达式去除链接：

复制代码代码如下:

Function RegRemoveHref(HTMLstr) 
Set ra = New RegExp 
ra.IgnoreCase = True 
ra.Global = True 
ra.Pattern = "<A[^>]+>(.+?)<\/A>" 
RegRemoveHref = ra.replace(HTMLstr,"$1") 
END Function