set rs=server.CreateObject("adodb.recordset") rs.open "select * from books where id="id" order by id desc",conn,1,1 if err.number>0 then response.write "數據庫中無數據" end if
'------------------------------------------分頁開始 if rs.recordcount=0 then respose.write "沒有數據" else rs.PageSize =10 '每頁記錄條數 iCount=rs.RecordCount '記錄總數 iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page")
if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if
if page1 then page=1 elseif page>maxpage then page=maxpage end if
rs.AbsolutePage=Page
if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if
