知识大全 ASP取出HTML里面的图片地址的函数

Posted 2022-07-17 地址

篇首语：博观而约取，厚积而薄发。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 ASP取出HTML里面的图片地址的函数相关的知识，希望对你有一定的参考价值。

ASP取出HTML里面的图片地址的函数 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

以下是取出HTML里面的图片地址的函数主要原理就是用正则判断 <img> 的<src>属性这在采集程序中将非常有用函数如下以下是引用片段 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 objRegExp = New Regexp objRegExp IgnoreCase = True objRegExp Global = True objRegExp Pattern = +? 取出里面的地址 set mm=objRegExp Execute(str) For Each Match in mm getimgs=getimgs&left(Match Value len(Match Value) )& || 把里面的地址串起来备用 next End Function 取得图片内容 function getHTTPPage(url) on error resume next dim set ( MSXML XMLHTTP ) 使用xml的方法来获得图片的内容 Http open GET url false Http send() if Http readystate<> then exit function end if getHTTPPage=Http responseBody set =nothing if err number<> then err Clear end function 保存图片 function saveimage(from tofile) dim geturl objStream imgs geturl=trim(from) imgs=getpage(geturl) 取得图片的具休内容的过程 Set objStream = Server CreateObject( ADODB Stream ) 建立ADODB Stream对象必须要ADO 以上版本 objStream Type = 以二进制模式打开 objStream Open objstream write imgs 将字符串内容写入缓冲 objstream SaveToFile server mappath(tofile) 将缓冲的内容写入文件 objstream Close() 关闭对象 set objstream=nothing end function 调用实例 Dim strpic i fname strpic = ShowPic( <DIV align=center><IMG src= _ / / gif border= ></DIV> ) strpic = Split(strpic || ) If UBound(strpic) > Then For i = To UBound(strpic) 保存图片 fname=cstr(i&mid(strpic(i) instrrev(strpic(i) ))) saveimage(strpic(i) fname) Next Else End If cha138/Article/program/net/201311/11722