用ASP实现数据库中文件访问的代码

*************************************************************************
* *
*使用Adodb.流保存/读取文件到数据库
微软ActiveX数据对象**参考图书馆2.5及以上
* *
*数据库连接字符串模板---------------------------------------
**访问数据库
* iconcstr =商=微软。飞机。OLEDB。4坚持安全信息=假_；
**数据源=数据库名称
* *
**数据库
* iconcstr == SQLOLEDB提供。1坚持；安全信息= true；_
**用户id =用户名密码=密码初始；目录=；数据库；数据源= SQL Server名称
* *
*************************************************************************
'
将文件保存到数据库
子s_savefile（）
昏暗的组织为数据流。
昏暗的愤怒作为数据集。
昏暗的iconcstr作为字符串

数据库连接字符串
iconcstr =商=微软。飞机。OLEDB。4坚持安全信息=假_；
；数据源= 我的文档客户数据1

将文件读到内容
建立组织的=新的数据流。
有组织的
类型= adtypebinary二进制模式。
开。
。LoadFromFileC：测试.doc
结束

打开表保存文件
愤怒=新的数据记录集。
与愤怒
打开表
新的添加记录。
。领域（保存文件内容领域）=阅读组织。
更新。
结束

完成关闭对象之后
愤怒。关闭
组织。关闭
端子

从数据库读取数据并将其保存为文件
子s_readfile（）
昏暗的组织为数据流。
昏暗的愤怒作为数据集。
昏暗的iconc作为字符串

数据库连接字符串
iconc =商=微软。飞机。OLEDB。4坚持安全信息=假_；
；数据源= XZ C $ inetpub ZJ ZJ ZJ .mdb

开放餐桌
愤怒=新的数据记录集。
愤怒。打开tb_img
筛选器id = 64

保存到文件中
建立组织的=新的数据流。
有组织的
admodereadwrite模式=。
类型= adtypebinary。
开。
。写的愤怒（IMG）
SaveToFile。C：测试.doc
结束

封闭对象
愤怒。关闭
组织。关闭
端子