|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
对于上传的数据库中的文件有的时候需要保存成硬盘上的文件,下面的代码以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 %> 返回类别: 教程 上一教程: FSO的一些特别功能 下一教程: ASP无组件上传进度条解决方案 您可以阅读与"用ADODB.STREAM将以二进制方法保存在数据库中的文件保存到硬盘"相关的教程: · 关于图片与文本同存在数据库中的详细思路 · 判定一个ACCESS数据库中某个表是否存在的方式 · 将数据库中的信息存储至XML文件中 · 关于ADODB.STREAM的写数据库数据到客户端文件的实践 · 纯ASP分离FORM数据中的二进制文件和文本数据 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |