showimg.asp

非常实用的生产管理系统

<!--#include file="conn.asp"-->
<%
id =Request("id")
On Error Resume Next
set rs=server.CreateObject("adodb.recordset")
sql="select img from ImgData where id="&id
rs.Open sql,conn,1,3
if not rs.eof then
response.contenttype="image/*"
Response.BinaryWrite (rs("img"))
end if
rs.close
Set rs=NotHing
conn.close
Set conn=NotHing
%>