asp下去除超链接函数
复制代码 代码如下:
<%
Function ReplaceUrl2(HTMLstr)
Dim n,str1,str2,str3,str4
HTMLstr = Lcase(HTMLstr)
For n=1 to Ubound(Split(HTMLstr,"(.+?)"
RegRemoveHref = ra.replace(HTMLstr,"$1")
END Function
【asp下去除超链接函数】相关文章:
asp下去除超链接函数
复制代码 代码如下:
<%
Function ReplaceUrl2(HTMLstr)
Dim n,str1,str2,str3,str4
HTMLstr = Lcase(HTMLstr)
For n=1 to Ubound(Split(HTMLstr,"(.+?)"
RegRemoveHref = ra.replace(HTMLstr,"$1")
END Function
【asp下去除超链接函数】相关文章: