html5/css教程

javascript教程

asp教程

php教程

jsp教程

C#/.NET教程

Python教程

网络营销

建站经验

点击排行

asp去掉html标签函数

来源:中文源码网    浏览:414 次    日期:2024-04-26 11:52:30
function nohtml(str) 
	dim re 
	Set re=new RegExp 
	re.IgnoreCase =true 
	re.Global=True 
	re.Pattern="(\<.[^\<]*\>)" 
	str=re.replace(str," ") 
	re.Pattern="(\<\/[^\<]*\>)" 
	str=re.replace(str," ") 
	str=replace(str," ","") 
	str=replace(str," ","") 
	nohtml=str 
	set re=nothing 
end function

精彩推荐