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

2015-06-28 00:00作者：网管联盟

写入：

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中：