快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

用ADODB.STREAM将以二进制方法保存在数据库中的文件保存到硬盘

对于上传的数据库中的文件有的时候需要保存成硬盘上的文件,下面的代码以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数据中的二进制文件和文本数据
    微笑服务 优质保证 索取样品