關(guān)于ASP中從ACCESS數(shù)據(jù)庫中讀取images的方法分享

本文主要跟大家分享介紹的是ASP程序如何從ACCESS數(shù)據(jù)庫中讀取圖形，希望對(duì)大家有用。

如何從ACCESS數(shù)據(jù)庫中讀取images

　　1。ACCESS和FoxPro數(shù)據(jù)庫中的圖形格式

　　當(dāng)瀏覽器遇到一個(gè)<IMG>標(biāo)志時(shí)，它會(huì)根據(jù)你設(shè)定的src屬性來下載文件。這可能是一個(gè)圖形文件或則是一個(gè)ASP頁面。如果是一個(gè)返回gif二進(jìn)制的ASP頁面，瀏覽器需要知道返回的是什么格式的圖形文件，因?yàn)檫@個(gè)原因，就需要指定content type，為image/gif，image/bmp，image/jpeg或則其他什么的。

   Response.contentType = "image/gif"

　　但這會(huì)導(dǎo)致另外一個(gè)問題，那就是我們只能夠顯示gif格式的圖象，或則說保存在數(shù)據(jù)庫中的東西只能夠是gif格式的了。但是一些數(shù)據(jù)庫是使用gif格式保存的，但是另外一些則是使用jpeg格式保存的，甚至其他是采用OLE方式來保存圖形的。所以我們必須根據(jù)圖形的格式來設(shè)置response的content type.

　　注意的是你也可以從一個(gè)文件中新建一個(gè)位圖對(duì)象，但使用這樣的方式保存在數(shù)據(jù)庫中的圖形格式是瀏覽器不能夠識(shí)別的。當(dāng)你往數(shù)據(jù)庫中保存圖象時(shí)，你應(yīng)該知道你需要使用什么格式來保存，你可以把文件中的每一個(gè)字節(jié)保存下來，或則通過ACCESS/Foxpro的把圖形保存為一個(gè)OLE格式。

　　你使用什么格式保存圖象決定了你在ASP中用什么格式來讀出圖形來。具體來說，如果你在ACCESS/FoxPro中將圖形保存為bmp,gif,jpeg(這個(gè)必須要使用到ACCESS/FoxPro的OLE對(duì)象，即使用ACCESS的插入對(duì)象對(duì)話框來完成)，這是當(dāng)你使用image/bmp時(shí)瀏覽器是不能夠解釋的。

　　現(xiàn)在假設(shè)在數(shù)據(jù)庫中保存的是你所想要的圖形格式(GIF, JPEG, BMP, TIFF, 等)現(xiàn)在來看看要怎么把它們從數(shù)據(jù)庫中讀出來。

　　在ACCESS中使用了兩個(gè)關(guān)鍵的技術(shù)來保存圖形

　　1。使用了bmp格式

　　2。78個(gè)字節(jié)的文件頭

   <%
       response.Expires = 0
       response.Buffer  = True
       response.Clear
       response.contentType = "image/bmp"
   %>

　　接著你要干的就是去掉那78個(gè)字節(jié)的OLE對(duì)象的文件頭。

   <%
       Const OLEHEADERSIZE = 78
       nFieldSize = rs("photo").ActualSize
       oleHeader = rs("photo").GetChunk(OLEHEADERSIZE)
       imageBytes = rs("photo").GetChunk(nFieldSize - OLEHEADERSIZE)
       Response.BinaryWrite imageBytes
   %>

　　現(xiàn)在舉一個(gè)例子：

　　如果你要得到一個(gè)職工的信息，這段信息包括一個(gè)介紹和他的圖象。并且要同時(shí)顯示文字和圖形。代碼如下：（其中的theImg是一個(gè)代理頁面）

　　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
   %>

　　要顯示圖象的話，只需要在另外一個(gè)asp中，假設(shè)為getEmpInfo.asp中

   <img src="theImg.asp"</img>

　　但這還有一個(gè)問題，因?yàn)閷?duì)每個(gè)職工的圖形都使用了同一個(gè)"theImg.asp"文件，應(yīng)該再小小修改一下：

   <img src="theImg.asp?temp=<%= Request.Form("empLastName")%>"</img>