To display a GIF image of an Access database using ASP

access| Data | database | Display write:
1: Read the GIF image file into memory (a variable strtemp).
2: Write to the database.
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")
' Please implement the OpenFile function yourself
Rs. AddNew
Rs. Fields ("image"). AppendChunk bintmp
Rs. Update
read out and display:
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
Todo
P = RS ("image"). GetChunk (L)
Response.BinaryWrite P
IF LenB (P) < L then Exit Do
Loop
%>
In HTML:
<image src=show.asp>