2栏分页显示（附显示的形式前页，后页） -pc6资讯

您的位置：首页 → 网页设计 → ASP实例 → 2栏分页显示（附显示的形式前页，后页）

2栏分页显示（附显示的形式前页，后页） 时间：2004/11/7 2:58:00来源：本站整理作者：蓝点我要评论(0)

显示形式：

         ID1     NAME   | ID2   NAME

         1       JULIET |  2     PALYBOY

         3       BABY   |  4     TOM

         5       LENA   |  6      JERY

>>首页前页后页尾页  页数：1/4  6条/页   总记录数:25条

代码：

<%

    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

%>













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













<%

                        rowcount=rowcount-1

                        rs.MoveNext

                    else

                        Response.Write " "

                    end if

          loop

        end if

    end if

    rs.close

    set rs=nothing

%>

ID1	name1	ID2	name2
<%=rs("id")%>	<%=rs("testname")%>	<% rowcount=rowcount-1 rs.MoveNext if not rs.EOF then %> <%=rs("id")%>	<%=rs("testname")%>

<%call>

<%

    sub listPages()

        if n <= 1 then exit sub

%>

>>

        <%if 1="">

            Top Previous

        <%else%>

            Top

            &nbsp

            Previous

        <%end>

        <%if n="">

            Next Bottom

        <%else%>

            Next

            &nbspBottom

        <%end>



        &nbsp Page:<%=currentpage%>/<%=n%>pages&nbsp&nbsp<%=msg_per_page%>notes/page &nbsp Total:<%=totalrec%>notes

<%end>

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。