怎樣在A(yíng)SP中輕松實(shí)現記錄集分頁(yè)顯示？

??大家都知道在Dreamwerver中可以很方便地實(shí)現記錄集的分頁(yè)顯示，但是生成的代碼的確很龐大，影響了網(wǎng)頁(yè)的顯示速度，看起來(lái)條理也不是很清晰，那么，可不可以用簡(jiǎn)單的方式實(shí)現同樣的功能呢？當然可以，筆者通過(guò)以下一些簡(jiǎn)單的代碼就實(shí)現了記錄集的分頁(yè)顯示，現在拿出來(lái)大家一起分享。

??　　主要代碼如下:＜%　If rs1。recordcount＞0 Then ' 記錄集不為空則處理記錄　　rs1。pagesize = 10 ' 設置每頁(yè)顯示的記錄數　　num=rs1。recordcount ' 記錄總數　　pagenum=rs1。

??pagecount ' 頁(yè)總數　　page=request("page") ' 獲取頁(yè)碼的原始信息　　' 處理頁(yè)碼原始信息的開(kāi)始！ 　　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è)碼原始信息的結束！設置當前頁(yè)碼　rs1。absolutepage = page%＞＜!--判斷當前頁(yè)是否是最后一頁(yè)，并根據判斷設置記錄的重復顯示--＞＜% if page＜＞pagenum then　　　lablenum=rs1。

??pagesize　　else　　　lablenum=num-(page-1)*rs1。pagesize　　end if　　for i=1 to lablenum%＞＜tr bgcolor="#FFFFFF"＞?。紅d height="25"＞＜div align="center"＞＜%=(rs1。

??Fields。Item("id")。Value)%＞＜/div＞＜/td＞?。紅d＞＜div align="center"＞＜%=(rs1。Fields。Item("名稱(chēng)")。Value)%＞＜/div＞＜/td＞?。紅d＞＜div align="center"＞＜%=(rs1。

??Fields。Item("地址")。Value)%＞＜/div＞＜/td＞?。紅d＞＜div align="center"＞＜%=(rs1。Fields。Item("類(lèi)別")。Value)%＞＜/div＞＜/td＞?。紅d＞＜div align="center"＞＜%=(rs1。

??Fields。Item("最后修改")。Value)%＞＜/div＞＜/td＞?。紅d＞＜div align="center"＞＜%=(rs1。Fields。Item("修改人")。Value)%＞＜/div＞＜/td＞＜/tr＞＜%　rs1。

??movenextnext%＞＜!--當前頁(yè)的記錄顯示結束，以下代碼為記錄集分頁(yè)鏈接代碼--＞＜table width="70%" border="0" align="center" cellpadding="0" cellspacing="0"＞?。紅r＞ 　?。紅d height="35"＞ 　　?。糳iv align="right"＞　　　?。糵ont color="#333333"＞　　　　　共有 ＜%=num%＞ 個(gè)鏈接 | 　　　　?。糰 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＞ | 　　　　?。糰 href=linkadmin。asp?page=＜%=pagenum%＞＞尾頁(yè)＜/a＞ | 　　　　　　頁(yè)次:＜%=page%＞/＜%=pagenum%＞頁(yè) | 　　　　　　共＜%=pagenum%＞頁(yè)　　　?。?font＞　　?。?div＞　?。?td＞?。?tr＞＜/table＞＜!--記錄集分頁(yè)鏈接代碼結束，記錄集為空時(shí)執行以下代碼--＞＜%else%＞＜tr bgcolor="#FFFFFF"＞＜td height="25" colspan="6"＞＜div align="center"＞＜% response。

??Write("沒(méi)有結果可顯示！") %＞＜/div＞＜/td＞＜/tr＞＜%end ifrs1。Close()Set rs1 = Nothing%＞　　好了，很簡(jiǎn)單吧！只要簡(jiǎn)單地修改一下就能插入到你的網(wǎng)頁(yè)顯示記錄的地方了，趕快試試吧！

以上是我對于這個(gè)問(wèn)題的解答，希望能夠幫到大家。

??