sp;          Set Session(theCurrentRS) = rs
        end if

    else
        Set rs = Session(theCurrentRS)
        if rs.recordcount > 0 then
            rs.AbsolutePage    = theCurrentPageNum
        end if
    End If

    '构造导航条

    href_first    = theScript & "?mo=0&pn=1"
    href_prev    = theScript & "?mo=0&pn=" & (theCurrentPageNum-1)
    href_next    = theScript & "?mo=0&pn=" & (theCurrentPageNum+1)
    href_last    = theScript & "?mo=0&pn=" & rs.pagecount

    strnav_first= "<a href=" & href_first & ">首页</a>"
    strnav_prev    = "<a href=" & href_prev & ">前页</a>"
    strnav_next    = "<a href=" & href_next & ">后页</a>"
    strnav_last    = "<a href=" & href_last & ">末页</a>"

    if rs.pagecount > 1 then
        '在首页
        if theCurrentPageNum = 1 then
            strnav_first= "首页"
            strnav_prev = "前页"
        end if
        '在末页
        if theCurrentPageNum = rs.pagecount then
            strnav_next = "后页"
            strnav_last = "末页"
        end if
    else
        strnav_first= "首页"
        strnav_prev = "前页"
        strnav_next = "后页"
        strnav_last = "末页"
    end if

    strnav = strnav_first & " " & strnav_prev & " " & strnav_next & " " & strnav_last

  &

上一页  [1] [2] [3] [4] [5] 下一页

在google里搜索更多我写的通用分页源代码，简单到你只需要写一条 sql 语句就可以了，超级 cool！

	Web www.51ec.org

上一篇信息学院： 应几个同事百般要求,为他们写了这个体育彩票的随机数生成程序,用到cookie.

下一篇信息学院： 超酷的通用分页显示控制 （四） 统一记录显示…