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 Let Size(Value) sSize = Value End Property Property Get Size Size = sSize End Property '当前页码 Property Let Page(Value) If Not IsNumeric(Value) Then sPage = 1 Else sPage = Value End If End Property Property Get Page If (sPage - 1) * sSize > sTotal Then If sTotal Mod sSize = 0 Then Page = Total \ sSize Else Page = Total \ sSize +1 End If ElseIf sPage 1 Then Page = 1 Else Page = sPage End If End Property '总页码 Property Get Count If sTotal Mod sSize = 0 Then Count = sTotal \ sSize Else Count = sTotal \ sSize + 1 End If End Property '总记录数 Property Get Total() Total = sTotal End Property Public Function Open(Byval SQLString) Try DB.Openquery(RS,SQLString) sTotal = RS.RecordCount End Function End Class
以下是调用页
复制代码 代码如下:
Dim Products Set Products = New CPaging With Products .Size = 15 '每页显示数 .Page = PageNum '当前页 End With Try Products.Open(ListSQL) If Products.RS.Bof and Products.RS.Eof then Response.Write("TR>TD colspan=8>查找无记录/TD>/TR>") Else Dim i i = 0 Products.RS.Move (Products.Page - 1) * Products.Size Do While Not Products.RS.Eof Response.Write("TR onmouseup=MouseUp(this); onmousedown=MouseDown(this); onmouseover=MouseOver(this); onclick=Click(this); onmouseout=MouseOut(this);>"vbCrLf) Response.Write("TD align=middle nowrap>" Products.RS("ProductsClassName") "/TD>"vbCrLf) Response.Write("TD align=left nowrap>" Products.RS("ProductsName") " /TD>"vbCrLf) Response.Write("/TR>"vbCrLf) i=i+1 If i >= Products.Size Then Exit Do Products.RS.MoveNext Loop End If
