有时候我们需要去除网页中的超链接，那么就可以使用下面的代码了
代码如下:
<%
Function ReplaceUrl2(HTMLstr)
Dim n,str1,str2,str3,str4
HTMLstr = Lcase(HTMLstr)
For n=1 to Ubound(Split(HTMLstr,”str1 = Instr(HTMLstr,”str2 = Instr(str1,HTMLstr,”>”)
HTMLstr = left(HTMLstr,str1-1)&right(HTMLstr,len(HTMLstr)-len(left(HTMLstr,str2)))
HTMLstr = replace (HTMLstr,””,””)
ReplaceUrl2 = HTMLstr
Next
End Function
%>
Function ReplaceUrl2(HTMLstr)
Dim n,str1,str2,str3,str4
HTMLstr = Lcase(HTMLstr)
For n=1 to Ubound(Split(HTMLstr,”str1 = Instr(HTMLstr,”str2 = Instr(str1,HTMLstr,”>”)
HTMLstr = left(HTMLstr,str1-1)&right(HTMLstr,len(HTMLstr)-len(left(HTMLstr,str2)))
HTMLstr = replace (HTMLstr,””,””)
ReplaceUrl2 = HTMLstr
Next
End Function
%>
正则表达式去除链接来源gao($daima.com搞@代@#码网：
代码如下:
Function RegRemoveHref(HTMLstr)
Set ra = New RegExp
ra.IgnoreCase = True
ra.Global = True
ra.Pattern = “]+>(.+?)”
RegRemoveHref = ra.replace(HTMLstr,”$1″)
END Function
Set ra = New RegExp
ra.IgnoreCase = True
ra.Global = True
ra.Pattern = “]+>(.+?)”
RegRemoveHref = ra.replace(HTMLstr,”$1″)
END Function
以上就是asp下去除超链接的函数的详细内容，更多请关注gaodaima搞代码网其它相关文章！
搞代码网（gaodaima.com）提供的所有资源部分来自互联网，如果有侵犯您的版权或其他权益，请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected]，我们会在看到邮件的第一时间内为您处理，或直接联系QQ：872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接：asp下去除超链接的函数
转载请注明原文链接：asp下去除超链接的函数
