主要代碼如下:
| ＜% If rs1.recordcount＞0 Then ’ 記錄集不為空則處理記錄 rs1.pagesize = 10 ’ 設(shè)置每頁顯示的記錄數(shù) num=rs1.recordcount ’ 記錄總數(shù) pagenum=rs1.pagecount ’ 頁總數(shù) 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 ’ 處理頁碼原始信息的結(jié)束！設(shè)置當(dāng)前頁碼 rs1.absolutepage = page %＞ ＜!--判斷當(dāng)前頁是否是最后一頁，并根據(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 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 %＞ ＜!--當(dāng)前頁的記錄顯示結(jié)束，以下代碼為記錄集分頁鏈接代碼--＞ ＜table width="70%" border="0" align="center" cellpadding="0" cellspacing="0"＞ ＜tr＞ ＜td height="35"＞ ＜div align="right"＞ ＜font color="#333333"＞ 共有 ＜%=num%＞ 個(gè)鏈接 | ＜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＞ ＜!--記錄集分頁鏈接代碼結(jié)束，記錄集為空時(shí)執(zhí)行以下代碼--＞ ＜%else%＞ ＜tr bgcolor="#FFFFFF"＞ ＜td height="25" colspan="6"＞＜div align="center"＞＜% response.Write("沒有結(jié)果可顯示！") %＞ ＜/div＞＜/td＞ ＜/tr＞ ＜% end if rs1.Close() Set rs1 = Nothing %＞ |
好了，很簡單吧！只要簡單地修改一下就能插入到你的網(wǎng)頁顯示記錄的地方了，趕快試試吧！