asp伪继承初探_实例代码

其中使用到一个分页类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 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

当看到第8行的时候,似乎窥到了.net的影子－－命名空间？