展开全部
ACCESS理论上可能以OLE或二进制的形式存放图片,但实际应用中程序员很少这样做.因为这样你的数据库文件会很大.影响你的程序的速度.
最好方法是PICTURE字段落中只存放图片的路径,然后读取路径并显示,形成路径显示该图片即可。
理论上也有直接显示以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
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
%>
最好方法是PICTURE字段落中只存放图片的路径,然后读取路径并显示,形成路径显示该图片即可。
理论上也有直接显示以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
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
%>
参考资料: CSDN
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询