用Adodb.Stream将以二进制方式保存在数据库中的文件保存到硬盘-ASP教程,数据库相关

对于上传的数据库中的文件有的时候需要保存成硬盘上的文件，下面的代码以access数据库为例,演示怎样通过adodb.stream将文件保存到硬盘

表：demo的结构

=======================================

id： 自动编号

filename：文本

data: ole 对象

代码

=======================================

<%

dim conn,connstr,rs,sql,mystream

connstr="dbq=" + server.mappath("demo.mdb") + ";driver={microsoft access driver (*.mdb)};"

set conn = server.createobject("adodb.connection")

conn.open connstr

sql = "select * from demo where id=1"

set rs = server.createobject("adodb.recordset")

rs.open sql,conn,1,3

set mystream=server.createobject("adodb.stream")

mystream.type = 1

mystream.open

mystream.write rs("data").getchunk(rs("data").actualsize-78)

mystream.savetofile "c:\" & rs("filename")

rs.close

set rs = nothing

conn.close

set conn = nothing

%>