上一篇
下一篇
asp过滤所有HTML代码（包括包括Javascript和css等）
作者:刚子 日期:2009-06-01
今天用asp过滤html，从网上找了N多N多函数，可是结果是一样的，全部都过滤不了css和JS，我本来打算用N个函数过滤多次呢。结果不注意发现了一个函数，使用了下，哇塞，的却把所有的HTML都过滤掉了，包括JS和CSS，激动ing，记录之。
程序代码
程序代码<%
a=RemoveHTML("<a href=>百度首页</a>")
Function RemoveHTML(Textstr)
Dim sStr, regEx
sStr = Textstr
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Multiline = True
regEx.Pattern = "<script[\s\S]*?</script>"
sStr = regEx.Replace(sStr, "")
regEx.Pattern = "<style[\s\S]*?</style>"
sStr = regEx.Replace(sStr, "")
regEx.Pattern = "\s[on].+?=([\""|\'])(.*?)\1"
sStr = regEx.Replace(sStr, "")
regEx.Pattern = "<(.[^>]*)>"
sStr = regEx.Replace(sStr, "")
Set regEx = Nothing
RemoveHTML = sStr
End Function
response.Write(""&a&"")
%>
a=RemoveHTML("<a href=>百度首页</a>")
Function RemoveHTML(Textstr)
Dim sStr, regEx
sStr = Textstr
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Multiline = True
regEx.Pattern = "<script[\s\S]*?</script>"
sStr = regEx.Replace(sStr, "")
regEx.Pattern = "<style[\s\S]*?</style>"
sStr = regEx.Replace(sStr, "")
regEx.Pattern = "\s[on].+?=([\""|\'])(.*?)\1"
sStr = regEx.Replace(sStr, "")
regEx.Pattern = "<(.[^>]*)>"
sStr = regEx.Replace(sStr, "")
Set regEx = Nothing
RemoveHTML = sStr
End Function
response.Write(""&a&"")
%>
文章来自: 
引用通告: 
Tags: 评论: 0 | 引用: 0 | 查看次数: -
发表评论