ASP автоматически завершает тег html и автоматически закрывает его, что позволяет ASP перехватывать контент с тегами html и предотвращать деформацию страницы. Скопируйте код следующим образом:
Функция closeHTML(strContent)
Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match
Установить re = Новое регулярное выражение
re.IgnoreCase = Истина
re.Global = Истина
arrTags = Array(p, div, span, table, ul, font, b, u, i, h1, h2, h3, h4, h5, h6)
Для i = 0 To UBound(arrTags)
ОпенПос = 0
ЗакрытьПос = 0
re.Pattern = /< + arrTags(i) + ( [^/</>]+|)/>
Установите strMatchs = re.Execute(strContent)
Для каждого совпадения в strMatchs
ОткрытьПос = ОткрытьПос + 1
Следующий
re.Pattern = /</ + arrTags(i) + />
Установите strMatchs = re.Execute(strContent)
Для каждого совпадения в strMatchs
ЗакрытьПос = ЗакрытьПос + 1
Следующий
Для j = 1 To OpenPos — ClosePos
strContent = strContent + </ + arrTags(i) + >
Следующий
Следующий
closeHTML = стрКонтент
Конечная функция