<% 002 '过滤 所有 html ：
003
004 Function ReplaceHtml（ConStr）
005 Dim tmpReStr, regEx
006 tmpReStr = CStr（ConStr）
007 Set regEx = New RegExp
008 regEx.Pattern = "<\/*[^<>]*>"
009 regEx.IgnoreCase = True
010 regEx.Global = True
011 tmpReStr = regEx.Replace（tmpReStr, ""）
012 ReplaceHtml = tmpReStr
013 End Function
014
015 '过滤 style ：
016
017 Function ReplaceStyleTag（ConStr）
018 Dim tmpReStr, regEx
019 tmpReStr = CStr（ConStr）
020 Set regEx = New RegExp
021 regEx.Pattern = "（<style）+[^<>]*>[^\0]*（<\/style>）+"
022 regEx.IgnoreCase = True
023 regEx.Global = True
024 tmpReStr = regEx.Replace（tmpReStr, ""）
025 ReplaceStyleTag = tmpReStr
026 Set regEx = Nothing
027 End Function
028
029
030 '过滤 层 div ：
031
032 Function ReplaceDivTag（ConStr）
033 Dim tmpReStr, regEx
034 tmpReStr = CStr（ConStr）
035 Set regEx = New RegExp
036 regEx.Pattern = "<（\/）{0,1}div[^<>]*>"
037 regEx.IgnoreCase = True
038 regEx.Global = True
039 tmpReStr = regEx.Replace（tmpReStr, ""）
040 ReplaceDivTag = tmpReStr
041 Set regEx = Nothing
042 End Function
043
044
045
046 '过滤 链接 a ：
047