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 "數(shù)據(jù)庫中無數(shù)據(jù)" end if
'------------------------------------------分頁開始 if rs.recordcount=0 then respose.write "沒有數(shù)據(jù)" else rs.PageSize =10 '每頁記錄條數(shù) iCount=rs.RecordCount '記錄總數(shù) 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 page<1 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
