用ASP显示ACCESS数据库的的GIF图象

写入：
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:

 1   
 2dim P   
 3dim L   
 4L = 8192   
 5dim conn,rs,strSql   
 6set conn=server.CreateObject("ADODB.Connection")   
 7conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &server.MapPath(".") & "\db2.mdb;Persist Security Info=False"   
 8set rs=server.CreateObject("ADODB.Recordset")   
 9strSql = "select * from tbImage"   
10Response.ContentType = "image/gif"   
11'Important!   
12rs.open strSql,conn,1,1   
13rs.movelast   
14do   
15P = rs("image").GetChunk(L)   
16Response.BinaryWrite P   
17IF LenB(P) < L then exit do   
18loop

在html中：

1<image src="show.asp"/>