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

2022-07-15 80酷酷网 80kuku.com

程序|分页|显示显示形式：
        ID         NAME
        1          JULIET
        2          SPIRIT
        3          GIRL
        4          BOY
  [1] [2] [3] [4]  页数：1/4 页  4条/页  总记录数：13条
代码：


<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:数据的总记录数