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 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
For i=1 To x 12下一頁閱讀全文
您可能感興趣的文章:
ASP.NET 高性能分頁代碼asp.net下經典數據庫記錄分頁代碼Asp.net 通用萬級數據分頁代碼[修正下載地址]asp.net 結合mysql存儲過程進行分頁代碼asp 存儲過程分頁代碼asp 簡單分頁代碼asp.net中使用repeater和PageDataSource搭配實現分頁代碼asp萬用分頁程序代碼
