’========================================================= 
’** 函数：RemoveHref_A 
’** 作用：去除字符串中所有的超级链接  
’** 作者：阿里西西 
’** 时间：2005-11-10 
’** 网站：http://www.alixixi.com/  
’========================================================= 
Function RemoveHref_A(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_A = HTMLstr 
Next 
End Function