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

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

来源:浦一科技点击:时间:2016-12-10 关键词:ASP html 函数
<%FunctionRemoveHTML(strHTML)'过滤HTML代码的函数包括过滤CSS和JSStrHtml=Replace(StrHtml,vbCrLf,"")StrHtml=Replace(StrHtml,Chr(13)&Chr(10
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  
%>  

服务项目

网站建设

网站建设

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

手机网站建设

手机网站建设

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

网站维护

网站维护

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

整合网络营销

整合营销

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

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