巧用asp语言过滤html元素：
"过滤html
"函数名：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