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