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