用ASP做一个分页程序

用ASP做一个分页程序
    wodeail・CPCW
    
    　　你是否为了你的站点文章过多而反复做链接上一页、下一页这些烦琐的工作发愁呢？现在有了ASP，只要你的主页支持ASP，你就可以很简单的实现对文章的管理了，排序、链接、显示这些工作都让ASP去完成吧！这么轻松的主页维护，你是不是也想试一试呢？
    
    请看以下实现ASP分页程序的代码：
    
        
    dim conn
    
    dim connstr
    
    dim totalPut
    
    dim CurrentPage
    
    dim TotalPages
    
    dim i,j
    
    dim sql
    
    dim rs
    
    on error resume next
    
    '打开数据库
    
    connstr="DBQ="+server.mappath("book.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
    
    set conn=server.createobject("ADODB.CONNECTION")
    
    conn.open connstr
    
    set rs=server.createobject("adodb.recordset")
    
    '定义每页文章显示数
    
    const MaxPerPage=18
    
    if not isempty(request("page")) then