澳门二十一点游戏赌场 澳门二十一点游戏赌场
    您现在的位置:首页 >> 软件应用 >> ASP教程 >> 内容

    1栏分页显示(附显示的形式[1][2])

    时间:2012/7/23 20:43:13 点击:

      核心提示:显示形式:ID NAME1 JULIET2 SPIRIT3 GIRL4 BOY[1] [2] [3] [4] 页数:1/4 页 4条/页 总记录数:13条代码:dim rsdim sqlmsg_per...
    显示形式:
    ID NAME
    1 JULIET
    2 SPIRIT
    3 GIRL
    4 BOY
    [1] [2] [3] [4] 页数:1/4 页 4条/页 总记录数:13条
    代码:





    <%
    dim rs
    dim sql
    msg_per_page = 4 '定义每页显示记录条数
    set rs = server.createobject("adodb.recordset")
    sql = "select * from page order by id" '改成你自己的SQL语句
    rs.cursorlocation = 3 '使用客户端游标,可以使效率提高

    rs.pagesize = msg_per_page '定义分页记录集每页显示记录数
    rs.open sql,conn,0,1

    if err.number<>0 then '错误处理
    response.write "数据库操作失败:" & err.description
    err.clear
    else
    if not (rs.eof and rs.bof) then '检测记录集是否为空
    totalrec = RS.RecordCount 'totalrec:总记录条数
    if rs.recordcount mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数
    n = rs.recordcount\msg_per_page 'n:总页数
    else
    n = rs.recordcount\msg_per_page+1
    end if

    currentpage = request("page") 'currentpage:当前页
    If currentpage <> "" then
    currentpage = cint(currentpage)
    if currentpage < 1 then
    currentpage = 1
    end if
    if err.number <> 0 then
    err.clear
    currentpage = 1
    end if
    else
    currentpage = 1
    End if
    if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then
    currentPage=1
    end if
    rs.absolutepage = currentpage 'absolutepage:设置指针指向某页开头
    rowcount = rs.pagesize 'pagesize:设置每一页的数据记录数

    dim i
    dim k
    %>

    ID
    name

    <%do while not rs.eof and rowcount > 0%>

    <%=rs("id")%>
    <%=rs("testname")%>

    <%
    rowcount=rowcount-1
    rs.MoveNext
    loop
    end if
    end if
    rs.close
    set rs=nothing
    %>





    <%call listPages()%>





    <%
    sub listPages()
    if n <= 1 then exit sub
    for i=0 to n\msg_per_page-1
    for j=1 to msg_per_page
    %>

    ?page=<%=i*msg_per_page+j %>">[<% =i*msg_per_page+j %>]
    <%
    next
    next
    EndPage = n mod msg_per_page
    for j=1 to EndPage
    %>

    ?page=<% =i*msg_per_page+j %>">[<% =i*msg_per_page+j %>]
    <%next%>

    Page:<%=currentpage%>/<%=n%>pages <%=msg_per_page%>notes/page Total:<%=totalrec%>notes
    <%end sub%>

    作者:佚名 来源:不详

    共有评论 0相关评论
    发表我的评论
    • 大名:
    • 内容:
  • 澳门二十一点游戏赌场(www.0769online.com) © 2019 版权所有 All Rights Reserved. 邮箱:103150@qq.com 业务QQ:103150 手机:13549753683

    Power By Laoy8 SQL 3.0SP1 粤ICP备10098668号
  •