Schreiben:
1: Lesen Sie die GIF -Bilddatei in den Speicher (eine variable Strtemp).
2: Schreiben Sie in die Datenbank.
Dim Bintmp () als Byte
Dim Conn als adodb.Connection
Dim Rs als adodb.recordset
Dim Strsql als Zeichenfolge
Setzen Sie conn = new adodb.Connection
Setzen Sie rs = neu adodb.recordset
Conn.open "DB"
STRSQL = "SELECT * aus TBIMAGE"
Rs.open Strsql, Conn, 1, 3
OpenFile ("Bayshore.jpg")
„Bitte implementieren Sie die OpenFile -Funktion selbst
rs.addnew
Rs.Fields ("Bild"). appendChunk bintmp
Rs.Update
Lesen und Anzeigen:
show.asp:
<%
Dim p
dumm l
L = 8192
Dim Conn, RS, Strsql
Setzen Sie conn = server.createObject ("adodb.Connection").
conn.open "provider = microsoft.jet.oledb.4.0; data source =" & server.mappath (".") & "/db2.mdb;Persist Sicherheitsinfo = False"
Setzen Sie rs = server.createObject ("adodb.recordset")
STRSQL = "SELECT * aus TBIMAGE"
Antwort.ContentType = "Image/GIF"
'wichtig!
Rs.open Strsql, Conn, 1,1
Rs.Movelast
Tun
p = rs ("Bild"). getCunk (l)
Antwort.BININYWRITE P.
Wenn lenb (p) <l dann beenden
Schleife
%>
In HTML:
<Image src = show.asp>