Remove HTML tags from string Truncation

<%
'*************************************** ***********
'Function name: gottopic
'Usage: String truncation. One Chinese character is counted as two characters, and one English character is counted as one character.
'Parameter: Str ---- original string
'Strlen ---- truncation Length
'Return value: the intercepted string
'*************************************** ***********
Function gottopic (STR, strlen)
If STR = "" then
Gottopic = ""
Exit Function
End if
Dim L, T, C, I
STR = Replace (replace (STR, "", ""), ", CHR (34),"> ","> "), "<", "<")
STR = Replace (STR ,"? ","")
L = Len (STR)
T = 0
For I = 1 to L
C = ABS (ASC (mid (STR, I, 1 )))
If C & gt; 255 then
T = T + 2
Else
T = t + 1
End if
If T> = strlen then
Gottopic = left (STR, I )&"... "
Exit
Else
Gottopic = Str
End if
Next
Gottopic = Replace (replace (gottopic, "", ""), CHR (34), "),"> ","> "), "<", "<")
End Function
'================================================ ============================
'Function: removehtml (strhtml)
'Function: Remove HTML tags
'Parameter: strhtml -- string to remove HTML tags
'================================================ ============================
Function removehtml (strhtml)
Dim objregexp, match, matches
Set objregexp = new Regexp
Objregexp. ignorecase = true
Objregexp. Global = true
'Take the closed <>
Objregexp. pattern = "<. +?> "
'For matching
Set matches = objregexp. Execute (strhtml)
'Traverse the matching set and replace the matched items.
For each match in matches
Strhtml = Replace (strhtml, match. value ,"")
Next
Removehtml = strhtml
Set objregexp = nothing
Set matches = nothing
End Function
%>