asp正则表达式过滤标签

<%
'过滤 所有 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
%>

[本日志由 hwarker 于 2018-09-02 10:24 PM 编辑]

引用通告: 查看所有引用 | 我要引用此文章
Tags: 正则表达式过滤标签
收藏到网摘:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.