[求助][原创]把数据库中的二进制图片信息保存到服务器
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn/conn.asp"-->
<%
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
%>
但是保存下来的图片打不开
[此贴子已经被作者于2006-8-16 16:18:32编辑过]
