Discuz教程网

1314学习网»站长论坛 › 站长交流区 › 技术杂谈 › asp中格式化HTML函数代码 SDCMS加强版
返回列表 发新帖

asp中格式化HTML函数代码 SDCMS加强版

[复制链接]
authicon dly 发表于 2011-9-10 21:52:40 | 显示全部楼层 |阅读模式
  1. '==============================
  2. '格式化HTML，SDCMS加强版
  3. '==============================
  4. Function Nohtml(ByVal t0)
  5. IF Len(t0)=0 Or IsNull(t0) Then
  6. Nohtml=""
  7. Exit Function
  8. End IF
  9. Dim Regs,Matches,Match
  10. Set Regs=New Regexp
  11. Regs.Ignorecase=True
  12. Regs.Global=True
  13. '过滤掉JS,Iframe
  14. Regs.pattern ="<script.+?/script>"
  15. t0=Regs.Replace(t0,"")
  16. Regs.pattern ="<iframe.+?/iframe>"
  17. t0=Regs.Replace(t0,"")
  18. '再过滤其他
  19. Regs.Pattern="<.+?>"
  20. Set Matches=Regs.Execute(t0)
  21. IF Matches.Count>0 Then
  22. For Each Match In Matches
  23. t0=Replace(t0,Match.value,"")
  24. Next
  25. End IF
  26. t0=Replace(t0," ","")
  27. t0=Replace(t0,vbCrLf,"")
  28. t0=Replace(t0,"　","")
  29. t0=Replace(t0," ","")
  30. t0=Replace(t0,CHR(9),"")
  31. t0=Replace(t0,CHR(13),"")
  32. t0=Replace(t0,CHR(10),"")
  33. t0=Replace(t0,CHR(22),"")
  34. Set Regs=Nothing
  35. Nohtml=t0
  36. End Function
复制代码




上一篇：asp中文件与文件夹常用处理函数(文件后缀、创建文件等)
下一篇：MySQL性能分析及explain的使用说明
回复

举报

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

本版积分规则

1314学习网 ( 浙ICP备10214163号 )

GMT+8, 2025-5-2 22:00

Powered by Discuz! X3.4

© 2001-2013 Comsenz Inc.

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