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