无非用个循环写.
<%
objRS.Open "SELECT ID FROM DATATABLE WHERE USERID=" & USERID,objDC
while not obj.EOF
%>
<IMG SRC="PHOTOSHOW.ASP?ID=<%=objRS("ID")%>">
<%
objRS.MoveNext
WEND
%>
PHOTOSHOW.ASP
<%
objRS.Open "SELECT PIC FROM DATATABLE WHERE ID=" & Request.QueryString("ID"),objDC
if not objRS.EOF then
Response.BinaryWrite objRS("PIC")
else
'写一幅默认图片到浏览器
end if
%>