asp的通用数据分页类(3)


    ''Value 语不用写上Order By 。如: [object].OrderBy="ID Desc,PostTime Asc"
    Public Property Let OrderBy(ByVal Value)
        OrderBy_SQL=Value
    End Property
    Public Property Get OrderBy()
        OrderBy=OrderBy_SQL
    End Property
    '/****************End******************************************

    '/****************返回当前查询结果的总页数***********************
    Public Property Get PageCount()
        PageCount=Page_Count
    End Property
    Public Property Get RecordCount()
        RecordCount=Record_Count
    End Property
    Public Property Get NextPage()
        If Cur_Page<Page_Count Then
            NextPage=Cur_Page+1
        Else
            NextPage=Page_Count
        End If
    End Property
    Public Property Get PrePage()
        If Cur_Page>1 Then
            PrePage=Cur_Page-1
        Else
            PrePage=Cur_Page
        End If
    End Property
    '/****************End******************************************

    '/****************设置一页显示的记录数***************************
    Public Property Let PageSize(ByVal Value)
        If Not IsNumeric(Value) Or Value="" Then
            Value=10
        Else
            Value=Cint(Value)
        End If
        If Value<1 Then Value=10
        Page_Size=Value
    End Property

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3048.html