新微赢技术网

标题: [求助][原创]把数据库中的二进制图片信息保存到服务器 [打印本页]

作者: 攸哉vs攸哉 时间: 2010-1-20 05:10
标题: [求助][原创]把数据库中的二进制图片信息保存到服务器
<%@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
%>

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

作者: 林妹妹 时间: 2010-2-24 07:05
鉴定完毕！

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)