查询翻页优化第1/2页

    '//计算总记录数（不带条件）
    Private Sub CaculateTotalRecCount()
        On Error Resume Next
        Dim oRs
        Set oRs = oConn.Execute( "SELECT COUNT(["&sPKey&"]) FROM [" & sTableName & "]" )
        If Err Then
            doError Err.Description
            Response.End()
        End If
        iTotalRecCount = oRs.Fields.Item(0).Value
        Set oRs = Nothing
    End Sub

    '//计算页数
    Private Sub CaculatePageCount()
        If isNull(iRecCount) Then CaculateRecCount()
        If iRecCount = 0 Then iPageCount = 0 : Exit Sub
        iPageCount = Abs( Int( 0 - (iRecCount / iPageSize) ) )
    End Sub

    '//增加条件
    Public Sub AddCondition(s)
        If Len(s)<0 Then Exit Sub
        ReDim Preserve aCondition(UBound(aCondition)+1)
        aCondition(UBound(aCondition)) = s
    End Sub

    '//版本信息
    Public Function Information()
        doError "Coding by <A HREF='MAILTO:sunrise_chen@msn.com'>Sunrise_Chen</A> @ <A HREF='http://www.ccopus.com'>http://www.ccopus.com</A> ."
    End Function


    '//-------------------- 输入属性 --------------------//'
    '//定义连接对象
    Public Property Set ActiveConnection(o)
        Set oConn = o
    End Property

    '//定义查询表名
    Public Property Let TableName(s)
        sTableName = s
    End Property