Automatic closed Html/ubb tag function of ASP

Function closehtml (strcontent)
' *************************************
' auto-close HTML
' **************
Dim arrtags, I, Openpos, Closepos, Re, Strmatchs, J, Match
Set re = New RegExp
re.i Gnorecase = 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 all Match in strmatchs
Closepos = closepos + 1
Next
for j = 1 to Openpos-cl Osepos
Strcontent = strcontent + "</" + arrtags (i) + ">"
Next
Next
closehtml = strcontent
S et re = Nothing
End Function

Function Closeubb (strcontent)
'*************************************
' Auto Close Ubb
'*************************************
Dim arrtags, I, Openpos, Closepos, Re, Strmatchs, J, Match
Set re = New RegExp ' affirm re object
Re. IgnoreCase = True ' Sets whether character case is case-sensitive
Re. Global = True ' Set overall availability
Arrtags = Array ("code", "quote", "list", "Color", "Align", "Font", "Size", "B", "I", "U", "html") ' Set up an array, storage related need to detect whether the closed label
For i = 0 to UBound (arrtags) ' loops each element in the array for detection
Openpos = 0 ' Initializes the number of current tag start tags
Closepos = 0 ' Initializes the number of current tag end tags
Re. pattern = "[" + arrtags (i) + "(=[^[]]+|)]" ' Start to judge the number of start and end tags separately
Set Strmatchs = Re. Execute (strcontent)
For the Match in Strmatchs
Openpos = Openpos + 1
Next
Re. Pattern = "[/" + arrtags (i) + "]"
Set Strmatchs = Re. Execute (strcontent)
For the Match in Strmatchs
Closepos = Closepos + 1
Next
For j = 1 to Openpos-closepos ' when the start and end tag numbers are inconsistent, close the current label
Strcontent = strcontent + "[/" + arrtags (i) + "]"
Next
Next
Closeubb = strcontent
Set re = Nothing
End Function