巧用asp语言过滤html元素|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