show.asp:
<!--#include file="inc/conn.asp"-->
<%
sql="select * from ole"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,1,1
do until rs.eof
id=rs("id")
%>
<img src="showimg.asp?id=<%=id%>">
<%
response.write "图片id为:" & id & "<br>"
rs.movenext
loop
%>
showimg.asp:
<!--#include file="inc/conn.asp"-->
<%
id=request("id")
if id="" then
id=1
else
id=trim(id)
end if
set rs=server.createobject("ADODB.recordset")
sql="select * from ole where id="&id
rs.open sql,conn,1,1
Response.ContentType="image/*"
Response.BinaryWrite rs("ole").getChunk(8000000)
rsclose()
connclose()
%>