［ 作者：佚名 更新時(shí)間：2005-11-15 文章錄入：
Admin ］
大家都知道在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"＞
＜td height="25"＞＜div align="center"＞＜%=(rs1.Fields.Item("id").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("名稱(chēng)").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("地址").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("類(lèi)別").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("最后修改").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("修改人").Value)%＞＜/div＞＜/td＞
＜/tr＞
＜%
rs1.movenext
next
%＞
＜!--當前頁(yè)的記錄顯示結束，以下代碼為記錄集分頁(yè)
鏈接代碼--＞
＜table width="70%" border="0" align="center"
＜tr＞
＜td height="35"＞
＜div align="right"＞
＜font 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è)鏈接代碼結束，記錄集為空時(shí)執行以下代碼--＞
＜%else%＞
＜tr bgcolor="#FFFFFF"＞
＜td height="25" colspan="6"＞＜div align="center"＞＜% response.
