[求助][原创]把数据库中的二进制图片信息保存到服务器

[复制链接]

攸哉vs攸哉

电梯直达

1^#

发表于 2010-1-20 05:10:49 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

[知识问答ωωω.χiuGoo.сom]
<%
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql1 = "select * from tb_Quote"
Rs.Open Sql1,Conn,1,3
Set MyStream=Server.CreateObject("Adodb.Stream")
MyStream.Type = 1
MyStream.Open
MyStream.Write rs("ImageData").GetChunk(rs("ImageData").ActualSize) '将数据写入Stream对象中
MyStream.SaveToFile server.MapPath("Upload")&"\" & Rs("aa") '保存文件
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>

但是保存下来的图片打不开

收藏0