<!--#INCLUDE FILE="../function/db.asp" -->

<!--#INCLUDE FILE="../function/control.asp" -->

<%

  dim master_rs

  dim staff_id

  dim sql

  dbf_connection()

  staff_id = cf_check_login_staff_id

  if Request.QueryString("hd_has_search") = "1" then

  staff_id = "Has Search"

  end if

  Set conn = Server.CreateObject("ADODB.Connection")

  conn.Properties("Connect Timeout") = 300

  conn.Open gots

  Set master_rs = Server.CreateObject("ADODB.Recordset")

  sql = "select * from network_frozen_master order by create_date desc"

  master_rs.Open sql, conn, 1

 %>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<title></title>

<style type="text/css">

  body{ width:960px;}

  table tr{ background-color:#FFFFFF; text-align:center;}

</style>

<script type="text/javascript">

</script>

</head>

<body>

    <form action="network_frozen_index.asp">

    <table width="100%">

    <tr><td><h2>Network Frozen</h2></td></tr>

    <tr><td><hr style="width:85%; text-align:left;" /></td></tr>

    </table>

        <fieldset>

        <legend>List All Case</legend>

           <table style="width:80%"><tr><td>

            <input type="button" value="Add New" style="float:right; width:120px;" onclick="javascript:window.location.href='./network_frozen_detail.asp?type=new'" /></td></tr><tr><td>

            <table style="width:100%;margin-left:5px;background-color:#2C6193;" border="0" cellspacing="1" cellpadding="0">

            <tr style=" background-color:#D0D0D0; height:25px;"><th>Case No.</th><th>Create Staff</th><th>Create Date</th><th>Action</th></tr>

            <%

            dim page

            dim b_color

            page = 1

            master_rs.PageSize = 10

            if not IsEmpty(Request("Page")) then

              page = CInt(Request("Page"))

              if page > master_rs.PageCount then

                master_rs.AbsolutePage = master_rs.PageCount

              elseif page <= 0 then

                page = 1

              else

                master_rs.AbsolutePage = page

              end if

            end if

            if master_rs.bof and master_rs.eof then

               %>

               <tr><td colspan="4">No Data!</td></tr>

               <%

            end if

            for i=1 to master_rs.PageSize

              if i mod 2 = 0 then

                b_color = "style='background-color:#D0D0D0'"

              else

                b_color = ""

              end if

              if master_rs.eof then

                exit for

              end if

            %>

             <tr <%=b_color %> >

             <td><%=master_rs.Fields("nf_master_id") %></td>

             <td><%=master_rs.Fields("create_by") %></td>

             <td><%=master_rs.Fields("create_date") %></td>

             <td><a href='network_frozen_detail.asp?type=view&id=<%=master_rs.Fields("nf_master_id") %>'>View</a></td>

             </tr>

          <%

            master_rs.MoveNext

           next

           %>

            </table>

           </td></tr>

           <tr><td>

                <p align="center">

                <%if request("Page")>1 then%>

                <a href="network_frozen_index.asp?Page=<% = 1%>">首页</a>

                <a href="network_frozen_index.asp?Page=<% =page -1 %>">上一页</a>

                <%end if %>  

                <%

                if page > master_rs.pagecount then page = master_rs.pagecount

                %>

                <%if page<>master_rs.pagecount  then %>

                <a href="network_frozen_index.asp?Page=<% = page + 1%>">下一页</a>

                <a href="network_frozen_index.asp?Page=<% = master_rs.PageCount%>">尾页</a>

                <% end if %>

                <br />

                <label>Current Page:<%=page %></label>

                <label>Total Page:<%=master_rs.PageCount %></label>

                </td></tr>

           </table>

        </fieldset>

       <input type="hidden" name="hd_staff_id" value="<%=staff_id %>" />

       <input type="hidden" name="hd_has_search" value="1" />

    </form>

</body>

</html>

工作中利用ASP的RecordSet实现分页效果

ASP利用Recordset实现分页的更多相关文章

  1. 学习ASP.NET MVC(十一)——分页

    在这一篇文章中,我们将学习如何在MVC页面中实现分页的方法.分页功能是一个非常实用,常用的功能,当数据量过多的时候,必然要使用分页.在今天这篇文章中,我们学习如果在MVC页面中使用PagedList. ...

  2. ASP.NET MVC 简单分页代码

    using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.We ...

  3. ASP.NET中刷新分页

    1,第一次全部把数据加载到内存中,然后再做分页,性能差,不推荐. 2,GridView自带分页 3,AspNetPager分页控件  这个是第三分控件需要下载,很好用 4,自己写分页 前三种就不介绍如 ...

  4. Asp 解析 XML并分页显示

    Asp 解析 XML并分页显示 Asp 解析 XML并分页显示,演示样例源代码例如以下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Tr ...

  5. asp.net MVC通用分页组件 使用方便 通用性强

    asp.net MVC通用分页组件 使用方便 通用性强   该分页控件的显示逻辑: 1 当前页面反色突出显示,链接不可点击 2 第一页时首页链接不可点击 3 最后一页时尾页链接不可点击 4 当前页面左 ...

  6. Asp.net MVC 简单分页 自做简单分页

    Asp.net MVC 简单分页:   public static string Pager(int page,int pageSize,int total)         {           ...

  7. ASP的高效率的分页算法.net,php同样可以参考

    一般习惯使用的有两种分页算法,一是传统的ADO分页,二是SELECT TOP分页算法.对于小型数据表,比如一两万的数据量的表,我倾向使用ADO算法,对于大型的数据表,则必须采用后者的算法了. 先来说说 ...

  8. ASP.NET MVC5 PagedList分页示例

    ASP.NET MVC是目前ASP.NET开发当中轻量级的Web开发解决方案,在ASP.NET MVC概述这篇译文当中,已经详细的介绍了ASP.NET MVC与Web Forms的区别以及各自的适用场 ...

  9. asp.net webform 自定义分页控件

    做web开发一直用到分页控件,自己也动手实现了个,使用用户自定义控件. 翻页后数据加载使用委托,将具体实现放在在使用分页控件的页面进行注册. 有图有真相,给个直观的认识: 自定义分页控件前台代码: & ...

随机推荐

  1. openssl evp 对称加密(AES_ecb,ccb)

    openssl evp 对称加密(AES_ecb,ccb) evp.h 封装了openssl常用密码学工具,以下主要说对称加密的接口 1. 如下使用 aes_256_ecb 模式的加密解密测试代码 u ...

  2. c语言实现的协程

    这几天突然对协程感兴趣,于是自己实现了一个,代码放在github上:https://github.com/adinosaur/Coro 协程是一种用户空间的非抢占式线程,主要用来解决等待大量的IO操作 ...

  3. Codility Tree Height

    public class HeightOfTreeSolution { static int height=-1; public int solution(Tree T) { // write you ...

  4. HTML 格式化等处理方法

    1.处理特殊字符串,清除空格,换行等 function DeleteHtml($str) { $str = trim ( $str ); // 清除字符串两边的空格 $str = preg_repla ...

  5. Python经典资料汇总

    [专题推荐]Python系列英文原版电子书 http://down.51cto.com/zt/104 python简明教程(CHM) http://down.51cto.com/data/49213 ...

  6. 【转】js插件zClip实现复制到剪贴板功能

    相信这个功能大家平时上网经常能碰到,以前也没怎么留意怎么实现的,直到项目中需要. 网上一搜一大堆,单纯使用js方法也不是没有,但是由于各浏览器的安全机制不同,不是跨浏览器的.去看了几个常用的网站,都是 ...

  7. 【思路】-OctService服务类

    OctService服务类 从以下几个方面来说吧,这次说的会有点长啊 设计: 思路: 作用: 目的: 问题: 为什么要设计这个? 它解决了什么问题? 是什么? 为什么? 怎么样? OctService ...

  8. Java 设计模式之代理模式

    1.  定义:为其它对象提供一种代理以控制对这个对象的访问.在某些情况下,一个对象不适合或者不能直接引用另一个对象,而代理对象可以在客户端和目标对象之间起到中介的作用. 2.  类图:代理对象和被代理 ...

  9. Android中的几种解析XML文件的类

    Ø DOM解析 优点: 1.XML树在内存中完整存储,因此可以直接修改其数据和结构. 2.可以通过该解析器随时访问XML树中的任何一个节点. 3.DOM解析器的API在使用上也相对比较简单. 缺点:如 ...

  10. Windows7 安装vs2015 之后 调试Web项目IIS启动不了 aspnetcore.dll未能加载

    安装windows企业版,整整折腾了两天了,一个本身家里网络环境不好,时不时掉线,终于披荆斩棘,克服了所有困难,结果VS2015 EnterPrise 版本在调试Web环境的时候,始终在任务栏里找不到 ...