一个ASP记录集分页显示的例子
作者:凌风之鹰 时间:2007-09-14 10:57:00
大家都知道在Dreamwerver中可以很方便地实现记录集的分页显示,但是生成的代码的确很庞大,影响了网页的显示速度,看起来条理也不是很清晰,那么,可不可以用简单的方式实现同样的功能呢?当然可以,笔者通过以下一些简单的代码就实现了记录集的分页显示,现在拿出来大家一起分享。
主要代码如下:
<%
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
%>
好了,很简单吧!只要简单地修改一下就能插入到你的网页显示记录的地方了,赶快试试吧!
标签:分页,asp
0
投稿
猜你喜欢
javascript闭包的秘密
2008-09-28 20:39:00
phpMyAdmin 2.10.2 配置方法
2007-08-22 08:11:00
正则表达式简介
2007-08-12 18:01:00
HTML和SEO基础知识:H标签全透视
2010-09-21 16:45:00
ASP的错误代码都有哪些?
2009-10-28 18:15:00
如何在网页上使用VBScript和JScript
2008-05-05 19:53:00
asp如何通过表单创建一个Word?
2010-06-07 20:56:00
互联网产品设计零碎记
2010-09-25 12:49:00
asp 快钱网关接口 支付宝接口 财付通接口代码
2011-03-08 10:55:00
Google的设计导引
2008-04-06 14:18:00
微软建议的ASP性能优化28条守则(4)
2008-02-26 17:57:00
ACCESS的参数化查询 附ASP和C#(ASP.NET)函数
2008-01-10 12:18:00
不得不看的JS基础知识(事件触发篇)
2008-12-04 16:38:00
理解CSS3线性渐变
2010-03-28 13:42:00
ASP把长的数字用格式化为货币样式的函数
2009-09-18 14:49:00
asp 类型转换函数大全第1/2页
2011-04-07 11:06:00
关于超级链接的一些问题
2007-12-07 14:00:00
游戏中的交互设计
2008-08-25 19:20:00
如何判断发言是否为空?
2010-01-12 20:15:00
Oracle 数据库中创建合理的数据库索引
2009-07-02 12:31:00