2栏分页显示（附显示的形式前页，后页），此程序可直接套用

电脑维修第一互动门户_www.PC106.com

为了方便您再次访问电脑维修站，请点击收藏本站！

设为首页

维修： CPU·主板·硬盘·内存·显卡·显示器·键盘鼠标·声卡音箱·软驱光驱·打印机·机箱电源·BIOS·网卡·局域网·浏览器

您现在的位置：电脑维修 >> 网站技术 >> ASP技术 >> ASP技巧 >> 网站技术正文

2栏分页显示（附显示的形式前页，后页），此程序可直接套用

作者：佚名文章来源：不详点击数：更新时间：2007-2-14 14:57:42

显示形式：
         ID1     NAME   | ID2   NAME
         1       JULIET |  2     PALYBOY
         3       BABY   |  4     TOM
         5       LENA   |  6      JERY
>>首页前页后页尾页  页数：1/4  6条/页   总记录数:25条
代码：


<html>
<body bgcolor="#FFFFFF" text="#000000">
<table width="60％" border="1" align="center">
<％
    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

[1] [2] 下一页

上网速度更快更爽、更安全下载使用Firefox火狐浏览器

网站技术录入：admin 责任编辑：admin

上一篇网站技术： 2栏分页显示（附显示的形式[1][2]），此程序可直接套用

下一篇网站技术：一个用组件动态创建Excel文件的实例

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】