<%
count=8
sql="select * from [book] order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize=count
rc=rs.recordcount
pgnm=rs.pagecount
page=request.QueryString("page")
if page<>"" then page=clng(page)
if page="" or page=0 then page=1
if page>pgnm then page=pgnm
if pgnm>1 then rs.absolutepage=page
do while not rs.eof and count>0
count=count-1
%>