www.gusucode.com > 创想设计Flash相册 1.0源码程序 > Photo\GetImg.asp
<!--#include file="conn.asp"--> <% pages=request("pages") set rs=server.createobject("adodb.recordset") if IsNumeric(pages) then 'response.end if pages<1 or pages=1 or pages="" then sql="select top 21 * from images" else p=21*pages-21 sql="select top 21 * from images where id not in(select top "&p&" id from images)" end if else sql="select top 21 * from images" end if rs.open sql,conn,1,1 img_num=rs.recordcount do while not rs.eof imgs=imgs & replace(rs("img_b"),".jpg","")&"," imgs_text=imgs_text & "&" & replace(rs("img_b"),".jpg","") & "_text=" & rs("img_text") rs.movenext loop set rs=server.createobject("adodb.recordset") sql="select * from images" rs.open sql,conn,1,1 allimg_num=rs.recordcount rs.close() response.write imgs_text & "&imgs=" & imgs & "&img_num=" & img_num & "&allimg_num=" & allimg_num %>