分页
程序首先读取每页预置的记录条数,在此是30条,其它将在下页中显示,同时提示当前页数、总页数、总记录数,当显示的页数为第一页时,“首页”、“上一页”链接失效,当显示的页数为最后页时,“下一页”、“尾页”链接失效。另外我们还可以实现,当前第几页,一共几页,总共有多少页,我们要实现以下可以用(其中curpage是自己定义的变量,大家可以改,不过一改底下都要改,)
<%=curpage%>读出当前页次,用<%=rs.pagecount%>读出总页数,用<%=rs.recordcount%>读出总记录数。
例如:“当前第<%=curpage%>,共有<%=rs.pagecount%>页,共有:<%=rs.recordcount%>条记录”。
下面我来把这个分页解释一下,
<%Set rs = server.CreateObject("adodb.recordse") '这里我们先打开数据库这个大家都看的懂吧
sql="select * from TF_product" '如果不懂可以去看你FIF小组的ASP视频互动VIP教程
rs.Open
sql, conn, 1, 1 '我这也有如果要的话就百度HI我,废话不多说了,我们接着看
IF rs.eof or rs.bof Then ' 这里我们判断记录集是否为空,以防出错
response.write("暂无产品") '输出记录集为空时的内容
Else ' 如果记录集不为空则
rs.pagesize=30 '定义每页显示记录30条
curpage=request.QueryString("curpage") '获取地址栏curpage的值
IF Not IsNumeric(curpage) or curpage= "" then '判断curpage的值是否为数字或者为空然后
curpage=1 '给curpage赋值为1
else '如果curpage不为空或者是数字则执行下面的代码
curpage=cint(curpage) '给curpage的值转换成数字并赋值给curpage
End IF '判断结束
rs.Absolutepage=curpage '这个就是定义当前页为curpage的值
%>
'这里是输出记录集的内容
排序 |
产品名称 |
所属分类 |
修改操作 |
<%For i= 1 to rs.pagesize '用循环语句FOR输出记录
if rs.eof or rs.bof then '判断记录集是否为空,也就是当记录循环为空时怎么办{我是这样理解的}
exit for '当记录循环为空时退出循环
end if '判断结束-%>
'这里是循环记录集的内容
<%=rs("TF_product_order")%> |
<%=rs("TF_product_name")%> |
<%rs2("TF_product_classify_name")%> |
[ %>">修改产品] |
<%rs.movenext '在循环时将记录集向下一条,
next 'FOR循环语句结束
End if '这个判读结束是在我们刚开始判断记录集为空时写的
<%if curpage=1 then%> '判断curpage的值是否为1首页,如果为1则没有链接,这样我们就能实现当出现第一页时首页上一页链接为空 <%else%> '判断结束 首页<%end if%><%if curpage=1 then%>上一页<%else%>上一页 '下面上一页,下一页都是一样的,只不过是将链接地址加一,减一,这样就实现了上一页,下一页的效果 <%end if%><%if rs.pagecount下一页<%else%>下一页<%end if%><%if rs.pagecount尾页<%else%>尾页 '尾页则是将rs.pagecount这个是记录集分页的总数这样就是尾页了 <%end if%> 当前第<%=curpage%>页 '这里就是用curpage的变量实现当前第几页 共有<%=rs.pagecount%>页 '这个就是用rs.pagecount属性来实现共有多少页 共有:<%=rs.recordcount%>条记录 | '这个是用rs.recordcount属性来实现共有多少条记录
<%Call Close_Rs '这里就是关闭记录集和数据库了,对了我的这些都定义成过程了,直接调用就可以了
Call Close_Conn '相信大家应该看懂了吧,如果不懂直接用就是了,直接用就行了ctrl+c-,ctrl+v就OK了
%>
-
相关文章
-
最新文件
关于网学 |
万能工具 |
在线交流 |
会员中心 |
查询论文 |
招聘说明 |
精品资源 |
专题论文 |
会员中心 |
联系方式 |
下载目录
论文目录
Copyright 2005-2018 www.myeducs.cn All Rights Reserved 版权所有·网学网 提供大量原创论文 参考论文 论文资料 源代码 管理及投稿 E_mail:3710167@qq.com
郑重声明: 本网站论文均来自互联网,由本站会员上传或下载,仅供个人交流、学习、参考之用,版权归原作者所有
请下载完后24小时之内删除,任何人不得大幅抄录、在期刊上发表或作为商业之用。如涉及版权纠纷,本网站不承担任何法律及连带责任。