Писать:
1: Прочитайте файл изображения GIF в память (переменная Strtemp).
2: Напишите в базу данных.
dim bintmp () как байт
Dim Conn как adodb.connection
Dim Rs как adodb.recordset
Dim Strsql как строка
Установить conn = new Adodb.connection
Установить RS = новый 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.
тусклый
L = 8192
Dim Conn, RS, Strsql
Установить conn = server.createObject ("adodb.connection")
conn.open "Provider = microsoft.jet.oledb.4.0; data source =" & server.mappath (".") & "/db2
Установить rs = server.createObject ("adodb.recordset")
strsql = "select * from tbimage"
response.contenttype = "Image/Gif"
'важный!
Rs.open Strsql, Conn, 1,1
Rs.Movelast
делать
p = rs ("изображение"). getChunk (l)
response.binaryWrite р
Если lenb (p) <l, то выход do do
петля
%>
В HTML:
<Image src = show.asp>