西安网站建设Asp正则表达式过滤标签收集

23412012-09-05

西安网站建设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
%>

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:15229292610

公司注册地址:西安市雁塔区融鑫路丽湾蓝岛1幢3单元16层31605号

临时办公地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

服务热线:15229292610

客服信箱:vip@dianmo.cc

846461336327

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1