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