zoukankan      html  css  js  c++  java
  • asp数据分页显示技术(上下页版)

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

  • 相关阅读:
    修改用户密码,权限
    域渗透
    跨域
    目录
    C中的extern和static
    XSS进阶
    SQL injection
    双重指针学习笔记
    文件上传学习笔记
    Hello Python
  • 原文地址:https://www.cnblogs.com/ince/p/9154822.html
Copyright © 2011-2022 走看看