ASP网页过滤HTML代码的多种方法
分类:程序开发 Tags: asp 过滤 评论:0 浏览:5130 最近更新时间:2008/6/13 19:58:26
1,过滤所有HTML代码,只留文字
2,过滤所有HTML代码方法
3,过滤所有HTML代码方法
4,过滤所有HTML代码方法
5,过滤仅保留<br>,<p>换成<br>
- <%
- '过滤所有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
- %>
- <%
- 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.+?>
- %>
- <%
- 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
- %>
- <%
- '转化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 &"<"
- case ">" : coder = coder &">"
- case "&" : coder = coder &"&"
- case chr(9) : coder = coder &" "
- case chr(13) : coder = coder &"<br>"
- case chr(32) : coder = coder &" "
- case chr(34) : coder = coder &"""
- case chr(39) : coder = coder &"'"
- 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
- %>
- Function filterhtml(byval fstring)
- if isnull(fstring) or trim(fstring)="" then
- filterhtml=""
- exit function
- end if
- '过滤html标签 仅保留<br>,把<p>换成<br>
- dim re
- set re = new regexp '创建一个保存有关正则表达式模式匹配信息的固有全局对象
- re.ignorecase=true '忽略大小写
- re.global=true '设置全局可用性
- re.pattern="<br( )?(/)?>" '设置匹配模式,注:括号内有一空格.用来匹配<br>,<br/>,<br />
- fstring=re.replace(fstring,"[|br|]") '将匹配的字符串替换为[|br|]
- re.pattern="<( )?(/)?p>" '设置匹配模式,注:括号内有一空格.用来匹配<p>,</p>,< /p>
- fstring=re.replace(fstring,"[|br|]")
- re.pattern="<(.+?)>" '匹配所有html标签
- fstring=re.replace(fstring,"")
- set re=nothing
- fstring = replace(fstring,"[|br|]","<br>") '将 [|br|]还原为<br>
- filterhtml = fstring
- end function
本文地址:/352/
-
• 打开网页自动弹出QQ对话框代码
• asp如何读取txt文本内容代码
• .htaccess中的apache rewrite规则写法详解
• asp检测email地址是否有效函数
• ASP经常用到的代码,比较全,不可不看!
• asp中判断一个字符是不是汉字
• ASP数据库连接、显示、添加、删除、查询等简单操作教程
• 把Access 2010 .accdb文件格式转换为Access 2003 .mdb操作方法
• 兼容ie,火狐,chrome,safari,360,qq,遨游,搜狗等浏览器的设为首页和加入收藏代码
• 支持中文转换的Asp UrlDecode函数
-
• 教你怎么获取微信百人群资格
• 一个表单中如何实现多个按钮提交的方法代码
• Windows Media Player 11绕过XP正版验证的方法
• FireFox火狐浏览器有用的设置方法记录
• 如何免费点亮、关闭熄灭QQ音速图标?
• 如今外贸网站支持https访问很有必要,提升客户信任度
• 教你如何使用电脑键盘上的Shift键
• 网易163免费版企业邮箱故障,无法登录,无法收发信
• 如何免费点亮、关闭熄灭QQ交友用户图标?
• opencart网店把分类显示到顶部导航教程
-
• Google Workspace gmail企业邮箱老板监控员工邮件操作方法
• zoho企业邮箱开启手机验证码双重认证教程
• 外贸网站如何使用Google Search Console谷歌管理员工具
• 腾讯企业邮箱开启安全登录后,如何登录foxmail收发信
• 获取小红书无水印图片的原理
• iis如何支持.webp图片格式访问
• FireFox火狐浏览器有用的设置方法记录
• 最新政策 Google免费版企业邮箱个人用途可以继续保留免费版
• MySQL报Field‘***’doesn’t have a default value错误的解决办法
• 抖音国际版TikTok注册过程记录