ASP complète automatiquement la balise html et la ferme automatiquement, ce qui permet à ASP d'intercepter le contenu avec des balises html et d'empêcher la déformation de la page. Copiez le code comme suit :
Fonction closeHTML(strContent)
Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match
Définir re = Nouvelle RegExp
re.IgnoreCase = Vrai
re.Global = Vrai
arrTags = Tableau (p, div, span, table, ul, police, b, u, i, h1, h2, h3, h4, h5, h6)
Pour i = 0 Vers UBound (arrTags)
Pos Ouvert = 0
FermePos = 0
re.Pattern = /< + arrTags(i) + ( [^/</>]+|)/>
Définir strMatchs = re.Execute(strContent)
Pour chaque correspondance dans strMatchs
OuvertPos = OuvertPos + 1
Suivant
re.Pattern = /</ + arrTags(i) + />
Définir strMatchs = re.Execute(strContent)
Pour chaque correspondance dans strMatchs
FermePos = FermePos + 1
Suivant
Pour j = 1 Vers OpenPos - ClosePos
strContent = strContent + </ + arrTags(i) + >
Suivant
Suivant
closeHTML = strContent
Fonction de fin