繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ScriptHtml 函数之过滤html标记的asp代码
- ASP
- 关于网站文件自动备份程序的一点思考
- DBTree 1.3.2
- 抽取10万条数据，想起GetRows()
- 一份ASP内存的释放的实验报告
- [整理版]ASP常用内置函数
- Jmail组件发送邮件之绝对能用的函数
- 虚拟主机重启代码
- Access 开发人员常犯错误大全
- 用Asp如何实现防止网页频繁刷新？
- ASP 中使用 HTTP 协议发送参数详解
- 为什么 Windows2003 的 IIS6.0 不能上传超过 200K 的文件？
- ASP类的写法
- 实例学习如何在ASP中调用DLL
- 被动式统计网站在线人数
- [原创]完美解决ASP 不能更新。数据库或对象为只读。
- 5天学会asp
- Wrance的图片系统目录直读版1.0
- 信息发布中的判断过期和有效期的东西
- 小偷程序2
- 一个ASP中的数组
ASP 中的 ScriptHtml 函数之过滤html标记的asp代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 102 ::
收藏到网摘: n/a
'==================================================
'函数名：ScriptHtml
'作 用：过滤html标记
'参 数：ConStr ------ 要过滤的字符串
'==================================================
Function ScriptHtml(Byval ConStr,TagName,FType)
Dim Re
Set Re=new RegExp
Re.IgnoreCase =true
Re.Global=True
Select Case FType
Case 1
Re.Pattern="<" & TagName & "([^>])*>"
ConStr=Re.Replace(ConStr,"")
Case 2
Re.Pattern="<" & TagName & "([^>])*>.*?</" & TagName & "([^>])*>"
ConStr=Re.Replace(ConStr,"")
Case 3
Re.Pattern="<" & TagName & "([^>])*>"
ConStr=Re.Replace(ConStr,"")
Re.Pattern="</" & TagName & "([^>])*>"
ConStr=Re.Replace(ConStr,"")
End Select
ScriptHtml=ConStr
Set Re=Nothing
End Function
评论 (0) All
