asp利用xmlhttp下载远程图片 - ASP教程

发布时间：2016-05-18 19:54:54 所属栏目：Asp教程来源：站长网

导读：% function getHTTPimg(url) on error resume next dim http set http=server.createobject(MSXML2.XMLHTTP) Http.open GET,url,false Http.send() if Http.rea

<%

function getHTTPimg(url)

on error resume next

dim http

set http=server.createobject("MSXML2.XMLHTTP")

Http.open "GET",url,false

Http.send()

if Http.readystate<>4 then exit function

getHTTPimg=Http.responseBody

set http=nothing

if err.number<>0 then err.Clear

end function

function Save2Local(from,tofile)

dim geturl,objStream,imgs

geturl=trim(from)

imgs=gethttpimg(geturl)

Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Type =1

objStream.Open

objstream.write imgs

objstream.SaveToFile tofile,2

objstream.Close()

set objstream=nothing

end function

%>

<%

call Save2Local(serverurl&picarray(i),picpath&"web"&filename&".jpg")

%>

（编辑：开发网_郴州站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!