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
       

阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/haibo0668/article/details/51565838
个人分类: ASP技术
想对作者说点什么? 我来说一句

asp分页显示源代码

分页显示

tanshi tanshi

2010-05-23 17:11:00

阅读数:13193

asp仿百度数字分页代码

2010年02月01日 2KB 下载

没有更多推荐了,返回首页

不良信息举报

ASP分页代码

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭