以下是取出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 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
end if
getHTTPPage=Http.responseBody
set http=nothing
if err.number<>0 then err.Clear
end function
保存图片
function saveimage(from,tofile)
dim geturl,objStream,imgs
geturl=trim(from)
imgs=gethttppage(geturl)取得图片的具休内容的过程
Set objStream = Server.CreateObject(“ADODB.Stream”)建立ADODB.Stream对象,必须要ADO 2.5以上版本
objStream.Type =1以二进制模式打开
objStream.Open
objstream.write imgs将字符串内容写入缓冲
objstream.SaveToFile server.mappath(tofile),2-将缓冲的内容写入文件
objstream.Close()关闭对象
set objstream=nothing
end function
Dim strpic,i,fname
strpic = ShowPic(“<DIV align=center><IMG src=”http://www.knowsky.com/”http://img.knowsky.com/img/knowskylogo.gif“” border=0></DIV>”)
strpic = Split(strpic,”||”)
If UBound(strpic) > 0 Then
For i = 0 To UBound(strpic) – 1
保存图片
fname=cstr(i&mid(strpic(i),instrrev(strpic(i),”.”)))
saveimage(strpic(i),fname)
Next
Else
End If
asp取出html里面的图片地址的函数_asp技巧
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » asp取出html里面的图片地址的函数_asp技巧
相关推荐
-      ASP基础教程:其它的ASP常用组件
-      ASP基础教程:学习ASP中子程序的应用
-      ASP基础教程之ASP程序对Cookie的处理
-      ASP基础教程之ASP AdRotator组件的使用
-      ADO初学者教程:ADO 通过GetString()加速脚本
-      ASP技巧实例:几行代码解决防止表单重复提交
-      ASP常见数学函数 Abs Atn Cos 等详细详解[ 来源:网页教学网 | 作者: | 时间:2007-09-12 10:57:29 | 收藏本文 ] 【大 中 小】【名称】
-      ASP基础教程之ASP AdRotator 组件的使用