<%
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
%>