码迷,mamicode.com
首页 > Web开发 > 详细

asp数据分页显示技术(上下页版)

时间:2018-06-08 14:07:49      阅读:210      评论:0      收藏:0      [点我收藏+]

标签:des   string   ...   request   ges   sel   count   min   enter   

<%set rs=server.CreateObject("adodb.recordset")
sql="select * from [student_admin] order by id DESC"
rs.open sql,conn,1,3
%>
<%
rs.pagesize=15‘这个是显示最新的8条记录,可以按自己需要改
curpage=Request.QueryString("curpage")‘记录页码数
if curpage="" then curpage=1‘如果为空就让它为1,不可能要它0页嘛
if rs.bof and rs.eof then‘判断数据库有没有记录,没有就下面
response.Write("")
else
rs.AbsolutePage=curpage ‘记录当前页码
for i= 1 to rs.pagesize‘循环,从1到当前页码
if rs.eof then‘如果到最后一条记录,退出循环
exit for
end if
%>
内容......................................
<%
rs.movenext
if rs.eof then
exit for
end if
next
%>
<div align="center" class="STYLE4" style="height:35px; padding-top:10px">
共有<%=rs.pagecount%>页,当前第<%=curpage%>页
<%if curpage=1 then%>首页<%else%><a href="?curpage=1">首页</a><%end if%>
<%if curpage<>1 then%><a href="?curpage=<%=curpage-1%>">上一页</a><%end if%>
<%if rs.pagecount>=curpage+1 then%><a href="?curpage=<%=curpage+1%>">下一页</a><%end if%>
<%if rs.pagecount<curpage+1 then%>尾页<%else%><a href="?curpage=<%=rs.pagecount%>">尾页</a><%end if%>
</div>

asp数据分页显示技术(上下页版)

标签:des   string   ...   request   ges   sel   count   min   enter   

原文地址:https://www.cnblogs.com/ince/p/9154822.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!