html5/css教程

javascript教程

asp教程

php教程

jsp教程

C#/.NET教程

Python教程

网络营销

建站经验

点击排行

去掉ASP中的html代码函数

来源:中文源码网    浏览:438 次    日期:2024-03-26 06:51:16
以下代码由中文源码网(http://www.zwyuanma.com)创建 
	Function RemoveHTML(Textstr)
		 Dim sStr, regEx
		 sStr = Textstr
		 Set regEx = New RegExp
		 regEx.IgnoreCase = True
		 regEx.Global = True
		 regEx.Multiline = True
		 regEx.Pattern = ""
		 sStr = regEx.Replace(sStr, "")
		 regEx.Pattern = ""
		 sStr = regEx.Replace(sStr, "")
		 regEx.Pattern = "\s[on].+?=([\""|\'])(.*?)\1"
		 sStr = regEx.Replace(sStr, "")'------- 去除table、tr、td标签
		 regEx.Pattern = "<(.[^>]*)>"
		 sStr = regEx.Replace(sStr, "")
		 Set regEx = Nothing
		 RemoveHTML = sStr
	End Function

精彩推荐