asp下去除超链接函数

复制代码 代码如下:

<%

Function ReplaceUrl2(HTMLstr)

Dim n,str1,str2,str3,str4

HTMLstr = Lcase(HTMLstr)

For n=1 to Ubound(Split(HTMLstr,"(.+?)"

RegRemoveHref = ace(HTMLstr,"$1")

END Function