cPage - ASP分页类

 

< %

'******************************************************************************

'类名：cPage

'功能：ASP分页

'作者：inrg

'说明：http://tb.blog.youkuaiyun.com/TrackBack.aspx?PostId=1496450

'******************************************************************************
     Class  cPage
         Private  page
         Public  pagesize
         Private  cRs                
         Private  isEof
        
         Private   Sub  class_initialize()
            pagesize  =   10          ' 初始页大小
            isEof  =   False
            page  =  Request.QueryString( " page " )
             If   Trim ( page )  =   ""   Or   Trim ( page )  =   " 0 "   Then
                page  =   1
             Else
                page  =   cInt (  Trim ( page ) )
             End   If              
         End Sub
        
         Private   Sub  class_terminate()
             set  cRs  =   nothing
             set  cCom  =   nothing
         End Sub
        
         Public   Sub  setRs( rs )
             Set  cRs  =  rs
             If  rs.Eof  Then
                isEof  =   True
                 Exit Sub
             End   If
            cRs.PageSize  =  pagesize
            cRs.AbsolutePage  =  page
         End Sub
        
         ' 设置查询字符串
         Private   Function  setUrl( querystring,  str , value )
             Dim  maxArr, minArr, i, m, strTmp, bool
            
            maxArr  =   Split ( querystring,  " & "  )
            strTmp  =   ""
            bool  =   True
            
             For  i  =   0   To   Ubound ( maxArr )
                minArr  =   Split ( maxArr( i ),  " = "  )
                 If   Trim ( minArr(  0  ) )  =   Trim (  str  )  Then
                    bool  =   False
                    minArr(  1  )  =  value
                 End   If
                 If  i  =   Ubound ( maxArr )  Then  
                    strTmp  =  strTmp  &   Trim ( minArr(  0  ) )  &   " = "   &   Trim ( minArr(  1  ) )
                 Else
                    strTmp  =  strTmp  &   Trim ( minArr(  0  ) )  &   " = "   &   Trim ( minArr(  1  ) )  &   " & "
                 End   If
             Next
            
             If  bool  =   True   Then
                 If   trim ( querystring )  =   ""   Then
                    strTmp  =   Trim (  str  )  &   " = "   &   Trim ( value )
                 Else
                    strTmp  =   Trim ( querystring )  &   " & "   &   Trim (  str  )  &   " = "   &   Trim ( value )
                 End   If
             End   If
            
            setUrl  =  strTmp
         End Function
        
         ' 获得跳转页面网址
         Public   Function  getUrl( cPage )
             Dim  servername, scriptname, serverport, querystring, url
            servername  =  Request.ServerVariables( " SERVER_NAME " )
            scriptname  =  Request.ServerVariables( " SCRIPT_NAME " )
            serverport  =  Request.ServerVariables( " SERVER_PORT " )
            querystring  =  Request.ServerVariables( " Query_String " )

            querystring  =  setUrl(querystring, " page " , cPage)
            
             If   Trim ( serverport )  =   " 80 "   Then
                url  =   " http:// "   &   Trim (servername)  &   Trim (scriptname)  &   " ? "   &   Trim (querystring)
             Else
                url  =   " http:// "   &   Trim (servername)  &   " : "   &   Trim (serverport)  &   Trim (scriptname)  &   " ? "   &   Trim (querystring)
             End   If
            
            getUrl  =  url
         End Function
        
         ' 获得分页代码(底部 首页)
         Public   Function  getFirstPageStr( firststr )
             If  isEof  Then
                getFirstPageStr  =   ""
                 Exit Function
             End   If
             If  page  <=   1   Then
                getFirstPageStr  =   " <a> " &  firststr  & " </a> "
             Else     
                getFirstPageStr  =   " <a href= "   &  getUrl(  1  )  &   " > " &  firststr  & " </a> "
             End   If
         End Function
        
         ' 获得分页代码(底部 尾页)
         Public   Function  getEndPageStr( Endstr )
             If  isEof  Then
                getEndPageStr  =   ""
                 Exit Function
             End   If
             If  page  >=  cRs.PageCount  Then
                getEndPageStr  =   " <a> " &  Endstr  & " </a> "     
             Else
                getEndPageStr  =   " <a href= "   &  getUrl( cRs.PageCount )  &   " > " &  Endstr  & " </a> "
             End   If
            
         End Function
        
         ' 获得分页代码(底部 上一页)
         Public   Function  getBeforePageStr( beforestr )
             If  isEof  Then
                getBeforePageStr  =   ""
                 Exit Function
             End   If
             If  page  <=   1   Then
                getBeforePageStr  =   " <a> " &  beforestr  & " </a> "
             Else
                getBeforePageStr  =   " <a href= "   &  getUrl( page  -   1  )  &   " > " &  beforestr  & " </a> "
             End   If
         End Function
        
         ' 获得分页代码(底部 下一页)
         Public   Function  getNextPageStr( nextstr )
             If  isEof  Then
                getNextPageStr  =   ""
                 Exit Function
             End   If
             If  page  >=  cRs.PageCount  Then
                getNextPageStr  =   " <a> " &  nextstr  & " </a> "
             Else
                getNextPageStr  =   " <a href= "   &  getUrl( page  +   1  )  &   " > " &  nextstr  & " </a> "
             End   If
         End Function
        
         ' 获得分页代码(底部 下拉)
         Public   Function  getGoPageStr( gostr )
             If  isEof  Then
                getGoPageStr  =   ""
                 Exit Function
             End   If
             Dim  i,  str
            
             str   =  gostr  &   " <select name='page' onChange=javascript:document.forms[0].submit()> "
             For  i  =   1   To  cRs.PageCount 
                 If  i  =  page  Then
                     str   =   str   &   " <option value= " &  i  & "  selected> "   &  i  &   " </option> "
                 Else
                     str   =   str   &   " <option value= " &  i  & "  > "   &  i  &   " </option> "
                 End   If
             Next  
             str   =   str   &   " </select> "
            
            getGoPageStr  =   str
         End Function
     End Class
% >

使用实例：

 

< ! --  #include file = " public.asp "   -->
< %
     set  cn  =  server.CreateObject( " ADODB.Connection " )
     set  rs  =  server.CreateObject( " ADODB.Recordset " )
    
    cn.ConnectionString  =   " Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs;Data Source=. "
    cn.Open 
    rs.Open  " select * from authors " ,cn, 1 , 3
    
     set  objTest  =   new  cPage
     ' objTest.pagesize = 5    '设置一页显示的条数，默认10条
    objTest.setRs( rs )    
        
    i  =  objTest.pagesize
     while   not  rs.EOF  and  i  >   0
        Response.Write rs( 0 ) & " <br> "
        i  =  i  -   1
        rs.MoveNext 
    wend    
% >
< %
    Response.Write objTest.getFirstPageStr( " |<< " ) & " <br> "      ' 首页
    Response.Write objTest.getBeforePageStr( " << " ) & " <br> "      ' 上一页
    Response.Write objTest.getNextPageStr( " >> " ) & " <br> "          ' 下一页
    Response.Write objTest.getEndPageStr( " >>| " ) & " <br> "          ' 最后一页
% >
< form >
< %
    Response.Write objTest.getGoPageStr( " 跳至： " )             ' 跳转，必须放在Form内
% >
</ form >

 

有什么问题还请大家发表评论！