用ASP做一個分頁程式

用ASP做一個分頁程式
    wodeail·CPCW
    
    　　你是否為了你的網站文章過多而反覆做連結上一頁、下一頁這些煩瑣的工作發愁呢？現在有了ASP，只要你的首頁支援ASP，你就可以很簡單的實現對文章的管理了，排序、連結、顯示這些工作都讓ASP去完成吧！這麼輕鬆的首頁維護，你是不是也想試一試呢？
    
    請看以下實現ASP分頁程式的代碼：
    
    <anguage="vbscript"
    
    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