用ASP显示ACCESS数据库的的GIF图象-数据库专栏,MSAccess

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