ASP正则判断取出HTML的图片地址的函数

• 　   用ASP取出HTML里面的图片地址的函数主要原理就是用正则判断的属性。这在采集程序中将非常有用。

  　　函数如下：

  Function ShowPic(str) 
  　　Set objRegExp = New Regexp'设置配置对象  
  　　objRegExp.IgnoreCase = True'忽略大小写  
  　　objRegExp.Global = True'设置为全文搜索  
  　　objRegExp.Pattern = "<img.+?>" 
  　　'为了确保能准确地取出图片地址所以分为两层配置：首先找到里面的<img>标签，然后再取出里面的图片地址后面的getimgs函数就是实现后一个功能的。  
  strs=trim(str)  
  Set Matches =objRegExp.Execute(strs)'开始执行配置  
  For Each Match in Matches  
  RetStr = RetStr &getimgs( Match.Value )'执行第二轮的匹配  
  Next  
  ShowPic = RetStr 
  End Function 
  Function getimgs(str)  
  getimgs=""  
  Set objRegExp1 = New Regexp  
  objRegExp1.IgnoreCase = True  
  objRegExp1.Global = True  
  objRegExp1.Pattern = "http://.+?"""'取出里面的地址  
  set mm=objRegExp1.Execute(str)  
  For Each Match1 in mm  
  getimgs=getimgs&left(Match1.Value,len(Match1.Value)-1)&""'把里面的地址串起来备用  
  next  
  End Function  
  '取得图片内容 
  function getHTTPPage(url)  
  on error resume next  
  dim http  
  set http=server.createobject("MSXML2.XMLHTTP")'使用xmlhttp的方法来获得图片的内容  
  Http.open "GET",url,false  
  Http.send()  
  if Http.readystate<>4 then  
  exit function  
  

• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• ASP正则判断取出HTML的图片地址的函数 相关文章：
• ·网站的文章内容SEO优化基本原则
• ·Excel行列转置粘贴数据的一则实例
• ·Office技巧四则 助你提高办公软件使用效率
• ·WPS2007文档中进行复杂输入的两则技巧
• ·用好Excel 2007六则小技巧 帮你节省时间
• ·网络故障排除实例应用一则
• ·采购智能交换机的五个基本原则
• ·入门:SEO的准则
• ·Photoshop轻松制作照片艺术边框效果实例2则
• ·网页设计心得:页面布局的简单规则
• ASP正则判断取出HTML的图片地址的函数 相关软件
• ·商界成功者最推崇的成事法则：先做人后做事
• ·《无规则高尔夫大师赛》试玩
• ·新《企业会计准则》
• ·《四法则》
• ·语堂传世之作：武则天正传
• ·决定一生的99个简单法则
• ·中国职场生存法则66条
• ·35岁以前成功的12条黄金法则
• ·明清官场幕后规则—师爷当家
• ·民主的原则

上一篇:关于网站的重复内容，10个建议

下一篇:苹果Leopard再爆Bug 无线网络速度减慢

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐