用ASP顯示ACCESS數據庫的的GIF圖像

- 中國WEB開發者網絡 (http://www.webasp.net)
-- 技術教程 (http://www.webasp.net/article/)
--- 用ASP顯示ACCESS數據庫的的GIF圖像 (http://www.webasp.net/article/21/20121.htm)
-- 作者：未知
-- 發佈日期： 2005-04-29
寫入：
   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>
webasp.net