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