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

代码语言

代码分类

【ASP】除asp中所有超链接

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


	<%
	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)

Copyright © 2004 - 2024 dezai.cn. All Rights Reserved 站长博客粤ICP备13059550号-3