asp分页程序

原创 2007年09月30日 08:59:00

<%

sql="select * from table where ... order by zcrq desc"
  rs.open sql,conn,1
  if not rs.eof Then
   rs.PageSize = 30      '每页显示的记录数
   pre = true         '往前翻页
      last = true        '往后翻页
      page = trim(Request.QueryString("page")) '获取页面返回的页码
     
      if  len(page) = 0 then   '当前页
                  intpage = 1
                  pre = false                   '前翻禁止
      else
          if cint(page) =< 1 then
               intpage = 1
               pre = false                      '前翻禁止
          else
              if cint(page) >= rs.PageCount then'尾页
                  intpage = rs.PageCount
                  last = false                  '后翻禁止
              else
                   intpage = cint(page)
             end if
         end if
      end if
    if not rs.eof then
         rs.AbsolutePage = intpage              '当前页赋值
    end if
i=0
Do While Not Rs.EOF and i<rs.PageSize            '循环显示记录
i=i+1 

%>

<table>..........循环显示的记录内容

</table>

  <%
   rs.movenext
   loop
 %>

---------------------------------分页表格----------------------------------------------------------   

  <%if rs.pagecount > 0 then '分页的表现形式(总页数)%> 
     <td width="13%" align="left">当前页<%=intpage%>/<%=rs.PageCount%></td>
     <%else%>
    <td width="41%" align="left">当前页0/0</td><%end if%>
    <td width="46%" align="right"> <a href="yizhuce.asp?page=1">首页</a>|
     <%if pre then%>
     <a href="yizhuce.asp?page=<%=intpage -1%>">上页</a>| <%end if%>
     <%if last then%>
      <a href="yizhuce.asp?page=<%=intpage +1%>">下页</a> |<%end if%>
      <a href="yizhuce.asp?page=<%=rs.PageCount%>">尾页</a>|转到第
      <select name="sel_page" onchange="javascript:location=this.options[this.selectedIndex].value;">
      <%
       for i = 1 to rs.PageCount
       if i = intpage then%>
       <option value="yizhuce.asp?page=<%=i%>" selected><%=i%></option>
     <%else%>
       <option value="yizhuce.asp?page=<%=i%>"><%=i%></option>
        <%
          end if
        next
        %>
     </select>页</font>

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

相关文章推荐

asp分页程序

  • 2007-04-17 22:36
  • 59KB
  • 下载

ASP.NET存储过程分页

ASP.NET存储过程分页 存储过程: createPROCEDURE pagelist @tablenamenvarchar(50), @fieldnamenvarchar(50)="*...

ASP分页程序!很不错的

  • 2012-05-22 09:31
  • 640KB
  • 下载

完善的ASP分页调用程序

ASP.NET下数据展示与分页操作总结

ASP.NET作为.NET下开发网站的首选,与数据库打交道是必然的。特别在相关的数据展示与操作这一块,其性能和用户体验对一个网站尤其重要。一个有着对用户操作进行快速响应的网站无疑在当前已经成为一种最基...
  • gxwzmm
  • gxwzmm
  • 2014-01-02 15:22
  • 1910

Asp.Net分页存储过程

Asp.Net分页存储过程 SQL分页语句 一、比较万能的分页: sql代码: 1 2 3 select top 每页显示的记...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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