ASP过滤html函数只保留纯文字

人气:
46
日期:
2019/9/24
HTML 网页设计 W3C 46

摘要:ASP过滤html函数只保留纯文字


<%
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 = "<style(.+?)/style>" 
'进行匹配 
Set Matches = objRegExp.Execute(strHTML) 
 
' 遍历匹配集合,并替换掉匹配的项目 
For Each Match in Matches 
strHtml=Replace(strHTML,Match.Value,"") 
Next
 
'取闭合的<> 
objRegExp.Pattern = "<script(.+?)/script>" 
'进行匹配 
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
 
%>

调用代码:<%=RemoveHTML(rs("content"))%>



Copyright © 2014 ASP技巧教程源码大全 All Rights Reserved
晋ICP备14006235号-3 页面执行时间:93.750毫秒 返回顶部

?分享按钮