asp去HTML标签
<%
'/* 函数名称:Zxj_ReplaceHtml ClearHtml
'/* 函数语言:VBScript Language
'/* 作 用:清除文件HTML格式函数
'/* 传递参数:Content (注:需要进行清除的内容)
'/* 函数作者:张晓军(古城童话) QQ:382511147
'/* 函数说明:正则匹配(正则表达式)模式进行数据匹配替换
Function ClearHtml(Content)
Content=Zxj_ReplaceHtml("&#[^>]*;", "", Content)
Content=Zxj_ReplaceHtml("</?marquee[^>]*>", "", Content)
Content=Zxj_ReplaceHtml("</?object[^>]*>", "", Content)
Content=Zxj_ReplaceHtml("</?param[^>]*>", "", Content)
Content=Zxj_ReplaceHtml("</?embed[^>]*>", "", Content)
Content=Zxj_ReplaceHtml("</?table[^>]*>", "", Content)
Content=Zxj_ReplaceHtml(" ","",Content)
Content=Zxj_ReplaceHtml("</?tr[^>]*>", "", Content)
Content=Zxj_ReplaceHtml("</?th[^>]*>","",Content)
Content=Zxj_ReplaceHtml("</?p[^>]*>","",Content)
Content=Zxj_ReplaceHtml("</?a[^>]*>","",Content)
Content=Zxj_ReplaceHtml("</?img[^>]*>","",Content)
Content=Zxj_ReplaceHtml("</?tbody[^>]*>","",Content)
Content=Zxj_ReplaceHtml("</?li[^>]*>","",Content)
Content=Zxj_ReplaceHtml("</?span[^>]*>","",Content)
Content=Zxj_ReplaceHtml("</?div[^>]*>","",Content)
Content=Zxj_ReplaceHtml("</?th[^>]*>", "", Content)
Content=Zxj_ReplaceHtml("</?td[^>]*>", "", Content)
Content=Zxj_ReplaceHtml("</?script[^>]*>", "", Content)
Content=Zxj_ReplaceHtml("(javascript|jscript|vbscript|vbs):", "", Content)
Content=Zxj_ReplaceHtml("on(mouse|exit|error|click|key)", "", Content)
Content=Zxj_ReplaceHtml("<\\?xml[^>]*>", "", Content)
Content=Zxj_ReplaceHtml("<\/?[a-z]+:[^>]*>", "", Content)
Content=Zxj_ReplaceHtml("</?font[^>]*>", "", Content)
Content=Zxj_ReplaceHtml("</?b[^>]*>","",Content)
Content=Zxj_ReplaceHtml("</?u[^>]*>","",Content)
Content=Zxj_ReplaceHtml("</?i[^>]*>","",Content)
Content=Zxj_ReplaceHtml("</?strong[^>]*>","",Content)
ClearHtml=Content
End Function
Function Zxj_ReplaceHtml(patrn, strng,content)
IF IsNull(content) Then
content=""
End IF
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = true ' 设置忽略字符大小写。
regEx.Global = True ' 设置全局可用性。
Zxj_ReplaceHtml=regEx.Replace(content,strng) ' 执行正则匹配
End Function
%>
======================================================
转载于:https://blog.51cto.com/ylj798/1063270
asp去HTML标签相关推荐
- ios html正则表达式,ios 正则表达式去html标签
ios 正则表达式去html标签 [2021-01-27 12:53:55] 简介: php正则表达式去掉html的方法:首先使用"htmlspecialchars_decode" ...
- 网易邮箱广告标签怎么关 163邮箱去广告标签的教程
1.打开百度输入网易邮箱 网易邮箱广告标签怎么关? 163邮箱去广告标签的教程 网易邮箱广告标签怎么关? 163邮箱去广告标签的教程 2.输入账号和密码,进入邮箱主页,在标签栏看到广告标签 网易邮箱广 ...
- html表格标签高级应用,asp.net core标签助手的高级用法TagHelper+Form
上一篇博客我讲解了TagHelper的基本用法和自定义标签的生成,那么我就趁热打铁,和大家分享一下TagHelper的高级用法~~,大家也可以在我的博客下随意留言. 对于初步接触asp.net cor ...
- 前端初级新人,如何撕去菜鸟标签
原文地址:github.com/ruizhengyun- 作为前端新人,我们常以菜鸟自居,主要是专业程度不高,还有就是自谦.其实,作为菜鸟的我们也想撕掉这类标签,我们也努力,可还是学不好前端,是真的不 ...
- asp.net用标签递归一颗树
protected void Page_Load(object sender, EventArgs e){inintbind();}/// <summary>/// 初始化所有数据/// ...
- ASP从HTML标签中提取中文
Function delHtml(strHtml) '做了一个函数名叫delhtml Dim objRegExp, strOutput Set objRegExp = New Regexp ' 建立 ...
- ASP.NET Core - 关于标签帮助器值得了解的五点
如果您开发过ASP.NET Core Web应用程序,您应该已经熟悉了标签帮助器.ASP.NET Core应用程序依赖标签帮助器来呈现表单和表单字段是很常见的.所以,一个视图通常包含许多标签帮助器以及 ...
- HTML form 标签的 method 属性
2019独角兽企业重金招聘Python工程师标准>>> 实例 在下面的例子中,表单数据将通过 method 属性附加到 URL 上: <form action="fo ...
- 菜鸟也学DW做ASP
第一章 安装配置服务器篇 既然是用DreamWeaver MX来做ASP页面,那DreamWeaver MX软件肯定是少不了,当然以后会要连接到数据库,所以一些数据库管理软件(DBMS)比如微软的Ac ...
最新文章
- PHP 7 编译安装开启 libevent 扩展支持
- Winform中DataGridView绑定IList数据源后的排序
- WildFly 报错 java.lang.NoClassDefFoundError
- 【NLP-NER】命名实体识别中最常用的两种深度学习模型
- 关于摄像头的一些零碎知识
- oracle只读事物,oracle的只读事务
- 输在学历的起跑线上?没关系,10本书助你技能爆表升职加薪
- 关于分布式系统架构模块通讯方式选择的问题
- WiMAX版图不止3G
- nodejs的一些日常操作
- java 三次样条插值_java – 三次样条插值的正确实现
- 大数据发展的7个趋势 -- 阿里技术专家权威解读
- HP服务器虚拟IP,HP Jetdirect 打印服务器 - 用于 TCP/IP(UDP)连接的 HP Jetdirect 端口号...
- 不可不读的百句良言!!
- android直接gpu中取纹理数据,[Android-Camera开发]Android平台Camera实时预览数据处理即实时滤镜实现方法探讨(二)--GPUImage探讨...
- Flight_Simulator(DHC-2‘Beaver’aircraft )
- JavaScript 基本面试问题总结
- python 的魔法函数
- Eatting外卖基于瑞吉外卖代码全功能优化含源码
- 英语语法总结--动词不定式