用ASP顯示ACCESS資料庫的的GIF圖象

access|資料|資料庫|顯示 寫入：
   1:把gif影像檔讀入記憶體（一個變數strTemp）。
   2:寫入資料庫。
   Dim binTmp() As Byte
   Dim conn As ADODB.Connection
   Dim rs As ADODB.Recordset
   Dim strSql As String
   Set conn = New ADODB.Connection
   Set rs = New ADODB.Recordset
   conn.Open "db"
   strSql = "select * from tbImage"
   rs.Open strSql, conn, 1, 3
   OpenFile ("bayshore.jpg")
   '請自己實現OpenFile函數
   rs.AddNew
   rs.Fields("image").AppendChunk binTmp
   rs.Update
   讀出和顯示：
   show.asp:
   <%
   dim P
   dim L
   L = 8192
   dim conn,rs,strSql
   set conn=server.CreateObject("ADODB.Connection")
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &server.MapPath(".") & "\db2.mdb;Persist Security Info=False"
   set rs=server.CreateObject("ADODB.Recordset")
   strSql = "select * from tbImage"
   Response.ContentType = "image/gif"
   'Important!
   rs.open strSql,conn,1,1
   rs.movelast
   do
   P = rs("image").GetChunk(L)
   Response.BinaryWrite P
   IF LenB(P) < L then exit do
   loop
   %>
   在html中：
   <image src=show.asp>