<%
Option Explicit
Dim objStream,objConn,objRS,strSql
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("db1.mdb")
Set objRS = Server.CreateObject("ADODB.RecordSet")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.type = 1
objStream.open
''''''''''''''''''''''''''''''''''''
'    将服务器端文件保存至数据库中
''''''''''''''''''''''''''''''''''''
objStream.loadfromfile Server.MapPath("aaa.gif")
strSql = "Select * from t2"
objRS.open strSql,objConn,1,3
objRS.addnew
objRS("file").AppendChunk objStream.Read(objStream.size)
objRS("size") = objStream.size
objRS.Update
objRS.close
Set objRS  = nothing
''''''''''''''''''''''''''''''''''''
'    将数据库文件保存至服务器上
''''''''''''''''''''''''''''''''''''
'strSql = "Select * from t2 where id = 1"
'objRS.open strSql,objConn,1,2
'objStream.write objRS("file").GetChunk(objRS("size"))
'objStream.SaveToFile Server.MapPath("bbb.gif"),2
'objRS.close
'Set objRS  = nothing
''''''''''''''''''''''''''''''''''''
'    显示服务器端文件
''''''''''''''''''''''''''''''''''''
'objStream.loadfromfile Server.MapPath("aaa.gif")
'Response.ContentType = "application/octet-stream" 'MIME类型
'Response.AddHeader "Content-Disposition","attachment;filename=ccc.gif" '文件名称
'Response.AddHeader "Content-Length",CStr(objStream.size)
'Response.BinaryWrite objStream.Read()
''''''''''''''''''''''''''''''''''''
'    显示服务器端文件
''''''''''''''''''''''''''''''''''''
'objStream.loadfromfile Server.MapPath("aaa.gif")
'Response.ContentType = "image/*"
'Response.BinaryWrite objStream.Read()
objConn.close
Set objConn = nothing
objStream.close
Set objStream = nothing
%>