asp下去除超链接的函数
来源:
中文源码网 浏览:164 次 日期:2024-04-17 08:50:01
【下载文档: asp下去除超链接的函数.txt 】
asp下去除超链接的函数
复制代码 代码如下:<% Function ReplaceUrl2(HTMLstr) Dim n,str1,str2,str3,str4 HTMLstr = Lcase(HTMLstr) For n=1 to Ubound(Split(HTMLstr,"
") HTMLstr = left(HTMLstr,str1-1)&right(HTMLstr,len(HTMLstr)-len(left(HTMLstr,str2))) HTMLstr = replace (HTMLstr,"","") ReplaceUrl2 = HTMLstr Next End Function %> 正则表达式去除链接:复制代码 代码如下: Function RegRemoveHref(HTMLstr) Set ra = New RegExp ra.IgnoreCase = True ra.Global = True ra.Pattern = "
]+>(.+?)<\/A>" RegRemoveHref = ra.replace(HTMLstr,"$1") END Function