Question

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

asp将二进制数据流保存成图片文件到服务器
步骤我也知道啊。就是第三和第四步怎么写。能写一下吗？

Answer 1

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

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

Answer 2

<%
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/baidu_logo_jr_0905_jy.gif" ,server.MapPath("1.gif"))
%>