asp调用以长二进制存放在数据表里面的图片

asp调用二进制图片，显示不出来额。
<--上传代码upload.asp>
<%
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13)&chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)

set rs=server.createobject("ADODB.recordset")
rs.Open"SELECt * FROM tb_goods",conn,3,3
rs.addnew
rs("goods_img").AppendChunk mydata
rs.update
rs.close
set rs=nothing
set conn=nothing
response.redirect "show.asp"
%>

<--显示页面show.asp>
<%
set conn=server.CreateObject("adodb.connection")
conn.open("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../db/goods.mdb")&"")

sql="select * from tb_goods"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,1,1
do until rs.eof
id=rs("goods_id")
%>
<%=rs("goods_id")%><br>
<%=rs("goods_img")%><br>
<p><img src="showing.asp?id=<%=id%>"/></p>
<%
rs.movenext
loop
%>

<--showimg.asp>
<%
set conn=server.CreateObject("adodb.connection")
conn.open("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../db/goods.mdb")&"")

set rs=server.createobject("ADODB.recordset")

sql="select * from tb_goods where goods_id="&trim(request("id"))
rs.open sql,conn,1,3
Response.ContentType="ims/*"
Response.BinaryWrite rs("goods_img").getChunk(7500000)
rs.close
set rs=nothing
set conn=nothing
%>

Response.ContentType="image/*"

楼主的做法存在以下问题：

1、不利于图片的展示

图片将如何放置在网页中？如果需要展示在网页的布局中，该如何读取每张图片的信息？

2、不利于图片的分页展示

如果图片太多，是否需要分页，而将所有的图片信息都存放在一个参数中，不利于设置分页，直接使用循环读取这些图片信息，将其放入指定的位置岂不更好？