<%

'过滤 所有 html ：

Function ReplaceHtml(ConStr)

    Dim tmpReStr, regEx

    tmpReStr = CStr(ConStr)

    Set regEx = New RegExp

    regEx.Pattern = "<\/*[^<>]*>"

    regEx.IgnoreCase = True

    regEx.Global = True

    tmpReStr = regEx.Replace(tmpReStr, "")

    ReplaceHtml = tmpReStr

End Function

'过滤 style ：

Function ReplaceStyleTag(ConStr)

    Dim tmpReStr, regEx

    tmpReStr = CStr(ConStr)

    Set regEx = New RegExp

    regEx.Pattern = "(<style)+[^<>]*>[^\0]*(<\/style>)+"

    regEx.IgnoreCase = True

    regEx.Global = True

    tmpReStr = regEx.Replace(tmpReStr, "")

    ReplaceStyleTag = tmpReStr

    Set regEx = Nothing

End Function

'过滤 层 div ：

Function ReplaceDivTag(ConStr)

    Dim tmpReStr, regEx

    tmpReStr = CStr(ConStr)

    Set regEx = New RegExp

    regEx.Pattern = "<(\/){0,1}div[^<>]*>"

    regEx.IgnoreCase = True

    regEx.Global = True

    tmpReStr = regEx.Replace(tmpReStr, "")

    ReplaceDivTag = tmpReStr

    Set regEx = Nothing

End Function

'过滤 链接 a ：

Function ReplaceATag(ConStr)

    Dim tmpReStr, regEx

    tmpReStr = CStr(ConStr)

    Set regEx = New RegExp

    regEx.Pattern = "<(\/){0,1}a[^<>]*>"

    regEx.IgnoreCase = True

    regEx.Global = True

    tmpReStr = regEx.Replace(tmpReStr, "")

    ReplaceATag = tmpReStr

    Set regEx = Nothing

End Function

'过滤 字体 font ：

Function ReplaceFontTag(ConStr)

    Dim tmpReStr, regEx

    tmpReStr = CStr(ConStr)

    Set regEx = New RegExp

    regEx.Pattern = "<(\/){0,1}font[^<>]*>"

    regEx.IgnoreCase = True

    regEx.Global = True

    tmpReStr = regEx.Replace(tmpReStr, "")

    ReplaceFontTag = tmpReStr

    Set regEx = Nothing

End Function

'过滤 span ：

Function ReplaceSpanTag(ConStr)

    Dim tmpReStr, regEx

    tmpReStr = CStr(ConStr)

    Set regEx = New RegExp

    regEx.Pattern = "<(\/){0,1}span[^<>]*>"

    regEx.IgnoreCase = True

    regEx.Global = True

    tmpReStr = regEx.Replace(tmpReStr, "")

    ReplaceSpanTag = tmpReStr

    Set regEx = Nothing

End Function

'过滤 Object ：

Function ReplaceObjectTag(ConStr)

    Dim tmpReStr, regEx

    tmpReStr = CStr(ConStr)

    Set regEx = New RegExp

    regEx.Pattern = "<object.*?/object>"

    regEx.IgnoreCase = True

    regEx.Global = True

    tmpReStr = regEx.Replace(tmpReStr, "")

    ReplaceObjectTag = tmpReStr

    Set regEx = Nothing

End Function

'过滤 iframe：

Function ReplaceIFrameTag(ConStr)

    Dim tmpReStr, regEx

    tmpReStr = CStr(ConStr)

    Set regEx = New RegExp

    regEx.Pattern = "(<iframe){1,}[^<>]*>[^\0]*(<\/iframe>){1,}"

    regEx.IgnoreCase = True

    regEx.Global = True

    tmpReStr = regEx.Replace(tmpReStr, "")

    ReplaceIFrameTag = tmpReStr

    Set regEx = Nothing

End Function

'过滤 script：

Function ReplaceScriptTag(ConStr)

    Dim tmpReStr, regEx

    tmpReStr = CStr(ConStr)

    Set regEx = New RegExp

    regEx.Pattern = "(<script){1,}[^<>]*>[^\0]*(<\/script>){1,}"

    regEx.IgnoreCase = True

    regEx.Global = True

    tmpReStr = regEx.Replace(tmpReStr, "")

    ReplaceScriptTag = tmpReStr

    Set regEx = Nothing

End Function

'过滤 Class ：

Function ReplaceClassTag(ConStr)

    Dim tmpReStr, regEx

    tmpReStr = CStr(ConStr)

    Set regEx = New RegExp

    regEx.Pattern = "(class=){1,}(""|\'){0,1}\S+(""|\'|>|\s){0,1}"

    regEx.IgnoreCase = True

    regEx.Global = True

    tmpReStr = regEx.Replace(tmpReStr, "")

    ReplaceClassTag = tmpReStr

    Set regEx = Nothing

End Function

%>