showpic.asp---------
<%
dim id
dim rs
dim sql
id=Request("id")
set conn=server.createobject("adodb.connection")
conn.Open application("conn")
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM book where id="&id
rs.Open sql,conn,1,3
response.contenttype="image/gif"
Response.BinaryWrite rs("image")
%>