在ASP中輕松實(shí)現(xiàn)記錄集分頁顯示

1、    大家都知道在Dreamwerver中可以很方便地實(shí)現(xiàn)記錄集的分頁顯示，但是生成的代碼的確很龐大，影響了網(wǎng)頁的顯示速度，看起來?xiàng)l理也不是很清晰，那么，可不可以用簡單的方式實(shí)現(xiàn)同樣的功能呢？當(dāng)然可以，筆者通過以下一些簡單的代碼就實(shí)現(xiàn)了記錄集的分頁顯示，現(xiàn)在拿出來大家一起分享。 主要代碼如下: % If rs1.recordcount0 Then  記錄集不為空則處理記錄 rs1.pagesize = 10  設(shè)置每頁顯示的記錄數(shù) num=rs1.recordcount&#

2、160; 記錄總數(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&

3、#160; 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ù)顯示-

4、 % if pagepagenum then lablenum=rs1.pagesize else lablenum=num-(page-1)*rs1.pagesize end if for i=1 to lablenum % tr bgcolor="#FFFFFF" /tr % rs1.movenext next % !-當(dāng)前頁的記錄顯示結(jié)束，以下代碼為記錄集分頁鏈接代碼- table width="70%" border="0"&#

5、160;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 

6、;page1 then%a href=linkadmin.asp?page=%=page-1%end if%上一頁/a |  %if pagepagenum 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é)束，記錄集為空時執(zhí)行以下代碼- %else% tr bgcolor="#FFFFFF" td height="25" colspan="6"div align="center"% response.Wr