用asp实现的数据库中存取文件的代码

　　*************************************************************************
**
**使用ADODB.Stream保存/读取文件到数据库
**引用MicrosoftActiveXDataObjects2.5Library及以上版本
**
**-----数据库连接字符串模板---------------------------------------
**ACCESS数据库
**iConcStr=Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False&_
**;DataSource=数据库名
**
**SQL数据库
**iConcStr=Provider=SQLOLEDB.1;PersistSecurityInfo=True;&_
**UserID=用户名;Password=密码;InitialCatalog=数据库名;DataSource=SQL服务器名
**
*************************************************************************

保存文件到数据库中
Subs_SaveFile()
DimiStmAsADODB.Stream
DimiReAsADODB.Recordset
DimiConcStrAsString

数据库连接字符串
iConcStr=Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False&_
;DataSource=F:\MyDocuments\客户资料1.mdb

读取文件到内容
SetiStm=NewADODB.Stream
WithiStm
.Type=adTypeBinary二进制模式
.Open
.LoadFromFilec:\test.doc
EndWith

打开保存文件的表
SetiRe=NewADODB.Recordset
WithiRe
.Open表,iConc,adOpenKeyset,adLockOptimistic
.AddNew新增一条记录
.Fields(保存文件内容的字段)=iStm.Read
.Update
EndWith

完成后关闭对象
iRe.Close
iStm.Close
EndSub

从数据库中读取数据,保存成文件
Subs_ReadFile()
DimiStmAsADODB.Stream
DimiReAsADODB.Recordset
DimiConcAsString

数据库连接字符串
iConc=Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False&_
;DataSource=\\xz\c$\Inetpub\zj\zj\zj.mdb

打开表
SetiRe=NewADODB.Recordset
iRe.Opentb_img,iConc,adOpenKeyset,adLockReadOnly
iRe.Filter=id=64

保存到文件
SetiStm=NewADODB.Stream
WithiStm
.Mode=adModeReadWrite
.Type=adTypeBinary
.Open
.WriteiRe(img)
.SaveToFilec:\test.doc
EndWith

关闭对象
iRe.Close
iStm.Close
EndSub