服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

asp自动补全html标签自动闭合(正则表达式)

2019-07-11 16:18ASP之家 ASP教程

asp自动补全html标签自动闭合,方便asp截取带有html标签的内容,防止页面变形

代码如下:


Function closeHTML(strContent) 
Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match 
Set re = New RegExp 
re.IgnoreCase = True 
re.Global = True 
arrTags = Array("p", "div", "span", "table", "ul", "font", "b", "u", "i", "h1", "h2", "h3", "h4", "h5", "h6") 
For i = 0 To UBound(arrTags) 
OpenPos = 0 
ClosePos = 0 


re.Pattern = "\<" + arrTags(i) + "( [^\<\>]+|)\>" 
Set strMatchs = re.Execute(strContent) 
For Each Match in strMatchs 
OpenPos = OpenPos + 1 
Next 
re.Pattern = "\</" + arrTags(i) + "\>" 
Set strMatchs = re.Execute(strContent) 
For Each Match in strMatchs 
ClosePos = ClosePos + 1 
Next 
For j = 1 To OpenPos - ClosePos 
strContent = strContent + "</" + arrTags(i) + ">" 
Next 
Next 
closeHTML = strContent 
End Function 

延伸 · 阅读

精彩推荐