紧急求助！在asp页面中调用access库中的图片问题

[dzgbuild2001]

在asp页面中如何调用存储在access数据库中的图片内容呀？该图片在库中的字段类型为OLE型。

[renyao]

<TD vAlign=top width="41%" style="PADDING-LEFT: 6px"><img height=103 hspace=5
src="images/bg_book.gif" width=71 vspace=5 border=0> <P style="MARGIN-TOP: -112px"><A href=book.asp?id=<%=rs("bookid")%> target=_blank><IMG
height=96 alt=图书封面 hspace=5
src=<%if trim(rs("bookpic"))="" then
response.write "images/emptybook.gif"
else
response.write trim(rs("bookpic"))
end if%> width=65 vspace=3
border=0></A></TD>

bookpic字段为文本，大小100，主要是通过里面的地址显示图片

[富察咪咪]

用ADO取出来，然后建立一个临时文件，ASP页IMG引用这个临时文件。

[dzgbuild2001]

还是不太明白呀~~~~~

[bubuy]

存入图片：
<script language="vbscript" runat="server">
dim st,xmldoc,iPic
dim temp
temp="c:\pic\example.jpg"
set st = Server.CreateObject("adodb.stream")
st.Type=1
st.Open
st.loadFromFile temp
dim rs
set rs = Server.CreateObject("adodb.recordset")
rs.open "youdb",yourconn,3,2
rs.addnew
rs("img").appendChunk st.read(-1)
rs.update
rs.close
</script>
读取图片：
<img src="image.asp?id=1" border="0">

image.asp
<%
response.ContentType="image/*"
set rs = yourDBConn.execute("select img from yourDB where id="&request("id"))
Response.BinaryWrite rs("img")
%>

[huhan3]

假设在数据库中保存的是你所想要的图形格式
(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")%>">
<img src="theImg2.asp?varName=compLogo&temp=<%= Request.Form("imgCode")%>">

使用这个方法能够完成下面的功能：
1。能够从数据库中取出图形字段。（你唯一需要知道的是数据库中的图形是什么格式
bmp?gif?jpeg?ole?）
2.采用session变量 来保存图形的字节数和content type
asp需要这些信息来联结到<IMG>中的属性
3。只要把theImg放到你想显示图形的地方，就能够显示图象了。

[huhan3]

另外，这个可能相对更适合你
http://www0.ccidnet.com/tech/web/2000/04/26/58_632.html

[zjg791015]

response.ContentType="image/*"
set rs = DBQ.execute("select img from yourDB where id="&request("id"))
Response.BinaryWrite rs("img")

其实我建议你不要把图片存入数据库中，可在上传图片时把图片的地址和文件名存入库中即可，在调用该图片信息时会比较的方便，也不会导致数据库超级大的问题（如果数据量大了的话），在删除图片时也没什么不方便的，用FSO就可以轻松搞定。

反正我不太赞成把图片放入数据库中的方法！！！