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

　　主要代碼如下:

＜%
　If rs1.recordcount＞0 Then ' 記錄集不為空則處理記錄
　　rs1.pagesize = 10 ' 設置每頁顯示的記錄數
　　num=rs1.recordcount ' 記錄總數
　　pagenum=rs1.pagecount ' 頁總數
　　page=request("page") ' 獲取頁碼的原始信息
　　' 處理頁碼原始信息的開始！
　　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
　' 處理頁碼原始信息的結束！設置當前頁碼
　rs1.absolutepage = page
%＞
＜!--判斷當前頁是否是最后一頁，并根據判斷設置記錄的重復顯示--＞
＜% 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＞
　＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("名稱").Value)%＞＜/div＞＜/td＞
?。紅d＞＜div align="center"＞＜%=(rs1.Fields.Item("地址").Value)%＞＜/div＞＜/td＞
?。紅d＞＜div align="center"＞＜%=(rs1.Fields.Item("類別").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.movenext
next
%＞
＜!--當前頁的記錄顯示結束，以下代碼為記錄集分頁鏈接代碼--＞
＜table width="70%" border="0" align="center" cellpadding="0" cellspacing="0"＞
?。紅r＞
　?。紅d height="35"＞
　　　＜div align="right"＞
　　　?。糵ont color="#333333"＞
　　　　　共有 ＜%=num%＞ 個鏈接 |
　　　　?。糰 href=linkadmin.asp?page=1＞首頁＜/a＞ |
　　　　?。?if page＞1 then%＞＜a href=linkadmin.asp?page=＜%=page-1%＞＞＜%end if%＞上一頁＜/a＞ |
　　　　　＜%if page＜pagenum then%＞＜a href=linkadmin.asp?page=＜%=page+1%＞＞＜%end if%＞下一頁＜/a＞ |
　　　　?。糰 href=linkadmin.asp?page=＜%=pagenum%＞＞尾頁＜/a＞ |
　　　　　　頁次:＜%=page%＞/＜%=pagenum%＞頁 |
　　　　　　共＜%=pagenum%＞頁
　　　?。?font＞
　　?。?div＞
　?。?td＞
?。?tr＞
＜/table＞
＜!--記錄集分頁鏈接代碼結束，記錄集為空時執行以下代碼--＞
＜%else%＞
＜tr bgcolor="#FFFFFF"＞
＜td height="25" colspan="6"＞＜div align="center"＞＜% response.Write("沒有結果可顯示！") %＞
＜/div＞＜/td＞
＜/tr＞
＜%
end if
rs1.Close()
Set rs1 = Nothing
%＞

　　好了，很簡單吧！只要簡單地修改一下就能插入到你的網頁顯示記錄的地方了，趕快試試吧！