当前位置:首页 > 网站维护 > 列表

asp正则表达式过滤标签html,style ,div,font,span,Object,iframe

来源:浦一科技点击:时间:2017-11-24 关键词:上海网站设计 asp正则表达式
<%'过滤所有html:FunctionReplaceHtml(ConStr)DimtmpReStr,regExtmpReStr=CStr(ConStr)SetregEx=NewRegExpregEx.Pattern="<\/*[^<>
正则表达式

<%

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

%>

服务项目

网站建设

网站建设

通过SEO优化技术,提供更多的展示机会,带来大量精准流量和询盘,每月意向客户增长20%。

手机网站建设

手机网站建设

手机网站的时代强势来袭,赢在全网营销时代,手机+电脑双剑合璧,把握商机滴水不漏。

网站维护

网站维护

一个好的网站需要定期或不定期地更新内容,才能不断地吸引更多的浏览者,增加访问量。

整合网络营销

整合营销

为了建立、维护和传播品牌,以及加强客户关系,而对品牌进行计划、实施和监督的一系列营销

预约建站
免费提供网站优化
领取关键词