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

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

2、160; 記錄總數(shù) pagenum=rs1.pagecount  頁(yè)總數(shù) page=request("page")  獲取頁(yè)碼的原始信息  處理頁(yè)碼原始信息的開始！  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  處理頁(yè)碼原始信息的結(jié)束！設(shè)置當(dāng)前頁(yè)碼 rs1.absolutepage = page % !-判斷當(dāng)前頁(yè)是否是最后一頁(yè)，并根據(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)前頁(yè)的記錄顯示結(jié)束，以下代碼為記錄集分頁(yè)鏈接代碼- table width="70%" border="0"&#

5、160;align="center" cellpadding="0" cellspacing="0" tr  td height="35"  div align="right" font color="#333333" 共有 %=num% 個(gè)鏈接 |  a href=linkadmin.asp?page=1首頁(yè)/a |  %if 

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