<%
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 你的数据表 where id="&id
rs.Open sql,conn,1,3
response.contenttype="image/jpeg"
Response.BinaryWrite rs("image")
%>
------以上存为showpic.asp文件-----------
调用如下。。
<img src="showpic.asp?id=<%=rs("id")%>" width="200" height="130" border="0" >