asp 分页函数

asp 分页函数

Public   Function  SplitPageShow(ByRef rs)
    rs.PageSize  =   5   ' pagesize属性指定了每页要显示的记录条数 
    Page  =   " 1 "
    Page  =   CLng (Request( " Page " ))  ' string型转化为long型 
     If  Page  <   1   Then  Page  =   1  
     If  Page  >  rs.PageCount  Then  Page  =  rs.PageCount 
     If  Page  <>   1   Then  
       Response.Write  " <A HREF=Manage.asp?Page=1>第一页</A> "
       Response.Write  " <A HREF=Manage.asp?Page= " &  (Page - 1 )  &   " >上一页</A> "  
     End   If  
     If  Page  <>  rs.PageCount  Then  
       Response.Write  " <A HREF=Manage.asp?Page= "   &  (Page + 1 )  &   " >下一页</A> "  
       Response.Write  " <A HREF=Manage.asp?Page= " &  rs.PageCount  &   " >最后一页</A> "  
     End   If  
    Response.write " 页码： "   &  Page  &   " / "   &  rs.PageCount  &   " </font> "  
     ' 每一页的显示 
    
     ' 循环显示每条记录 
    rs.AbsolutePage  =  Page  ' 把页码赋给absolutepage属性从而知当前页的首条记录号 
     For  iPage  =   1   To  rs.PageSize
    Response.WRITE  " <TR><TD bgcolor='#FFFFFF'> "   &  rs( " ID " )  &   " </TD> "  
    Response.WRITE  " <TD bgcolor='#FFFFFF'> "   &  rs( " Title " )  &   " </TD> "  
    Response.WRITE  " <TD bgcolor='#FFFFFF'> "   &  rs( " CName " )  &   " </TD> "  
    Response.WRITE  " <TD bgcolor='#FFFFFF'><a href='Update.asp?id= " & rs( " ID " )  & " '>修改</a></TD> "  
    Response.WRITE  " <TD bgcolor='#FFFFFF'><a href='DeleteProcess.asp?id= " &  rs( " ID " )  & " '>删除</a></TD></TR> "
    rs.MoveNext 
     If  rs.EOF  Then   Exit   For  
     Next  

End Function