查询翻页优化第1/2页

    '//-------------------- 事件、方法 --------------------//'
    '//类初始化事件
    Private Sub Class_Initialize()
        ReDim aCondition(-1)
        iPage        = 1
        iRecCount        = Null
        iTotalRecCount    = Null
        iPageCount        = Null
        bShowError        = True
        iPageSize        = 10
        sFields        = "*"
        sPkey        = "ID"
        sCondition        = ""
        sOrderBy        = ""
        sSqlString        = ""
        sProjectName    = "COCOON 类系列 数据库翻页优化"
        sVersion        = "1.02"
    End Sub

    '//类结束事件
    Private Sub Class_Terminate()
        Set oConn = Nothing
    End Sub

    '//错误处理
    Public Sub doError(s)
            Dim sTmp
            sTmp = CLng(Rnd() * 100)
            Response.write( "<DIV STYLE='WIDTH:760;font-size:9pt;cursor:hand'>" )
            Response.write( "<LABEL ONCLICK='ERRORDIV"&sTmp&".style.display=(ERRORDIV"&sTmp&".style.display==""""?""none"":"""")'>" )
            Response.write( "<SPAN STYLE='BACKGROUND-COLOR:#CCCC00;COLOR:WHITE;'>〖 CC_db_Pager 提示信息 〗</SPAN><BR></LABEL>" )
            Response.write( "<DIV ID='ERRORDIV"&sTmp&"' STYLE='DISPLAY:NONE;WIDTH:100%;" )
            Response.write( "BORDER: 1PX SOLID #CCCC00;PADDING:5;overflow:hidden;text-overflow:ellipsis;'><NOBR>" )
            Response.write( "<SPAN STYLE='COLOR:RED'>Description</SPAN>: " & s & "<BR>" )
            Response.write( "<SPAN STYLE='COLOR:RED'>Provider</SPAN>: " & sProjectName )
            Response.write( "  <SPAN STYLE='COLOR:RED'>Version</SPAN>: " & sVersion & "<BR>" )
            Response.write( "</NOBR></DIV></DIV><BR>" )
    End Sub