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
