'函数名：GlHtml

'作 用：过滤html 元素

'参 数：str ---- 要过滤字符

'返回值：没有html 的字符

'**************************************************

Public Function GlHtml(ByVal str)

If IsNull(str) Or Trim(str) = "" Then

GlHtml = ""

Exit Function

End If

Dim re

Set re = New RegExp

re.IgnoreCase = True

re.Global = True

re.Pattern = "(\<.[^\)"

str = re.Replace(str, " ")

re.Pattern = "(\<\/[^\)"

str = re.Replace(str, " ")

Set re = Nothing

str = Replace(str, "'", "")

str = Replace(str, Chr(34), "")

GlHtml = str

End Function