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 = "https://.+?"""取出里面的地址
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=""图片地址"" 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
上一篇: 三季度华为手机销量国内一骑绝尘:26%增幅无人能及
下一篇: 文蛤蒸蛋要蒸几分钟才能蒸熟?