急！显示数据库中图片问题，在线等！

Question

下载用户上传的文件
<%
Response.Buffer = true
Response.ClearUserID=request("UserID")Set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open "DSN=UploadFile"
rs.open "select * from User_File where UserID='"&UserID&"'",conn,3,3
Response.ContentType = rs("FileContentType")lngOffset=0
conChunkSize=1024
lngPictSize=rs("FileContent").ActualSize
Do While lngOffset < lngPictSize
varChunk = rs("FileContent").GetChunk(conChunkSize)
Response.BinaryWrite varChunk
lngOffset = lngOffset + conChunkSize
If lngOffset > lngPictSize Then Exit Do
Looprs.close
set rs=Nothing
conn.close
set conn=nothing
%>

Answer 1

这是每次指读出一张图片啊，那么参数应该怎亚循环的传递过去呢？谢谢，帮忙啊！