查询翻页优化第1/2页(3)

            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

    '//产生分页的SQL语句
    Public Function getSql()
        Dim iStart, iEnd
        Call makeCondition()
        iStart = ( iPage - 1 ) * iPageSize
        iEnd = iStart + iPageSize
        getSql  = " SELECT DISTINCT " & sFields & " FROM ["&sTableName&"] " _
                & " WHERE ["&sPKey&"] NOT IN ( " _
                & "   SELECT TOP "&iStart&" ["&sPKey&"] FROM ["&sTableName&"] " & sCondition & " " & sOrderBy & " " _
                & " )" _
                & " AND ["&sPKey&"] IN ( " _
                & "   SELECT TOP "&iEnd&" ["&sPKey&"] FROM ["&sTableName&"] " & sCondition & " " & sOrderBy & " " _