<%
sql="select * from book where sort=" & sortid & " order by id"
pageno=trim(request("pageno"))
If PageNO = "" Then PageNO=1
If PageNO+1 < 1 Then PageNO=1
PageSize=6
rs.PageSize = PageSize
rs.open sql,conn,1,1
AllCount=Rs.RecordCount
MaxPage=Rs.PageCount
if MaxPage=0 then MaxPage=1
If Rs.RecordCount > 0 Then
Rs.MoveFirst
If PageNO = "" Then PageNO=1
If PageNO+1 < 1 Then PageNO=1
If PageNO+1 > MaxPage+1 Then PageNO = MaxPage
Rs.AbsolutePage = PageNO
end if
i=0
do while not rs.eof and i