A class of asp page

A class of asp pagination
Tested on 50,000 records, the speed is much faster than the one in Ado.

<%

'************************************************************************************
'Specific usage
Dim strDbPath
Dim connstr
Dim mp
Set mp = New MyPage
strDbPath = "fenye/"
connstr  = "Provider=.4.0;Data Source="
connstr  = connstr & (strDbPath)
Set conn  = ("")
 connstr
set rs = ("select * from table1",conn,29)
while not 
     rs("aaaa")&"<br>"
    
wend
()
'************************************************************************************
Class MyPage
    private MyPage_Conn,MyPage_StrSql,MyPage_TotalStrSql,MyPage_RS,MyPage_TotalRS
    private MyPage_PageSize
    private MyPage_PageAbsolute,MyPage_PageTotal,MyPage_RecordTotal
    private MyPage_Url
    public property let conn(strConn)
    set MyPage_Conn = strConn
    end property

    public property let PageSize(intPageSize)
        MyPage_PageSize = Cint(intPageSize)
    end property

    public function PageExecute(strSql)
        MyPage_PageAbsolute = MyPage_PageAbsoluteRequest()
        MyPage_TotalStrSql = FormatMyPage_TotalStrSql(strSql) 
        set MyPage_TotalRS = MyPage_Conn.execute(MyPage_TotalStrSql)
        MyPage_RecordTotal = MyPage_TotalRS("total")
        MyPage_PageTotal = Cint(MyPage_RecordTotal/MyPage_PageSize)
        MyPage_StrSql = FormatMyPage_StrSql(strSql)
        set MyPage_RS = MyPage_Conn.execute(MyPage_StrSql)
        dim i
        i = 0 
        while not MyPage_RS.eof and  i<(MyPage_PageAbsolute-1)*MyPage_PageSize
            i = i + 1
            MyPage_RS.MoveNext
        wend
        set PageExecute = MyPage_RS 
    end function

    public function Execute(strSql,strConn,intPageSize)
        conn = strConn
        PageSize = intPageSize
        set Execute = PageExecute(strSql)
    end function

    public function pageDispaly()
        MyPage_Url = ReadMyPage_Url
        firstPageTag = "<font face=webdings>9</font>"  '|<<
        LastPageTag = "<font face=webdings>:</font>"  '>>|
        previewPageTag = "<font face=webdings>7</font>"  '<<
        nextPageTag = "<font face=webdings>8</font>"  '>>
        dim strAnd
        if instr(MyPage_Url,"?")=0 then
            strAnd = "?"
        else
            strAnd = "&"
        end if
         "<table width=100%  border=0 cellspacing=0 cellpadding=0>"
         "<tr>"
         "<td align=left>"
"Page:"&MyPage_PageAbsolute&"/"&MyPage_PageTotal&"Page&nbsp"
"Number of Topics:"&MyPage_RecordTotal
         "</td>"
         "<td align=right>"
"Pagination:"
        if MyPage_PageAbsolute>10 then
              "<a href='"&MyPage_Url&strAnd&"MyPage_PageNo=1'>"&firstPageTag&"</a>"
              "<a href='"&MyPage_Url&strAnd&"MyPage_PageNo="&(MyPage_PageAbsolute-10)&"'>"&previewPageTag&"</a>"
        else
              firstPageTag
              previewPageTag
        end if
         "&nbsp"
        dim CurrentStartPage,i
        i = 1
        CurrentStartPage=(Cint(MyPage_PageAbsolute)\10)*10+1
        if Cint(MyPage_PageAbsolute) mod 10=0 then
            CurrentStartPage = CurrentStartPage - 10
        end if
        while i<11 and CurrentStartPage<MyPage_PageTotal+1
            if CurrentStartPage < 10 then
                FormatCurrentStartPage = "0" & CurrentStartPage
            else
                FormatCurrentStartPage = CurrentStartPage
            end if
              "<a href='"&MyPage_Url&strAnd&"MyPage_PageNo="&CurrentStartPage&"'>"&FormatCurrentStartPage&"</a>&nbsp"
            i = i + 1
            CurrentStartPage = CurrentStartPage + 1
        wend
        if MyPage_PageAbsolute<(MyPage_PageTotal-10) then
              "<a href='"&MyPage_Url&strAnd&"MyPage_PageNo="&(MyPage_PageAbsolute+10)&"'>"&nextPageTag&"</a>"
              "<a href='"&MyPage_Url&strAnd&"MyPage_PageNo="&MyPage_PageTotal&"'>"&LastPageTag&"</a>"
        else
              nextPageTag
              LastPageTag
        end if
          ""
         "</td>"
         "</tr>" 
         "</table>"
    end function

    public function GetPageNo()
        GetPageNo = cint(MyPage_PageAbsolute)
    end function

    public function GetPageCount()
        GetPageCount = cint(MyPage_PageTotal)
    end function

    public function GetPageNoName()
        GetPageNoName = "MyPage_PageNo"
    end function

    public function GetPageSize()
        GetPageSize = MyPage_PageSize
    end function

    public function GetRecordTotal()
        GetRecordTotal = MyPage_RecordTotal
    end function

    

    private function FormatMyPage_TotalStrSql(strSql)
        FormatMyPage_TotalStrSql = "select count(*) as total "
        FormatMyPage_TotalStrSql = FormatMyPage_TotalStrSql & Mid(strSql,instr(strSql,"from"))
        FormatMyPage_TotalStrSql = Mid(FormatMyPage_TotalStrSql,1,instr(FormatMyPage_TotalStrSql&"order by","order by")-1)
    end function

    private function FormatMyPage_StrSql(strSql)
        FormatMyPage_StrSql = replace(strSql,"select","select top "&(MyPage_PageAbsolute*Cint(MyPage_PageSize)))
    end function

    private function MyPage_PageAbsoluteRequest()
        if request("MyPage_PageNo")="" then 
            MyPage_PageAbsoluteRequest = 1
        else
            if IsNumeric(request("MyPage_PageNo")) then
                MyPage_PageAbsoluteRequest = request("MyPage_PageNo")
            else
                MyPage_PageAbsoluteRequest = 1
            end if
        end if
    end function

    private function ReadMyPage_Url()
        ReadMyPage_Url = ("URL")
        if <>"" then
            ReadMyPage_Url = ReadMyPage_Url & "?" &  
        end if
        set re = new RegExp
         = "[&|?]MyPage_PageNo=\d+?"
         = true
         = true
         = true
        Set Matches = (ReadMyPage_Url) 
        For Each Match in Matches  
            tmpMatch = 
            ReadMyPage_Url = replace(ReadMyPage_Url,tmpMatch,"")
        next
    end function
end Class

%>