asp数字分页函数 实际使用例子。

//调用例子。上面的函数我是封装在pagefunction.asp文件里面的   注明：在引入pagefunction.asp文件之前的也是可以封装成一个固定的文件里面。然后通过引入，调用对应的函数的。

 

//函数是代码重用的最基础的封装。练习多了，代码敲多了，很多基本的功能，都可以逐步封装成为自己的库代码

   <%
               
                  Const MaxPerPage=1
            dim totalPut  
            dim CurrentPage
            dim TotalPages
            dim j
            dim sql
            
            
            
            if Not isempty(SafeRequest("page",1)) then
              currentPage=Cint(SafeRequest("page",1))
            else
              currentPage=1
            end if
            
            i=0
            
            rs.open "select  * from acticle where categoryid=391 order by adddate desc",conn,1,1
   
           if rs.eof and rs.bof then
       
            rs.close
      
           response.write "<center>目前还没有新闻！</center>"
    
            else
              
              totalPut=rs.recordcount
              
              TotalPages=totalPut/MaxPerPage
              
              if (currentpage-1)*MaxPerPage>totalput then
               if (totalPut mod MaxPerPage)=0 then
                 currentpage= totalPut / MaxPerPage
               else
                 currentpage= totalPut / MaxPerPage + 1
               end if
                end if
               
                if currentPage=1 then
                   showContent
                   showpage totalput,MaxPerPage,"newslist.asp"
                else
                  if (currentPage-1)*MaxPerPage<totalPut then
                      rs.move  (currentPage-1)*MaxPerPage
                      dim bookmark
                      bookmark=rs.bookmark
                      showContent
                       showpage totalput,MaxPerPage,"newslist.asp"
                 else
                    currentPage=1
                      showContent
                      showpage totalput,MaxPerPage,"newslist.asp"
                end if
              end if
            end if  
              
            sub showContent
                      %>
                      <ul>
              <%
               do while not rs.eof
       
             i=i+1
        %>
                  <li><a href="news.asp?id=<% = rs("id") %>"><%=left(rs("name"),50)%></a><span><% = Year(rs("adddate")) %>.<% = Month(rs("adddate")) %>.<% = day(rs("adddate")) %></span><div class="clear"></div></li>
               
                 <% 
                  if i>=MaxPerPage then Exit Do
        
              rs.movenext
      
            loop
    
            
    
            rs.close
            %>
              </ul>
            <%
           end sub
          %>
         
           
           
        <!--#include file="pagesfunction.asp"-->