当前位置:96看吧 > 技术文档 > ASP编程 > asp函数获取内容中的所有图片

asp函数获取内容中的所有图片

时间:2013/10/07
作者:MaWendong.CN
来源:96看吧
查看:
标签:asp函数

该asp函数是非常实用的,实现获取内容中的所有图片,使用方法也很简单。

  1. <% 
  2. '-------------------------------------------------- 
  3. '作者:MaWenDong.CN 
  4. '博客:www.96kb.com 
  5. '-------------------------------------------------- 
  6. Function GetImgS(str)'获取所有图片 
  7.     Dim objRegExp1,mm,Match1,imgsrc 
  8.     Set objRegExp1 = New Regexp 
  9.     objRegExp1.IgnoreCase = True '忽略大小写 
  10.     objRegExp1.Global = True '全文搜索 
  11.     objRegExp1.Pattern = "src\=.+?\.(gif|jpg|png|bmp)" 
  12.     set mm=objRegExp1.Execute(str) 
  13.     For Each Match1 in mm 
  14.         imgsrc=Match1.Value 
  15.         '也许存在不能过滤的字符,确保万一 
  16.         imgsrc=replace(imgsrc,"""",""
  17.         imgsrc=replace(imgsrc,"src=",""
  18.         imgsrc=replace(imgsrc,"<",""
  19.         imgsrc=replace(imgsrc,">",""
  20.         imgsrc=replace(imgsrc,"img",""
  21.         imgsrc=replace(imgsrc," ",""
  22.         GetImgS=GetImgS&imgsrc'把里面的地址串起来备用 
  23.     next 
  24. End function 
  25. %> 

 

 

上一篇:ASP函数利用Jmail实现自动邮件发送
下一篇:ASP函数_ASP时间函数
页面举报
Report
关闭页面
Close
收藏页面
Favorites
分享页面
Share
版权信息:栏目内,站内会员所分享的全部“资源/素材/文章”,仅供学习与参考,版权为原作者所有。
下载提示:非注册用户每天可下载一个文件,已注册会员不受限制。
网友评论
数据载入中
验证码
  • 请您注意:
  • ·请不要在评论中含与内容无关的广告链接。
  • ·不良评论请用报告管理员,以利管理员及时删除。
  • ·遵守中华人民共和国的各项有关法律法规
  • ·承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • ·本站管理人员有权保留或删除评论中的任意内容
  • ·您在本站发表的作品,本站有权在网站内转载或引用
  • ·参与本评论即表明您已经阅读并接受上述条款
相关最新
相关热门