如何显示数据库中以 OLE 对象方式存储的 JPEG 图片

在 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
'循环找到 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")