<!--#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 简单分页代码

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

  2. ASP.NET中刷新分页

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

  3. Asp 解析 XML并分页显示

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

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

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

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

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

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

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

  7. ASP.NET MVC5 PagedList分页示例

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

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

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

  9. 利用mybatis的分页插件实现商品列表的显示

    分析思路: 当我们点击查询商品的时候,会出现商品的列表,并按上下页可以实现分页的查询的功能. 首先首先我们先找到商品查询商品的按钮在jsp的那个页面,即首页index.jsp 这里有个url即显示商品 ...

随机推荐

  1. aop测试jdk代理机制

    //测试jdk代理机制 @Test public void testProxy(){ final UsbDisk usbDisk = new UsbDisk(); //类加载器,接口,匿名内部类 // ...

  2. 使用Memcached Session Manager扩展Session管理

    >>Tomcat的session管理 在请求过程中首先要解析请求中的sessionId信息,然后将sessionId存储到request的参数列表中. 然后再从request获取sessi ...

  3. Android 获取全部应用

      package com.lvshandian.menshen.download;import android.content.Context;import android.content.Inte ...

  4. A Tour of Go Interfaces

    An interface type is defined by a set of methods. A value of interface type can hold any value that ...

  5. &lt;一&gt;初探js特效魅力之全选不选反选04

    初探js特效魅力04 我们在进入到公司里面工作的时候,做一个同一个项目,经常是大家分工合作,当我们写css时,一般不写在行间,因为这样会被误操作,也就是被乱删了都不知道,这样的后果是很难检查的 ,因为 ...

  6. mono环境变量

    mono环境变量 2013-05-11 01:14:33|  分类: mono|举报|字号 订阅     下载LOFTER我的照片书  |     Name mono - Mono's ECMA-CL ...

  7. git解决冲突

    解决冲突 人生不如意之事十之八九,合并分支往往也不是一帆风顺的. 准备新的feature1分支,继续我们的新分支开发: $ git checkout -b feature1 Switched to a ...

  8. 关于在vs中添加生成命令时的注意事项

    涉及到目录最好用双引号括起来,防止在目录含有空格或文字时发生错误.例如 del "$(SolutionDir)\..\xxxxxx\xxxx\Build\*.*" /s /q xc ...

  9. 基于Jenkins,docker实现自动化部署(持续交互)【转】

      前言 随着业务的增长,需求也开始增多,每个需求的大小,开发周期,发布时间都不一致.基于微服务的系统架构,功能的叠加,对应的服务的数量也在增加,大小功能的快速迭代,更加要求部署的快速化,智能化.因此 ...

  10. 详解webpack中的hash、chunkhash、contenthash区别

    hash.chunkhash.contenthash hash一般是结合CDN缓存来使用,通过webpack构建之后,生成对应文件名自动带上对应的MD5值.如果文件内容改变的话,那么对应文件哈希值也会 ...