Menulis:
1: Baca file gambar GIF ke dalam memori (variabel strtemp).
2: Tulis ke database.
redup bintmp () sebagai byte
redup conn sebagai adodb.connection
redup sebagai adodb.recordset
redup strsql sebagai string
Set Conn = ADODB.Connection baru
Set RS = ADODB.Recordset baru
Conn.open "db"
strsql = "pilih * dari tbimage"
rs.open strsql, conn, 1, 3
OpenFile ("Bayshore.jpg")
'Harap terapkan fungsi OpenFile sendiri
rs.addnew
rs.fields ("Image"). Appendchunk Bintmp
rs.update
Baca dan Tampilan:
show.asp:
<%
redup p
redup l
L = 8192
Dim Conn, RS, Strsql
Set Conn = Server.CreateObject ("AdodB.Connection")
conn.open "provider = microsoft.jet.oledb.4.0; data sumber =" & server.mappath (".") & "/db2.mdb; info keamanan yang lebih besar = false"
Set RS = Server.CreateObject ("ADODB.Recordset")
strsql = "pilih * dari tbimage"
response.contentType = "gambar/gif"
'penting!
rs.open strsql, Conn, 1,1
rs.movelast
Mengerjakan
p = rs ("gambar"). getchunk (l)
response.binarywrite p
Jika lenb (p) <l maka keluarlah lakukan
lingkaran
%>
Di html:
<gambar src = show.asp>