木子屋
 

标题: Stream案例教程

作者: dnawo

日期: 2007-04-02 08:57 AM

分类: Web编程

内容: 本例主要讲述如何利用Stream对象往数据库添加文件、将数据库中的文件保存至服务器端和显示于浏览器上，借以说明Stream一些属性、方法，代码如下：
复制内容到剪贴板 程序代码<%
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
%>

+ 查看当前日志评论 (1)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms

标题: Stream案例教程

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms