ASP中輕松實現(xiàn)記錄集分頁

2010-08-28 10:46:59來源:西部e網(wǎng)作者:

  大家都知道在Dreamwerver中可以很方便地實現(xiàn)記錄集的分頁顯示,但是生成的代碼的確很龐大,影響了網(wǎng)頁的顯示速度,看起來條理也不是很清晰,那么,可不可以用簡單的方式實現(xiàn)同樣的功能呢?當然可以,筆者通過以下一些簡單的代碼就實現(xiàn)了記錄集的分頁顯示,現(xiàn)在拿出來大家一起分享。

  主要代碼如下:

<%
 If rs1.recordcount>0 Then ’ 記錄集不為空則處理記錄
  rs1.pagesize = 10 ’ 設置每頁顯示的記錄數(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é)束!設置當前頁碼
 rs1.absolutepage = page
%>
<!--判斷當前頁是否是最后一頁,并根據(jù)判斷設置記錄的重復顯示-->
<%
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
%>
<!--當前頁的記錄顯示結(jié)束,以下代碼為記錄集分頁鏈接代碼-->
<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>
<!--記錄集分頁鏈接代碼結(jié)束,記錄集為空時執(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)頁顯示記錄的地方了,趕快試試吧!
關鍵詞:ASP

贊助商鏈接: