asp将二进制数据流保存成图片文件到服务器

发布网友 发布时间：2022-04-06 06:34

我来回答

共2个回答

热心网友 时间：2022-04-06 08:03

动作分解
1.将文件转成二进制流
2.接收二进制流数据
3.二进制流数据转成图片文件
4.将文件存在到服务器
通过几上四个步骤的关键字就可以找到答案了。

不过有一点。如果服务器有数据库的话，而且图片不大的话，可以直接将二进制流写入数据库中

热心网友 时间：2022-04-06 09:21

<%
function getHTTPimg(url)
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
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("http://www.baidu.com/img/_logo_jr_0905_jy.gif" ,server.MapPath("1.gif"))
%>

参考资料：自己写的并测试通过，图片地址自己改吧