asp中格式化HTML函数代码 SDCMS加强版
来源：asp之家 发布时间：2011-02-20 11:18:00
代码如下:
'==============================
'格式化HTML，SDCMS加强版
'==============================
Function Nohtml(ByVal t0)
IF Len(t0)=0 Or IsNull(t0) Then
Nohtml=""
Exit Function
End IF
Dim Regs,Matches,Match
Set Regs=New Regexp
Regs.Ignorecase=True
Regs.Global=True
'过滤掉JS,Iframe
Regs.pattern ="<script.+?/script>"
t0=Regs.Replace(t0,"")
Regs.pattern ="<iframe.+?/iframe>"
t0=Regs.Replace(t0,"")
'再过滤其他
Regs.Pattern="<.+?>"
Set Matches=Regs.Execute(t0)
IF Matches.Count>0 Then
For Each Match In Matches
t0=Replace(t0,Match.value,"")
Next
End IF
t0=Replace(t0," ","")
t0=Replace(t0,vbCrLf,"")
t0=Replace(t0," ","")
t0=Replace(t0," ","")
t0=Replace(t0,CHR(9),"")
t0=Replace(t0,CHR(13),"")
t0=Replace(t0,CHR(10),"")
t0=Replace(t0,CHR(22),"")
Set Regs=Nothing
Nohtml=t0
End Function
0
投稿猜你喜欢
- 最近看到大家都练习写树，偶也学习学习写了一个，大家多多批评，我好进步。不过我看了一些树的xml文档都是在xml中就已经有了树的结构，所以我写
摸到她了！青翠的衣衫，奶白的肌肤，捧在手上的感觉真是太好了，心里美滋滋的。《悟透JavaScript》，一本偶然之作，终于成书并出版了。本书- 我们在设计网站的时候，有的时候需要根据页面元素的属性来制作不同的样式，比如，对于不同的链接类型，显示不同的链接图标。CSS的选择器是个很有用
- 在my.cnf中设置了sql_mode='STRICT_TRANS_TABLES';却发现还是有非法数据的写入，比如无符号整
- 1. 吊顶下拉菜单的键盘可用性改进无障碍访问貌似最近比较火，大家都在聊，其中一块就是键盘的可访问性。我们在首页上作了些调整，让用户可以通过键
- 时下，个性ico图标却成为一些主流大牌网站提高用户体验（UE）的一个“时髦”玩法，那么，是如何在IE地址栏显示出网站的个性图标的呢？常浏览网
- 可能很多人都要问，网站的文字还需要设计吗？对于很多的网站来说，字在整个网站的内容中占了80％以上甚至更多，或者换个角度上说，网站可以没有颜色
- 浏览器对于CSS的支持问题落后于CSS的发展，以占有市场绝对份额的Internet Explorer来说，直到其前不久发布的第8个版本才刚刚
- oracle数据库的快照是一个表，它包含有对一个本地或远程数据库上一个或多个表或视图的查询的结果。正因为快照是一个主表的查询子集，使用快照可
- 背景：Email地址存于MSSql一用户信息表中，数量上万。公司自有服务器，集SMTP,POP3,WWW,FTP,MSSql,DNS等多种服
- 如何准确获知对方来访问的时间和URL？代码如下：logfile.asp<％Dim ValidLog '&n
- 生成HTML方法主要步骤只有两个：一、获取要生成的html文件的内容二、将获取的html文件内容保存为html文件我在这里主要说明的只是第一
- linux平台及windows平台mysql重启方 * inux下重启MySQL的正确方法：1、通过rpm包安装的MySQLservice m
- 知识点： 1、拼接SQL 2、UNION ALL 3、EXEC 其代码如下： 代码如下:--测试示例 declare @sql
- 首先，必须有错误继续进行的声明On Error Resume Next 然后尝试简历jmail实例： Dim JMail Set JMail
- MySQL服务器有几个影响其操作的参数（变量）。如果缺省的参数值不合适，可以将其修改为对服务器运行环境更合适的值。例如，如果您有大量的内存，
- 先让我们看一个例子，了解什么是模式化窗口。以下是QQ秀商城在非登录时提示登录的一种状态。当我在非登录状态，通过保存形象的方式买一件衣服时，弹
- 阅读上一篇：[译]Javascript风格要素（一） 我们使用习惯用法可以使我们的意图更加的清晰和简洁。使用==时，当心强制转换考虑下面函数
- 如果不用类库(如jquery)来写，往往很多时候，都需要通过id或tag来获取html里的某一对象，然后对其进行操作。为了节省代码，把常用的
- 在设计网页时，没有比页面的外观更重要的了。所以，如果发现设计人员十分关注字体及字体大小，我并不感到惊奇。使用CSS来编辑字体有各种各样的方法
