ASP分页代码

 
<%'=============分页定义开始，可放在数据库打开前或后

                
dim action

   
action=request.QueryString("action")   

    Const
MaxPerPage=6  
'定义每页显示记录数，可根据实际自定义

      
dim
totalPut   

      
dim CurrentPage

      
dim TotalPages

      
dim sql

       
if Not isempty(request("page")) then

         
currentPage=Cint(request("page"))

      
else

         
currentPage=1

      
end
if        

'=============分页定义结束%>

  <%
'=============打开数据库数据表，要以这种方式打开   

set
rs=server.CreateObject("adodb.recordset")  

rs.open "select * from buyok_produc  order
by  ProdNum desc",conn,1,1

%>

 
<%'=============分页类代码开始，需放在数据库数据表打开后

   

    if
err.number<>0 then

   
response.write "<p
align='center'>数据库中暂时无数据</p>"

    end
if    

     
if rs.eof And rs.bof then

          
Response.Write "<p
align='center'>对不起，没有符合条件记录！</p>"

      
else

totalPut=rs.recordcount

         
if currentpage<1 then

             
currentpage=1

         
end if

         
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,""&request.ServerVariables("script_name")&""  

          
else

             
if (currentPage-1)*MaxPerPage<totalPut then

               
rs.move  (currentPage-1)*MaxPerPage

               

               
showContent

                
showpage
totalput,MaxPerPage,""&request.ServerVariables("script_name")&""  

           
else

            
currentPage=1

               
showContent

                

               
showpage
totalput,MaxPerPage,""&request.ServerVariables("script_name")&""  

                

          
end if

       
end if