ASP分页

[ 2007-02-06 10:04:44 | 作者: {$author:name$} ]

字体大小: 大 | 中 | 小

最近比较了一下几个常用的分页类。

不过最后发现竟然都没有rs.move方法来的快，呵呵 :)

常用的两个asp分页类

1, 经典分页类
也叫XDOWNPAGE，还叫通用分页类

2, 叶子分页类
动网用的似乎就是这个类

都很好找，直接拿名字去搜吧，一大堆

直接打开数据库，再用rs.move的方法

    Dim firstDisplayRecord,lastDisplayRecord,totalpage,totalRecords
    Dim pagesize:pagesize=10

    totalRecords=rs.recordcount
    totalpage=(totalRecords+1)\pagesize
    If (totalRecords+1) mod pagesize<>0 then
        totalpage=totalpage+1
    End If
    If page>totalpage Then
        page=totalpage
    End If
    If page=1 Then
        lastDisplayRecord=pagesize
    Else
        firstDisplayRecord=(page-1) * pagesize - 1
        rs.move(firstDisplayRecord)
    End If
    lastDisplayRecord=page * pagesize - 1
    If lastDisplayRecord>totalRecords then
        lastDisplayRecord=totalRecords
    End If
    For i=firstDisplayRecord+1 To lastDisplayRecord

        rem doSomething

    next

另外昨天遇到这个奇怪的问题，在前面我对page只有一个处理

If (chkEmpty(page) or Not IsNumeric(page) or page<1) Then page=1
chkEmpty是我自己写的一个函数,判断是不是等于null或empty或""

page>totalpage却总是True

虽然改用 CLng(page)>totalpage 或者 page+0>totalpage 可以解决，但很想知道到底哪出错了

郁闷.