分页代码



分页代码:

<%''本程序文件名为：Pages.asp%>

<%''包含ADO常量表文件adovbs.inc，可从"\Program Files\Common Files\System\ADO"目录下拷贝%>

<!--#Include File="adovbs.inc"-->

<%''＊建立数据库连接，这里是Oracle8.05数据库

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

 conn.Open "Provider=msdaora.1;Data Source=YourSrcName;User ID=YourUserID;Password=YourPassword;"


Set rs=Server.CreateObject("ADODB.Recordset")  ''创建Recordset对象

 rs.CursorLocation=adUseClient          ''设定记录集指针属性

 ''＊设定一页内的记录总数，可根据需要进行调整

 rs.PageSize=10


''＊设置查询语句

 StrSQL="Select ID,姓名,住址,电话 from 通讯录 Order By ID"

 rs.Open StrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText

%>

<HTML>

<HEAD>

<title>分页示例</title>

<script language=javascript>

 //点击"[第一页]"时响应：

 function PageFirst()

 {

  document.MyForm.CurrentPage.selectedIndex=0;

  document.MyForm.CurrentPage.onchange();

 }

 //点击"[上一页]"时响应：

 function PagePrior()

 {

  document.MyForm.CurrentPage.selectedIndex--;

  document.MyForm.CurrentPage.onchange();

 }

 //点击"[下一页]"时响应：

 function PageNext()

 {

  document.MyForm.CurrentPage.selectedIndex++;

  document.MyForm.CurrentPage.onchange();

 }

 //点击"[最后一页]"时响应：

 function PageLast()

 {

  document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1;

  document.MyForm.CurrentPage.onchange();

 }

 //选择"第？页"时响应：

 function PageCurrent()

 { //Pages.asp是本程序的文件名

  document.MyForm.action='Pages.asp?Page='+(document.MyForm.CurrentPage.selectedIndex+1)

  document.MyForm.submit();

 }

</Script>

</HEAD>

<BODY bgcolor="#ffffcc" link="#008000" vlink="#008000" alink="#FF0000"">


<%IF rs.Eof THEN

  Response.Write("<font size=2 color=#000080>[数据库中没有记录！]</font>")

 ELSE

  ''指定当前页码

  If Request("CurrentPage")="" Then

   rs.AbsolutePage=1

  Else

   rs.AbsolutePage=CLng(Request("CurrentPage"))

  End If


''创建表单MyForm,方法为Get

  Response.Write("<form method=Get name=MyForm>")

  Response.Write("<p align=center><font size=2 color=#008000>")

  ''设置翻页超链接

  if rs.PageCount=1 then

   Response.Write("[第一页] [上一页] [下一页] [最后一页] ")

  else

    if rs.AbsolutePage=1 then

     Response.Write("[第一页] [上一页] ")

     Response.Write("[<a href=javascript:PageNext()>下一页</a>] ")

     Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ")

    else

      if rs.AbsolutePage=rs.PageCount then

       Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ")

       Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ")

       Response.Write("[下一页] [最后一页] ")

      else

        Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ")

        Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ")

        Response.Write("[<a href=javascript:PageNext()>下一页</a>] ")

        Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ")

      end if

    end if

  end if


''创建下拉列表框，用于选择浏览页码

  Response.Write("第<select size=1 name=CurrentPage onchange=PageCurrent()>")

  For i=1 to rs.PageCount

   if rs.AbsolutePage=i then

    Response.Write("<option selected>"&i&"</option>") ''当前页码

   else

    Response.Write("<option>"&i&"</option>")

   end if

  Next

  Response.Write("</select>页/共"&rs.PageCount&"页 共"&rs.RecordCount&"条记录</font><p>")

  Response.Write("</form>")


''创建表格，用于显示

  Response.Write("<table align=center cellspacing=1 cellpadding=1 border=1")

  Response.Write(" bordercolor=#99CCFF bordercolordark=#b0e0e6 bordercolorlight=#000066>")


Response.Write("<tr bgcolor=#ccccff bordercolor=#000066>")


Set Columns=rs.Fields


''显示表头

  For i=0 to Columns.Count-1

   Response.Write("<td align=center width=200 height=13>")

   Response.Write("<font size=2><b>"&Columns(i).name&"</b></font></td>")

  Next

  Response.Write("</tr>")

  ''显示内容

  For i=1 to rs.PageSize

   Response.Write("<tr bgcolor=#99ccff bordercolor=#000066>")

   For j=0 to Columns.Count-1

    Response.Write("<td><font size=2>"&Columns(j)&"</font></td>")

   Next

   Response.Write("</tr>")


rs.movenext

   if rs.EOF then exit for

  Next


Response.Write("</table>")


END IF

%>

</BODY>

</HTML>

赞 (0)

相关推荐

  • angular.js分页代码的实例

    angular.js分页代码的实例

    对于大多数web应用来说显示项目列表是一种很常见的任务.通常情况下,我们的数据会比较多,无法很好地显示在单个页面中.在这种情况下,我们需要把数据以页的方式来展示,同时带有转到上一页和下一页的功能.现在在学习angular,使用angularjs 分页,基于 directive 实现,样式使用的 bootstrap,直接在 html代码中加入 标签即可调用. 先来看下效果图 实例代码 app.directive('pagePagination', function(){ return { rest

  • Angular.js与Bootstrap相结合实现表格分页代码

    Angular.js与Bootstrap相结合实现表格分页代码

    先给大家简单介绍angular.js和bootstrap基本概念. AngularJS 是一个 JavaScript 框架.它可通过 <script> 标签添加到 HTML 页面. AngularJS 通过 指令 扩展了 HTML,且通过 表达式 绑定数据到 HTML. Bootstrap,来自 Twitter,是目前最受欢迎的前端框架.Bootstrap 是基于 HTML.CSS.JAVASCRIPT 的,它简洁灵活,使得 Web 开发更加快捷. 最近一直学习Angular.js,在学习过程

  • asp.net MVC分页代码分享

    本文实例为大家分享了MVC分页代码,供大家参考,具体内容如下 using System.Collections.Generic; using System.Collections.Specialized; using System.Linq; using System.Web; using System.Text; using System.Web.Mvc; using System.Web.Routing; using System.Data.Objects.DataClasses; name

  • php分页原理 分页代码 分页类制作教程

    分页显示是一种非常常见的浏览和显示大量数据的方法,属于web编程中最常处理的事件之一.对于web编程的老手来说,编写这种代码实在是和呼吸一样自然,但是对于初学者来说,常常对这个问题摸不着头绪,因此特地撰写此文对这个问题进行详细的讲解. 一.分页原理: 所谓分页显示,也就是将数据库中的结果集人为的分成一段一段的来显示,这里需要两个初始的参数: 每页多少条记录($PageSize)?        当前是第几页($CurrentPageID)? 现在只要再给我一个结果集,我就可以显示某段特定的结果出

  • 分页代码

    分页代码: <%''本程序文件名为:Pages.asp%> <%''包含ADO常量表文件adovbs.inc,可从"\Program Files\Common Files\System\ADO"目录下拷贝%> <!--#Include File="adovbs.inc"--> <%''*建立数据库连接,这里是Oracle8.05数据库 Set conn=Server.CreateObject("ADODB.Conn

  • JSP通用高大上分页代码(超管用)

    JSP通用高大上分页代码(超管用)

    先给大家展示下分页效果,如果亲们还很满意请参考以下代码. 在超链接中要保留参数 当使用多条件查询后,然后在点击第2 页时,这个第2页超链接没有条件了,所以会丢失条件,所以我们需要在页面上的所有链接都要保留条件! 我们要把条件以一个字符串的形式保存到PageBean的url中!这个任务交给Servlet! pagebean package cn.itcast.cstm.domain; import java.util.List; public class PageBean<T> { privat

  • js脚本分页代码分享（7种样式）

    js脚本分页代码分享（7种样式）

    本文跟大家分享了7种JS脚本分页样式,相信总有一款是适合你的哦 抓紧先上图给大家挑选一下------------------运行效果------------------- 其实小编挺喜欢最后一款的,亲,你呐? 为大家再分享实现JS脚本分页的代码,直接复制代码,运行即可,抓紧试试吧 <html> <head> <title>7种JS脚本分页代码</title> <style> body {font-size: 12px;} /* Pages Mai

  • 分享PHP函数实现数字与文字分页代码

    这篇文章主要是用PHP函数实现数字与文字分页,具体实现步骤就不罗嗦了,直接上代码 /** * * @param $_sql * @param $_size */ function _page($_sql,$_size) { //将里面的所有变量取出来,外部可以访问 global $_page,$_pagesize,$_pagenum,$_pageabsolute,$_num; if (isset($_GET['page'])) { $_page = $_GET['page']; if (empt

  • JQuery 构建客户/服务分离的链接模型中Table分页代码效率初探

    JQuery 构建客户/服务分离的链接模型中Table分页代码效率初探

    如果你所在公司的开发环境或者项目的开发环境处于单一语言的开发环境之中,框架不适用,因为框架的使用范围之一就是针对一个项目中存在多个语言开发的业务模块,而新项目都需要这些模块的功能,按照以前的习惯,肯定是重新开发,至少也是将其他的语言开发的业务功能变成webservice接口供新代码调用,在这种情况下,本文讨论的框架就可以派上用场并且还能在客户端消除语言差异,只使用纯javascript和html静态代码进行开发. 当然即使在单一的语言环境下,仍然可以使用该模型进行开发,不过开发人员就无法享受到各

  • Spring MVC下 bootStrap服务器分页代码

    因为Spring 对于ajax直接返回对象,到了WEB页面就转换成json 所以不需要使用JSON转换封装可以直接使用 <span style="white-space:pre"> </span>@RequestMapping(value = "/searchList.cqzk") @ResponseBody public BootPage<IllegalParkInfo> search(BootPage<IllegalPa

随机推荐