在ASP中輕松實(shí)現(xiàn)記錄集分頁(yè)顯示

大家都知道在Dreamwerver中可以很方便地實(shí)現(xiàn)記錄集的分頁(yè)顯示，但是生成的代碼的確很龐大，影響了網(wǎng)頁(yè)的顯示速度，看起來?xiàng)l理也不是很清晰，那么，可不可以用簡(jiǎn)單的方式實(shí)現(xiàn)同樣的功能呢？當(dāng)然可以，筆者通過以下一些簡(jiǎn)單的代碼就實(shí)現(xiàn)了記錄集的分頁(yè)顯示，現(xiàn)在拿出來大家一起分享。
    主要代碼如下:
    ＜%
    If rs1.recordcount＞0 Then ' 記錄集不為空則處理記錄
    rs1.pagesize = 10 ' 設(shè)置每頁(yè)顯示的記錄數(shù)
    num=rs1.recordcount ' 記錄總數(shù)
    pagenum=rs1.pagecount ' 頁(yè)總數(shù)
    page=request("page") ' 獲取頁(yè)碼的原始信息
    ' 處理頁(yè)碼原始信息的開始！
    If page ＜＞ "" then
    page = cint(page)
    if err.number ＜＞ 0 then
    err.clear
    page = 1
    end if
    if page ＜ 1 then
    page = 1
    end if
    else
    page = 1
    End if
    if page*rs1.pagesize ＞ num and not((page-1)*rs1.pagesize ＜ num)then
    page=1
    end if
    ' 處理頁(yè)碼原始信息的結(jié)束！設(shè)置當(dāng)前頁(yè)碼
    rs1.absolutepage = page
    %＞
    ＜!--判斷當(dāng)前頁(yè)是否是最后一頁(yè)，并根據(jù)判斷設(shè)置記錄的重復(fù)顯示--＞
    ＜% if page＜＞pagenum then
    lablenum=rs1.pagesize
    else
    lablenum=num-(page-1)*rs1.pagesize
    end if
    for i=1 to lablenum
    %＞
    ＜tr bgcolor="#FFFFFF"＞
    ＜td height="25"＞＜div＞＜%=(rs1.Fields.Item("id").Value)%＞＜/div＞＜/td＞
    ＜td＞＜div＞＜%=(rs1.Fields.Item("名稱").Value)%＞＜/div＞＜/td＞
    ＜td＞＜div＞＜%=(rs1.Fields.Item("地址").Value)%＞＜/div＞＜/td＞
    ＜td＞＜div＞＜%=(rs1.Fields.Item("類別").Value)%＞＜/div＞＜/td＞
    ＜td＞＜div＞＜%=(rs1.Fields.Item("最后修改").Value)%＞＜/div＞＜/td＞
    ＜td＞＜div＞＜%=(rs1.Fields.Item("修改人").Value)%＞＜/div＞＜/td＞
    ＜/tr＞
    ＜%
    rs1.movenext
    next
    %＞
    ＜!--當(dāng)前頁(yè)的記錄顯示結(jié)束，以下代碼為記錄集分頁(yè)鏈接代碼--＞
    ＜table width="70%" cellpadding="0" cellspacing="0"＞
    ＜tr＞
    ＜td height="35"＞
    ＜div＞
    ?。糵ont color="#333333"＞
    共有 ＜%=num%＞ 個(gè)鏈接 |
    ＜a href=linkadmin.asp?page=1＞首頁(yè)＜/a＞ |
    ＜%if page＞1 then%＞＜a href=linkadmin.asp?page=＜%=page-1%＞＞＜%end if%＞上一頁(yè)＜/a＞ |
    ＜%if page＜pagenum then%＞＜a href=linkadmin.asp?page=＜%=page+1%＞＞＜%end if%＞下一頁(yè)＜/a＞ |
    ＜a href=linkadmin.asp?page=＜%=pagenum%＞＞尾頁(yè)＜/a＞ |
    　頁(yè)次:＜%=page%＞/＜%=pagenum%＞頁(yè) |
    　共＜%=pagenum%＞頁(yè)
    ?。?font＞
    ＜/div＞
    ＜/td＞
    ＜/tr＞
    ＜/table＞
    ＜!--記錄集分頁(yè)鏈接代碼結(jié)束，記錄集為空時(shí)執(zhí)行以下代碼--＞
    ＜%else%＞
    ＜tr bgcolor="#FFFFFF"＞
    ＜td height="25" colspan="6"＞＜div＞＜% response.Write("沒有結(jié)果可顯示！") %＞
    ＜/div＞＜/td＞
    ＜/tr＞
    ＜%
    end if
    rs1.Close()
    Set rs1 = Nothing
    %＞
    好了，很簡(jiǎn)單吧！只要簡(jiǎn)單地修改一下就能插入到你的網(wǎng)頁(yè)顯示記錄的地方了，趕快試試吧！