如何存储，显示BLOB型数据？

sunxuwen 2005-01-14 04:22:47

如果将一张图片存到BLOB型字段的数据表里，然后再从表中读出来呢？（希望大家给个例子）

...全文

174 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

sunxuwen 2005-01-17

打赏
举报

连点注释都没有:(

itera 2005-01-14

打赏
举报

代码如下:

upload.htm
' 上传页面
<html>
<body>
<center>

　　 <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
%>

数据库结构如下：
Access：
序号字段名称类型描述
1 id 自动编号主键值
2 img ole对象用来保存图片数据
　　　　　　　　
MS Sql Server：
序号字段名称类型描述
1 id int(identity) 主键值
2 img image 用来保存图片数据

mqjshanghai 2005-01-14