如何从access数据库中读取图形
如何从access数据库中读取images
1。access和foxpro数据库中的图形格式
当浏览器遇到一个<img>标志时，它会根据你设定的src属性来下载文件。
这可能是一个图形文件或则是一个asp页面。
如果是一个返回gif二进制的asp页面
浏览器需要知道返回的是什么格式的图形文件
因为这个原因，就需要指定content type，为image/gif，image/bmp
image/jpeg或则其他什么的。
response.contenttype = "image/gif"
但这会导致另外一个问题，那就是我们只能够显示gif格式的图象，
或则说保存在数据库中的东西只能够是gif格式的了。
但是一些数据库是使用gif格式保存的，但是另外一些则是使用
jpeg格式保存的，甚至其他是采用ole方式来保存图形的。
所以我们必须根据图形的格式来设置response的content type.
注意的是你也可以从一个文件中新建一个位图对象，但使用这样
的方式保存在数据库中的图形格式是浏览器不能够识别的。
当你往数据库中保存图象时，你应该知道你需要使用什么格式来保存
你可以把文件中的每一个字节保存下来，或则通过access/foxpro的把图形保存
为一个ole格式。
你使用什么格式保存图象决定了你在asp中用什么格式来读出图形来。
具体来说，如果你在access/foxpro中将图形保存为bmp,gif,jpeg(
这个必须要使用到access/foxpro的ole对象，即使用access的插入对象
对话框来完成)，这是当你使用
image/bmp时浏览器是不能够解释的。
现在假设在数据库中保存的是你所想要的图形格式
(gif, jpeg, bmp, tiff, 等)现在来看看要怎么把它们从
数据库中读出来。
在access中使用了两个关键的技术来保存图形
1。使用了bmp格式
2。78个字节的文件头
<%
response.expires = 0
response.buffer = true
response.clear
response.contenttype = "image/bmp"
%>
接着你要干的就是去掉那78个字节的ole对象的文件头。
<%
const oleheadersize = 78
nfieldsize = rs("photo").actualsize
oleheader = rs("photo").getchunk(oleheadersize)
imagebytes = rs("photo").getchunk(nfieldsize - oleheadersize)
response.binarywrite imagebytes
%>
现在举一个例子：
如果你要得到一个职工的信息，这段信息包括一个介绍和他的图象。
并且要同时显示文字和图形。
代码如下：（其中的theimg是一个代理页面）
theimg.asp
<%
response.expires = 0
response.buffer = true
response.clear
response.contenttype = session("imagetype")
response.binarywrite session("imagebytes")
session("imagetype") = ""
session("imagebytes") = ""
response.end
%>
function setimagefordisplay(field, contenttype)
oleheadersize = 78
contenttype = lcase(contenttype)
select case contenttype
case "gif", "jpeg", "bmp"
contenttype = "image/" & contenttype
bytes = field.value
case "ole"
contenttype = "image/bmp"
nfieldsize = field.actualsize
oleheader = field.getchunk(oleheadersize)
bytes = field.getchunk(nfieldsize - oleheadersize)
end select
session("imagebytes") = bytes
session("imagetype") = contenttype
end function
'注意的是，程序中只使用了4中格式：gif, jpeg, bmp , ole .
<%
sql = "select * from employees"
set ors = server.createobject("adodb.recordset")
ors.cursorlocation = 3
ors.open sql, "dsn=nw"
setimagefordisplay ors("photo"), "ole"
set ors.activeconnection = nothing
%>
要显示图象的话，只需要在另外一个asp中，假设为getempinfo.asp中
<img src="theimg.asp"</img>
但这还有一个问题，因为对每个职工的图形都使用了同一个"theimg.asp"
文件，应该再小小修改一下：
<img src="theimg.asp?temp=<%= request.form("emplastname")%>"</img>
最后再说一点，如何显示多幅图象呢？
也就是说如果数据库中有多个字段都保存了图形，怎么办？
其实解决办法很简单，只要给setimagefordisplay多加一个参数
就是用来保存图形的一个session变量。
例如：
setimagefordisplay ors1("photo"), "ole", "empphoto"
setimagefordisplay ors2("logo"), "gif", "complogo"
<img src="theimg2.asp?varname=empphoto&temp=<%= request.form("emplastname")%>">
