除asp中所有超链接代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】除asp中所有超链接

作者:瑞祺 / 发布于2015/7/23/ 986


	<%
	Function ReplaceUrl2(HTMLstr)
	Dim n,str1,str2,str3,str4
	HTMLstr = Lcase(HTMLstr)
	For n=1 to Ubound(Split(HTMLstr,"<a"))
	str1 = Instr(HTMLstr,"<a")
	str2 = Instr(str1,HTMLstr,">")
	HTMLstr = left(HTMLstr,str1-1)&right(HTMLstr,len(HTMLstr)-len(left(HTMLstr,str2)))
	HTMLstr = replace (HTMLstr,"</a>","")
	ReplaceUrl2 = HTMLstr
	Next
	End Function

	%>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

　　

试试其它关键字

　超链接　

同语言下

可能有用的

瑞祺贡献的其它代码(25)