ASP分页代码

原创 2016年06月02日 12:51:41


  <%'=============分页定义开始,可放在数据库打开前或后
                 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
           end if
'=============分页类代码结束%>
  <%'=============循环体开始
   sub showContent
   dim i
   i=0  
   do while not rs.eof%>
  <div id="probg">
    <div id="probgleft">
      <div id="prophoto"><img src="<%=rs("ImgPrev")%>" alt="<%=rs("ProdName")%>" width="100" height="80" border="0" /></div>
    </div>
    <div id="probgright"><%= rs("ProdName") %></div>
  </div>
  <!---此处为内容循环输出---->
  <%i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close   '释放资源
set rs=nothing
 End Sub   
'=============循环体结束%>
<%'=============放置分页显示开始 
  Function showpage(totalnumber,maxperpage,filename)  
      Dim n      
    If totalnumber Mod maxperpage=0 Then  
     n= totalnumber \ maxperpage  
    Else
     n= totalnumber \ maxperpage+1  
    End If %>
 
<form method=Post action=<%=filename%>>
    <p align="center"> 
<%If CurrentPage<2 Then  %>
    首 页 上一页
    <% Else  %>
    <a href=<% = filename %>?page=1>首 页</a>
    <a href=<% = filename %>?page=<% = CurrentPage-1 %>>上一页</a> 
    <% End If 
    If n-currentpage<1 Then  %>
    下一页 尾 页
    <%  Else  %>
    <a href=<% = filename %>?page=<% = (CurrentPage+1) %>>下一页</a> 
    <a href=<% = filename %>?page=<% = n %>>尾 页</a>&nbsp;&nbsp;
    <% End If  %>
 页次:<b><font color=red><% = CurrentPage %></font></b>/<b><% = n %></b>页 <b><%=maxperpage%></b>个记录/页  共<b><%=totalnumber %></b>个记录    
转到:<select name="cndok" onchange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to n
if i = CurrentPage then%>
<option value="<% = filename %>?page=<%=i%>" selected>第<%=i%>页</option>  
<%else%>
<option value="<% = filename %>?page=<%=i%>">第<%=i%>页</option>  
<%
end if
next
%>
</select></font>
</form>
<%End Function 
'=============放置分页显示结束%>

 

 

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

ASP.NET实用分页代码

/// /// 获得页数 /// /// 总共的数据条数 /// 每页的数据条数 /// 返回页数 ...

asp.net GridView无代码分页排序等 72般绝技

把gridview的功能,整理了下,并给出了实例代码,学习gridview的朋友必看的 - GridView无代码分页排序 GridView选中,编辑,取消,删除 GridView正反双向排序 Gri...

ASP百度分页常用代码

'===================================================================================== 'ASP百度风格分页 ...

asp快速分页代码

option explicit '强制定义变量 dim idcount'记录总数 dim pages'每页条数 dim pagec'总页数 dim page'页码 dim pagenc '每...

asp.net Linq分页实现代码

LInq分页testDataContext dc = new testDataContext(); public string GetPageNum(GridView GridViewName, i...

asp.net DataList控件分页代码

简单ASP分页代码

第一步、建立数据库连接(以Access为例)  建立数据库连接对象 conn.open("DRIVER=Driver do Microsoft Access(*.mdb);UID=admin;pw...

ASP.NET静态页面生成代码及分页

ASP.NET静态页面生成代码 1、静态模板页面 template.html,主要是定义了一些特殊字符,用来被替换。1.               2....

黑马程序员之 ASP.NET学习笔记:jquery+ajax无刷新分页代码

JS代码:          var totalPage = 1; //总页数          var totalNode; //...

一个比较好的Asp.net的分页代码,检索速度很快!

一个非常快的基于SQL Server和Asp.net的的分页程序,使用的时候,请根据自己的需要修改必要的代码后再使用,这里我就不写怎么改了,相信用.net的人,应该是没问题的,下面的代码都应该看得懂。...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)