Discuz教程网

1314学习网»站长论坛 › 站长交流区 › 技术杂谈 › asp CutStrX字符串截取函数(过滤全部HTML标记)
返回列表 发新帖

asp CutStrX字符串截取函数(过滤全部HTML标记)

[复制链接]
authicon dly 发表于 2011-9-7 12:33:44 | 显示全部楼层 |阅读模式

  2. Function CutStrX(ByVal Str,ByVal StrLen)
  3. Dim l,t,c,i,r

  5. '过滤全部HTML标记
  6. Set r=New RegExp
  7. r.Global=True
  8. r.MultiLine=True
  9. r.Pattern="(</?[A-Za-z][A-Za-z0-9]*[^>]*>)"
  10. str=r.Replace(str," ")
  11. Set r=Nothing

  13. l=Len(str)
  14. t=0
  15. For i=1 To l
  16. c=AscW(Mid(str,i,1))
  17. If c<0 Or c>255 Then t=t+2 Else t=t+1
  18. IF t>=StrLen Then
  19. CutStrX=Left(Str,i)&"..."
  20. Exit For
  21. Else
  22. CutStrX=Str
  23. End If
  24. Next
  25. End Function
复制代码




上一篇：ASP Eval、Execute、ExecuteGlobal区别分析
下一篇：从一个网站扒下的asp生成静态页面的代码 特供版
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

1314学习网 ( 浙ICP备10214163号 )

GMT+8, 2025-10-31 16:58

Powered by Discuz! X3.4

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表