DZ!要怎么样才可以把远程图片下载到本地服务器上
发布网友
发布时间：2022-09-23 01:07
我来回答
共1个回答
热心网友
时间：2024-11-08 05:58
使用代码。<% function saveimg(url) dim filename filename = "mytest.jpg" set xmlhttp=server.createobject("Microsoft.XMLHTTP")'创建XMLHTTP对象 xmlhttp.open "get",url,false xmlhttp.send'发送 if xmlhttp.status<>200 then'失败 saveimg="" else img=xmlhttp.ResponseBody'接收数据 set objAdostream=server.createobject("ADODB.Stream")'创建adodb.stream对象 objAdostream.Open()'打开 objAdostream.type=1'二进制方式 objAdostream.Write(img)'写入数据 objAdostream.SaveToFile(server.mappath("./"&savepath&filename))'保存到文件 objAdostream.SetEOS'文件结尾 set objAdostream=nothing'释放对象 saveimg=savepath&filename'返回值 end if set xmlhttp=nothing end function %>
麻烦采纳，谢谢!
