如何显示Access数据库中的图片字段，急！

[Grace2003]

我的图片以二进制流的形式保存到了Access数据库中，我该如何将该图片显示出来呢？请高手帮忙，解决后立即结贴！谢谢！

[xieyj]

显示以OLE对象存储图片的方法
　　
　　在 ASP 中， 我们经常需要在 Web 页面上显示以二进制方式保存在数据库中的图片。 一般的图片显示没有什么问题， 因为这方面的文章已经很多了， 我就不再阐述。 但有时候数据库中的图片是通过其他办公软件输入的， 或者通过其他方式， 比如在 Access 中直接添加。

　　这时， 图片以 OLE 对象的方式保存在数据库中， 在图片真实内容的前面， 还保存了一些其他的信息， 比如图片的路径和文件名，等等。 如果我们还用一般的输出方式的话， 就会出错， 导致图片不能显示。
　　
　　幸好 jpeg, bmp 等图象格式中在图片内容的开头都有一个 SOI marker，这个 marker 对于 jpeg 来说是 FFD8, 而对于 bmp 是 424D. 这样一来， 我们只要找到这个 marker 的位置， 就可以忽略前面的内容而直接从这里开始输出图片。以 SQL server 为例，代码如下：
　　
　　<%
　　'---------------------------------
　　' 函数：function ShowJpegField(field)
　　' 作者： inelm(Archimond【阿克蒙德】) from csdn
　　' Date:2003-12-6 更新
　　' 功能： 取得保存 jpeg 图片的字节数组中的 SOI marker 开始位置, 并从该位置输出真正的图片信息
　　'注： jpeg 格式的 SOI marker : FFD8
　　' bmp 格式：424D
　　' 参数:图片字段
　　' 返回值: 无
　　' 调用范例：ShowJpegField(rs("picture1"))
　　' 注意： 调用此函数之前， 需要先申明 response.write 的 MIME 类型为 "image/jpeg"
　　'----------------------------------------
　　function ShowJpegField(field)
　　dim size, i, j
　　'要输出字段的总字节数
　　size = field.ActualSize

[xieyj]

'循环找到 SOI marker 的位置
　　for i = 1 to size
　　if AscB(MidB(field, i, 1)) = &HFF and AscB(MidB(field, i + 1, 1)) = &HD8 then
　　exit for
　　end if
　　next
　　
　　'忽略前面的无用信息， 从 SOI marker 开始输出真正的图片信息
　　for j = i to size
　　response.BinaryWrite MidB(field, j, 1)
　　next
　　end function
　　%>
　　
　　<%
　　'-------- 主程序开始 -------------------
　　dim conn
　　set conn = Server.CreateObject("ADODB.Connection")
　　conn.open("Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=123;Data Source=MARK")
　　
　　sql = "select * from xinxi_mishuchu"
　　set rs = conn.execute(sql)
　　
　　'声明输出类型, 清空输出缓冲区
　　response.buffer = true
　　response.clear
　　response.ContentType = "image/jpeg"
　　
　　'调用函数输出图片
　　ShowJpegField(rs("picture1"))
　　
　　'打完收功！
　　rs.close : set rs = nothing
　　conn.close : set conn = nothing
　　%>
　　
　　如果是其他格式的图片， 如 bmp, gif 等， 输出方法类似， 只不过是 SOI marker 不同而已。

[coolidea]

你能存进去不能显示，呵呵！用getChunk
set rec=server.createobject("ADODB.recordset")
strsql="select img from images where id="&trim(request("id"))
rec.open strsql,connGraph,1,1
Response.ContentType = "image/*"
Response.BinaryWrite rec("img").getChunk(7500000)

[gaolei0331]

刚才不是一起给你了吗，我晕！，不好用吗？