本文匆匆已經全面測試，支援ASP+ACCESS以及ASP+SQL，請修改相關部分就可以了。
注意，匆匆謝絕基礎問題回答，已經本程式碼已經很簡單，如果還不懂可以參考本站其他欄位。
<!--#include file="conn.asp"-->
<% '以上為包含資料庫銜接文件
'--------------------------------------------查詢開始資料庫
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from books where 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
您可能感興趣的文章:
目前1/2頁