对于上传的数据库中的文件有的时候需要保存成硬盘上的文件,下面的代码以ACCESS数据库为例,演示怎样通过Adodb.Stream将文件保存到硬盘
表:Demo的结构=======================================id: 自动编号filename:文本data: OLE 对象
代码=======================================<%Dim Conn,ConnStr,Rs,Sql,MyStreamConnStr="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,3Set MyStream=Server.CreateObject("Adodb.Stream")MyStream.Type = 1MyStream.OpenMyStream.Write Rs("data").GetChunk(rs("data").ActualSize-78)MyStream.SaveToFile "c:\" & Rs("fileName") Rs.CloseSet Rs = NothingConn.CloseSet Conn = Nothing%>
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18