ASP completa automáticamente la etiqueta html y la cierra automáticamente, lo que facilita que ASP intercepte el contenido con etiquetas html y evite la deformación de la página. Copie el código de la siguiente manera:
Función closeHTML(strContent)
Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match
Establecer re = Nueva expresión regular
re.IgnoreCase = Verdadero
re.Global = Verdadero
arrTags = Array(p, div, span, table, ul, font, b, u, i, h1, h2, h3, h4, h5, h6)
Para i = 0 a UBound(arrTags)
PosApertura = 0
PosCerrar = 0
re.Patrón = /< + arrTags(i) + ( [^/</>]+|)/>
Establecer strMatchs = re.Execute(strContent)
Para cada partido en strMatchs
OpenPos = OpenPos + 1
Próximo
re.Pattern = /</ + arrTags(i) + />
Establecer strMatchs = re.Execute(strContent)
Para cada partido en strMatchs
PosCerrar = PosCerrar + 1
Próximo
Para j = 1 A OpenPos - ClosePos
strContenido = strContenido + </ + arrTags(i) + >
Próximo
Próximo
closeHTML = strContenido
Función final