＋设为首页 ＋添加到收藏夹
请教如何在数据库里提取图片然后每页显示5张图片，现在以下代码，总是显示相同的5副，希望各位老兄，真正的赐教！！
<%
sql="select * from [pic] where nb=112"
rs.CursorLocation = 3
response.Expires = 0
response.Buffer = True
rs.open sql,conn,1,3
for i=1 to 5
if rs.eof=false then
Response.Clear()
response.contenttype="image/gif"
response.BinaryWrite(rs("pic").GetChunk(rs("pic").ActualSize))
response.Write("<br>")
rs.movenext
end if
next
%>
请问如何改正，谢谢！！！不会的就请别说了,就剩下10分了,开始乞讨了
<%
sql="select * from [pic] where nb=112"
rs.CursorLocation = 3
response.Expires = 0
response.Buffer = True
rs.open sql,conn,1,3
for i=1 to 5
if rs.eof=false then
response.Write("<img src=showimg.asp?id=" & rs("id") & ">")
rs.movenext
end if
next
%>
---------------------------------------------------------
showimg.asp
<%
sql="select pic from [pic] where id=" & request.querystring("id")
rs.open sql,conn,0,1
if not rs.eof then
Response.Clear()
response.contenttype="image/gif"
response.BinaryWrite(rs("pic").GetChunk(rs("pic").ActualSize))
end if
rs.close
%>
