其中使用到一个分页类CPaging 代码如下:Class CPaging Public RS ‘ RecordSet对象 Public Mark ‘ 指针标签 Private sSize ‘ 每页显示数 Private sTotal ‘ 总记录数 Private sPage ‘ 当前页码 Private sCount ‘ 总页码 Private Sub Class_Initialize sSize = 20 sPage = 1 sCount = 1 End Sub Private Sub Class_Terminate Closeobj RS End Sub ‘每页显示数 Property