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

文章来源于领测软件测试网 https://www.ltesting.net/