asp伪继承初探_实例代码

　　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