ASP网页过滤HTML代码的多种方法

分类：程序开发 Tags： asp 过滤评论：0 浏览：4767 最近更新时间：2008/6/13 19:58:26

1，过滤所有HTML代码，只留文字

 
<% 
'过滤所有HTML代码 
Function NoHtml(str) 
dim re 
Set re=new RegExp 
re.IgnoreCase =true 
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str,"") 
NoHtml=str 
set re=nothing 
End Function
%>

2，过滤所有HTML代码方法

 
<% 
 
Function RemoveHTML(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  
RemoveHTML=strHTML  
Set objRegExp = Nothing  
End Function  
 
'过滤图片正则表达式: <img.+?>  
 
%> 
 

3，过滤所有HTML代码方法

 
<% 
 
Function delHtml(strHtml)  
Dim objRegExp, strOutput  
Set objRegExp = New Regexp ' 建立正则表达式；  
objRegExp.IgnoreCase = True ' 设置是否区分大小写； 
objRegExp.Global = True '是匹配所有字符串还是只是第一个； 
objRegExp.Pattern = "(<[a-zA-Z].*?>)|(<[\/][a-zA-Z].*?>)" ' 设置模式引号中的是正则表达式,用来找出html标签；  
strOutput = objRegExp.Replace(strHtml, "") '将html标签去掉；  
strOutput = Replace(strOutput, "<", "<") '防止非html标签不显示；  
strOutput = Replace(strOutput, ">", ">")  
delHtml = strOutput  
Set objRegExp = Nothing  
End Function  
 
%>  
 

 

4，过滤所有HTML代码方法

 
<% 
 
'转化html标签为code代码 
 
function coder(str)  
dim i  
if isnull(str) then : coder="" : exit function : end if  
for i = 1 to len(str)  
select case mid(str,i,1)  
case "<" : coder = coder &"&lt;"  
case ">" : coder = coder &"&gt;"  
case "&" : coder = coder &"&amp;"  
case chr(9) : coder = coder &"&nbsp; &nbsp; "  
case chr(13) : coder = coder &"<br>"  
case chr(32) : coder = coder &"&nbsp;"  
case chr(34) : coder = coder &"&quot;"  
case chr(39) : coder = coder &"&#39;"  
case else : coder = coder & mid(str,i,1)  
end select  
next  
end function  
 
'过滤javascript字符  
 
function movejs(str)  
dim objregexp,str1  
set objregexp=new regexp  
objregexp.ignorecase =true  
objregexp.global=true  
objregexp.pattern="\<script.+?\<\/script\>"  
a=objregexp.replace(str,"")  
objregexp.pattern="\<[^\<]+>"  
movejs=objregexp.replace(a,"")  
end function  
 
'过滤html标签只剩<br>  
function filterhtml(byval fstring)  
if isnull(fstring) or trim(fstring)="" then  
filterhtml=""  
exit function  
end if  
fstring = replace(fstring, "<br />", "[br]")  
fstring = replace(fstring, "<br>", "[br]")  
 
'过滤html标签  
dim re  
set re = new regexp  
re.ignorecase=true  
re.global=true  
re.pattern="<(.+?)>"  
fstring = re.replace(fstring, "")  
set re=nothing  
fstring = replace(fstring, "[br]", "<br />")  
filterhtml = fstring  
end function  
%>  

 

5，过滤仅保留 ，换成

Function filterhtml(byval fstring)
if isnull(fstring) or trim(fstring)="" then
filterhtml=""
exit function
end if
'过滤html标签仅保留 ，把换成
dim re
set re = new regexp '创建一个保存有关正则表达式模式匹配信息的固有全局对象
re.ignorecase=true '忽略大小写
re.global=true '设置全局可用性
re.pattern="<br( )?(/)?>" '设置匹配模式，注:括号内有一空格.用来匹配 ， ，
fstring=re.replace(fstring,"[|br|]") '将匹配的字符串替换为[|br|]
re.pattern="<( )?(/)?p>" '设置匹配模式，注:括号内有一空格.用来匹配，，
fstring=re.replace(fstring,"[|br|]")
re.pattern="<(.+?)>" '匹配所有html标签
fstring=re.replace(fstring,"")
set re=nothing
fstring = replace(fstring,"[|br|]"," ") '将 [|br|]还原为
filterhtml = fstring
end function

Function filterhtml(byval fstring)
if isnull(fstring) or trim(fstring)="" then
filterhtml=""
exit function
end if
'过滤html标签 仅保留
，把换成

dim re
set re = new regexp '创建一个保存有关正则表达式模式匹配信息的固有全局对象
re.ignorecase=true '忽略大小写
re.global=true '设置全局可用性
re.pattern="" '设置匹配模式，注:括号内有一空格.用来匹配
，
，

fstring=re.replace(fstring,"[|br|]") '将匹配的字符串替换为[|br|]
re.pattern="<( )?(/)?p>" '设置匹配模式，注:括号内有一空格.用来匹配
，，< /p>
fstring=re.replace(fstring,"[|br|]")
re.pattern="<(.+?)>" '匹配所有html标签
fstring=re.replace(fstring,"")
set re=nothing
fstring = replace(fstring,"[|br|]","
") '将 [|br|]还原为

filterhtml = fstring
end function

本文地址：/352/

相关文章
推荐文章
最新文章

• centos系统挂载数据盘方法
• Dreamweaver 正则表达式字符查找替换方法
• UEditor百度编辑器1.4.3.3 ASP Utf-8版，上传图片文件服务器返回错误解决办法
• asp如何读取txt文本内容代码
• 支付宝即时到账POST按钮代码
• .htaccess中的apache rewrite规则写法详解
• asp检测email地址是否有效函数
• asp获取内容中第一张图片和全部图片代码
• ASP提交Post数据到远程网站的方法
• 把Access 2010 .accdb文件格式转换为Access 2003 .mdb操作方法

• zencart后台分类及产品列表页面显示缩略图
• 该如何赚钱?如何赚大钱的13个步骤!
• win7修改本地DNS教程
• 访问网站时出现Service Unavailable问题及解决方法
• 微信公众号运营工具收集汇总
• 去除windows 2003系统的登录界面
• 支付宝即时到账POST按钮代码
• 有用的CSS教程：18步改变你网站的css，使你从初学者成为高级用户(图)
• 国外网页版在线客服系统对比
• 2007年六一儿童节祝福短信/搞笑短信/经典手机短信大全

• 外贸常用的几种收款方式
• 国外提供域名免费DNS解析服务商收集
• 网易163免费版企业邮箱故障，无法登录，无法收发信
• 常用地图标注入口收集
• UEditor百度编辑器在html代码模式无法更新内容的解决办法
• centos系统挂载数据盘方法
• CSS选取第几个标签元素：first-child、last-child、nth-child
• 提供免费SSL证书申请的网站盘点
• G Suite开启邮件委托，Google gmail邮箱开启邮件委托授权
• Dreamweaver 正则表达式字符查找替换方法