繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ScriptHtml 函数之过滤html标记的asp代码
- ASP
- ASP六大对象介绍
- 使用Filter实现信息的二次检索
- 让弹出窗口变得“听话”一些
- 在ASP中利用“正则表达式” 对象实现UBB风格的论坛
- “Web 匿名用户”帐户密码的位置
- 对一些编程初学者的良言警句
- ASP编程中15个非常有用的例子
- 精彩:ASP遗留的二十大积习
- 关于Asp代码与页面的分离
- 教大家如何利用ASP打造网站论坛DIY(1)
- 教大家如何利用ASP打造网站论坛DIY(2)
- 网站安全：防范ASP木马的十大基本原则
- 用ASP设计一个留言薄
- 趣味访客计数器设计两则
- 我的ASP之旅—二级联动菜单制作
- ASP编程--新手上路篇：ASP技术简介
- 用ASP实现网上考试系统
- 请注意！常见的ASP脚本攻击及防范技巧
- ASP开发的WAP格式简易邮件系统实例
- asp基础教程：网页间数据传递方法小结
ASP 中的 ScriptHtml 函数之过滤html标记的asp代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 123 ::
收藏到网摘: 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
