Écrire:
1: Lisez le fichier d'image GIF dans la mémoire (une variable StrTemp).
2: Écrivez dans la base de données.
Dim bintmp () comme octet
Dim Conn comme Adodb.Connection
DIM RS comme ADODB.Recordset
DIM STRSQL comme chaîne
Définir Conn = New Adodb.Connection
set rs = nouveau adodb.recordset
Conn.open "DB"
strSql = "select * from tbimage"
Rs.Open StrSql, Conn, 1, 3
OpenFile ("Bayshore.jpg")
'Veuillez implémenter la fonction OpenFile vous-même
Rs.Addnew
Rs.fields ("Image"). APPENDRE BINTMP
Rs.Update
Lire et afficher:
show.asp:
<%
talent
dim l
l = 8192
Dim Conn, RS, StrSQL
Définir Conn = Server.CreateObject ("Adodb.Connection")
Conn.open "Provider = Microsoft.Jet.oledb.4.0; Data Source =" & Server.mappath (".") & "/db2.mdb; Info de sécurité personnelle = false"
set rs = server.createObject ("adodb.recordSet")
strSql = "select * from tbimage"
Response.ContentType = "Image / GIF"
'important!
Rs.Open StrSql, Conn, 1,1
Rs.Movelast
faire
p = rs ("image"). getchunk (l)
réponse.Winarywrite p
Si Lenb (p) <l alors sortez faire
boucle
%>
En html:
<image src = show.asp>