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

程序|分页|显示

显示的形式
            id              name
             1              juliet
             2              cristine
             3              boy
             4              girl
>>首页 前页 后页 尾页 页数:1/4  4记录/页   总记录数:13条
代码：
<!--page.asp-->
<!--#include file="conn.asp"-->
<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