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

%>