关于从access数据库中提取图像的问题

feng8848 2004-04-13 04:29:13
我做了一个数据库 里面有一个picture字段 类型为 ole对象
里面存有一些 gif图像,我如何从中提取显示到页面上 记录集为 rs
...全文
43 点赞 收藏 2
写回复
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
xzhy80 2004-07-12
up
回复
jiffer 2004-04-13
upload.htm
' 上传页面
<html>
<body>
<center>
<!--以下 form 中的 enctype="multipart/form-data" 是得到数据的关键-->
   <form name="mainform" enctype="multipart/form-data" action="get.asp" method=post>
   <input type=file name=mefile><br/>
   <input type=submit name=ok value="上传">
   </form>
</center>
</body>
</html>

get.asp
' 处理浏览器中送来的数据
<%
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrb(13) & chrb(10)
divider=leftb(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)

set conn=server.createobject("adodb.connection")
conn.connectionstring="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("images.mdb")
conn.open

set rs=server.createobject("adodb.recordset")
rs.open "select * from [images] where id is null",conn,1,3
rs.addnew
rs("img").appendchunk mydata
rs.update
rs.close
set rs=nothing
set conn=nothing
%>

showimg.asp
' 显示图片
<%
set conn=server.createobject("adodb.connection")
conn.connectionstring="driver={microsoft access driver (*.mdb)}; dbq=" & server.mappath("images.mdb")
conn.open
set rs=server.createobject("adodb.recordset")
strsql="select img from images where id=" & trim(request("id"))
rs.open strsql,conn,1,1
response.contenttype = "image/*"
' 在输出到浏览器之前一定要指定response.contenttype = "image/*",以便正常显示图片
response.binarywrite rec("img").getchunk(7500000)
rs.close
set rs=nothing
set conn=nothing
%>
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告