關(guān)于ASP中從ACCESS數(shù)據(jù)庫中讀取images的方法分享
本文主要跟大家分享介紹的是ASP程序如何從ACCESS數(shù)據(jù)庫中讀取圖形,希望對大家有用。
如何從ACCESS數(shù)據(jù)庫中讀取images
1。ACCESS和FoxPro數(shù)據(jù)庫中的圖形格式
當(dāng)瀏覽器遇到一個<IMG>標(biāo)志時,它會根據(jù)你設(shè)定的src屬性來下載文件。這可能是一個圖形文件或則是一個ASP頁面。如果是一個返回gif二進制的ASP頁面,瀏覽器需要知道返回的是什么格式的圖形文件,因為這個原因,就需要指定content type,為image/gif,image/bmp,image/jpeg或則其他什么的。
Response.contentType = "image/gif"
但這會導(dǎo)致另外一個問題,那就是我們只能夠顯示gif格式的圖象,或則說保存在數(shù)據(jù)庫中的東西只能夠是gif格式的了。但是一些數(shù)據(jù)庫是使用gif格式保存的,但是另外一些則是使用jpeg格式保存的,甚至其他是采用OLE方式來保存圖形的。所以我們必須根據(jù)圖形的格式來設(shè)置response的content type.
注意的是你也可以從一個文件中新建一個位圖對象,但使用這樣的方式保存在數(shù)據(jù)庫中的圖形格式是瀏覽器不能夠識別的。當(dāng)你往數(shù)據(jù)庫中保存圖象時,你應(yīng)該知道你需要使用什么格式來保存,你可以把文件中的每一個字節(jié)保存下來,或則通過ACCESS/Foxpro的把圖形保存為一個OLE格式。
你使用什么格式保存圖象決定了你在ASP中用什么格式來讀出圖形來。具體來說,如果你在ACCESS/FoxPro中將圖形保存為bmp,gif,jpeg(這個必須要使用到ACCESS/FoxPro的OLE對象,即使用ACCESS的插入對象對話框來完成),這是當(dāng)你使用image/bmp時瀏覽器是不能夠解釋的。
現(xiàn)在假設(shè)在數(shù)據(jù)庫中保存的是你所想要的圖形格式(GIF, JPEG, BMP, TIFF, 等)現(xiàn)在來看看要怎么把它們從數(shù)據(jù)庫中讀出來。
在ACCESS中使用了兩個關(guān)鍵的技術(shù)來保存圖形
1。使用了bmp格式
2。78個字節(jié)的文件頭
<%
response.Expires = 0
response.Buffer = True
response.Clear
response.contentType = "image/bmp"
%>
接著你要干的就是去掉那78個字節(jié)的OLE對象的文件頭。
<%
Const OLEHEADERSIZE = 78
nFieldSize = rs("photo").ActualSize
oleHeader = rs("photo").GetChunk(OLEHEADERSIZE)
imageBytes = rs("photo").GetChunk(nFieldSize - OLEHEADERSIZE)
Response.BinaryWrite imageBytes
%>
現(xiàn)在舉一個例子:
如果你要得到一個職工的信息,這段信息包括一個介紹和他的圖象。并且要同時顯示文字和圖形。代碼如下:(其中的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中,假設(shè)為getEmpInfo.asp中
<img src="theImg.asp"</img>
但這還有一個問題,因為對每個職工的圖形都使用了同一個"theImg.asp"文件,應(yīng)該再小小修改一下:
<img src="theImg.asp?temp=<%= Request.Form("empLastName")%>"</img>