无风的港湾

'过滤HTML代码的函数包括过滤CSS和JS
Function RemoveHTML(strHTML)    '过滤HTML代码的函数包括过滤CSS和JS
StrHtml = Replace(StrHtml,vbCrLf,"")
StrHtml = Replace(StrHtml,Chr(13)&Chr(10),"")
StrHtml = Replace(StrHtml,Chr(13),"")
StrHtml = Replace(StrHtml,Chr(10),"")
StrHtml = Replace(StrHtml," ","")
StrHtml = Replace(StrHtml,"    ","")
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = ""
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
 '取闭合的<>
objRegExp.Pattern = ""
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
 '取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function

相关博文

• 2010年07月26日 -- AJAX的各种控件和类库 (0)
• 2010年07月28日 -- ASP防注入新方式，希望对大家是有用的 (0)
• 2010年05月23日 -- nginx的rewrite规则 (1)
• 2010年05月23日 -- nginx 通过user-agent判断手机终端 (0)
• 2010年05月23日 -- 《高性能网站建设指南》读书笔记 (0)
• 2006年12月27日 -- 多字段模糊搜索函数 (3)
• 2006年12月22日 -- asp长文章的自动分页代码 (0)
• 2006年12月8日 -- 动态CSS，换肤技术 (0)
• 2006年12月8日 -- 精华代码集 (0)
• 2006年11月20日 -- JavaScript常用检测脚本 (0)
• 2006年10月27日 -- 为JS写了一个include函数 (3)
• 2011年12月16日 -- Apache 中 KeepAlive 配置的合理使用 (0)
• 2011年06月29日 -- 开源软件的盈利模式 (0)
• 2010年07月28日 -- 如何删除删不掉的”PRN.asp:.jpg” (0)
• 2010年07月26日 -- PHP和Socket简介 (0)

标签Tags：ASP, ASP, css, js, 函数