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

上一个：W3 Jmail 简要介绍
下一个：对下载文件进行速度限制