巧用asp语言过滤html元素

 　　巧用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