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