＜%
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＞
＜td height=25＞＜div align=center＞＜%=(rs1.Fields.Item(id).Value)%＞＜/div＞＜/td＞
＜td＞＜div align=center＞＜%=(rs1.Fields.Item(名稱).Value)%＞＜/div＞＜/td＞
＜td＞＜div align=center＞＜%=(rs1.Fields.Item(地址).Value)%＞＜/div＞＜/td＞
＜td＞＜div align=center＞＜%=(rs1.Fields.Item(類別).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
%＞
＜!--當前頁的記錄顯示結束，以下代碼為記錄集分頁鏈接代碼--＞
＜table width=70% border=0 align=center cellpadding=0 cellspacing=0＞
＜tr＞
＜td height=35＞
＜div align=right＞
＜font color=#333333＞
共有＜%=num%＞ 個鏈接|
＜a 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＞ |
＜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
%＞