本文匆匆已經(jīng)全面測(cè)試，支持ASP+ACCESS以及ASP+SQL，請(qǐng)修改相關(guān)部分就可以了。
注意，匆匆謝絕基礎(chǔ)問題回答，已經(jīng)本代碼已經(jīng)很簡(jiǎn)單，如果還不懂可以參閱本站其他欄目。

<!--#include file="conn.asp"-->
<% '以上為包含數(shù)據(jù)庫(kù)銜接文件
'--------------------------------------------查詢開始數(shù)據(jù)庫(kù)

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ù)庫(kù)中無數(shù)據(jù)"
end if

'------------------------------------------分頁(yè)開始
if rs.recordcount=0 then   
respose.write "沒有數(shù)據(jù)"
else
rs.PageSize =10 '每頁(yè)記錄條數(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

For i=1 To x

最新評(píng)論