当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP教程:过滤HTML代码并截取

ASP
Access 2000 数据库 80 万记录通用快速分页类
Microsoft JET Database Engine 错误 ''80004005'' 未指定的错误的完美解决方法
收藏的ASP常用的函数集
asp分页的一个类
ASP开发网页牢记注意事项
ASP下操作Excel技术总结分析
ASP数据岛操作类
ASP经典分页类
asp论坛在线人数统计研究
ASP调用SQL SERVER存储程序
asp输出bmp
ASP连接数据库的全能代码
ASP面向对象编程探讨及比较
web文件管理器的后续开发
一小偷类!!有兴趣的可以看看
利用ASP实现事务处理的方法
大数量查询分页显示 微软的解决办法
如何把ASP编写成DLL
asp实现树型结构
超级ASP大分页_我的类容我做主

No. « 56 57 58 59 »

技术文章搜索

关键字

ASP教程:过滤HTML代码并截取

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-28   浏览: 126 ::
收藏到网摘: n/a

正常ASP中对录入内容的过滤仅仅是对左尖括号（<）和右尖括号的（>）的HTML源码的替换，以在页面中显示为左右尖括号，而不是将尖括号作为HTML标签执行了。

当然这应该是属于正常过滤手法，而还有一种过滤方法则是将一对尖括号及尖括号中的所有字符均替换不显示，作为过滤HTML标签的最终极手法，但该方法对于内容中必须描述有关尖括号内容则是过滤过头了（比如本文起始所引用的相关尖括号符号均将看不见“<>”，文章中用来描述HTML标签“<hr>”也将看不见）。

不过，总归是有需要将所有尖括号中内容全部替换的时候。很显然是需要进行正则的。搜索了一段代码


Function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str,"")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str,"")
nohtml=str
set re=nothing
End Function

或者


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

做过简单的应用。


[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]



附带“过滤HTML代码并截取”的代码



Function cutStr(str,strlen)
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
str=re.Replace(str,"")
set re=Nothing
Dim l,t,c,i
l=Len(str)
t=0
For i=1 to l
c=Abs(Asc(Mid(str,i,1)))
If c>255 Then
t=t+2
Else
t=t+1
End If
If t>=strlen Then
cutStr=left(str,i)&"..."
Exit For
Else
cutStr=str
End If
Next
cutStr=Replace(cutStr,chr(10),"")
cutStr=Replace(cutStr,chr(13)," ")
cutStr=Replace(cutStr,"&nbsp;","")
End Function