asp 大数据量分页实例代码

<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html><head><title>后台</title>
<meta http-equiv=content-type content="text/html; charset=gb2312">
<%
set rs=server.createobject("adodb.recordset")
sql = "select userid,company,truename,tel,regtime,dltime,zt,id from [usertable]  order by id desc"
rs.open sql,conn,1,1
rs.pagesize = 10
ps教程ize       = rs.pagesize
pcount      = rs.pagecount
rcount      = rs.recordcount
action=request("action")
key=request("key")
pageno = cint(request.querystring("pageno"))
if pageno < 1 then
pageno = 1
elseif pageno > pcount then
pageno = pcount
end if
thepage = (pageno-1)*psize
if not rs.eof then rs.absolutepage = pageno
%>
  <script language=网页特效>
<!--
function mm_jumpmenu(targ,selobj,restore){ //v3.0
  eval(targ+".location='"+selobj.options[selobj.selectedindex].value+"'");
  if (restore) selobj.selectedindex=0;
}
//-->
</script>
<meta content="mshtml 6.00.3790.2993" name=generator>
</head>
<body>
<table cellspacing=0 cellpadding=0 width="100%" border=0>
  <tbody>
  <tr>
    <td align=right valign=top><table cellspacing=0 cellpadding=0 width="100%" border=0>
          <tbody>
            <tr>
              <td height=14></td>
            </tr>
            <tr>
              <td height=14></td>
            </tr>
            <tr>
              <td height="168" valign="top">
                <table width="814" border=0 cellpadding=0 cellspacing=1 bgcolor="#666666">
                  <tbody>
                    <tr>
                     
                      <td width=57
                height=24 align=middle background=images/stab-ub.gif><strong>帐号</strong><img height=1
                  src="images/break-el.gif" width=1></td>
                    <td width="135" align=middle
                  background=images/stab-ub.gif><strong>公司</strong><img height=1
                  src="images/break-el.gif" width=1></td>
                    <td width=63 align=middle
                  background=images/stab-ub.gif><strong>联系人</strong><img height=1
                  src="images/break-el.gif" width=1></td>
                    <td width="86" align=middle
                  background=images/stab-ub.gif><strong>移动电话</strong><img height=1
                  src="images/break-el.gif" width=1></td>
                    <td width="95" align=middle
                  background=images/stab-ub.gif><strong>注册时间</strong></td>
                    <td width="89" align=middle
                  background=images/stab-ub.gif><strong>登陆时间</strong></td>
                    <td width=60 align=middle
                  background=images/stab-ub.gif><strong></strong><img height=1
                  src="images/break-el.gif" width=1></td>
                    <td width=41 align=middle
                  background=images/stab-ub.gif><strong>状态</strong><img height=1
                  src="images/break-el.gif" width=1></td>
                    <td width=178 align=middle
                  background=images/stab-ub.gif><strong></strong><img height=1
                  src="images/break-el.gif" width=1></td>
                    </tr>
                   
                   
                    <%
for i = 1 to psize
if rs.eof then exit for
%>   
                   
                    <tr>
                     
                      <td height=20 align=middle bgcolor="#ffffff"><a href="edit.jsp教程?id=<%=rs("id")%>"><%=rs("userid")%></a></td>
                    <td bgcolor="#ffffff">&nbsp;<%=rs("company")%></td>
                    <td bgcolor="#ffffff">&nbsp;<%=rs("truename")%><img height=1
                  src="images/break-el.gif" width=1></td>
                    <td bgcolor="#ffffff">&nbsp;<%=rs("tel2")%><img height=1
                  src="images/break-el.gif" width=1></td>
                    <td bgcolor="#ffffff"><%=rs("regtime")%></td>
                    <td bgcolor="#ffffff"><%=rs("dltime")%></td>
                    <td align=middle bgcolor="#ffffff"><img height=1
                  src="images/break-el.gif" width=1></td>
                    <td align=middle bgcolor="#ffffff"><%if rs("zt")=0 then
                    response.write "正常"
                    else
                      response.write "<font color=red>禁止</font>"
                      end if%></td>
                    <td align=middle bgcolor="#ffffff"></td>
                    </tr>
                   
<%
rs.movenext
next
%>
                    <tr>
                      <td colspan=10><table width="100%" border="0" cellspacing="0" cellpadding="4">
                       
                        <tr>
                          <td width="41%" height="25" bgcolor="#ffffff">共<font color="#ff0000"><%= rcount %></font>条 分<font color="#ff0000"><%= pcount %></font>页 | 当前第<font color="#ff0000"><%= pageno %></font>页</td>
                          <td width="13%" bgcolor="#ffffff"></td>
                          <td width="46%" align="right" bgcolor="#ffffff">
                            <%
          if pageno > 1 then
           response.write "<a href=""?pageno=1&action="&action&"&key="&key&""">首页</a>&nbsp;"
           response.write "<a href=""?pageno="&pageno-1&"&action="&action&"&key="&key&""">上页</a>&nbsp;"   
          else
           response.write "首页&nbsp;"
           response.write "上页&nbsp;"
          end if
           %>
                            <select name="menu2" onchange="mm_jumpmenu('self',this,0)" style="width:40px;">
                              <% for i = 1 to pcount %>
                              <option value="?pageno=<%= i %>&action=<%=action%>&key=<%=key%>" <% if i = pageno then response.write "selected"%>><%=i%></option>
                              <% next %>
                              </select>
                           
                            <%
          if pageno < pcount then
           response.write "<a href=""?pageno="&pageno+1&"&action="&action&"&key="&key&""">下页</a>&nbsp;"
           response.write "<a href=""?pageno="&pcount&"&action="&action&"&key="&key&""">尾页</a>"  
          else
           response.write "下页&nbsp;"
           response.write "尾页"
          end if
           %>          </td>
            </tr>
                       
                      </table></td>
                  </tr></tbody>
              </table></td>
            </tr></tbody>
      </table></td>
    </tr></tbody></table>
</body></html>
<%
rs.close
set rs = nothing
%>

时间: 2024-09-30 17:17:43

asp 大数据量分页实例代码的相关文章

Oracle大数据量分页通用存储过程

/*根据网友资料修改的,见笑了*/ type refCursorType is REF CURSOR;  --游标类型定义,用于返回数据集 /***************************************************************** *功能描述: 大数据量分页通用存储过程 *创 建 人: 夏春涛 xchuntao@163.com qq:23106676 *创建时间: 2005-06-29 **********************************

mysql limit大数据量分页优化方法

Mysql的优化是非常重要的.其他最常用也最需要优化的就是limit.Mysql的limit给分页带来了极大的方便,但数据量一大的时候,limit的性能就急剧下降. 同样是取10条数据 select * from yanxue8_visit limit 10000,10 和 select * from yanxue8_visit limit 0,10 就不是一个数量级别的. 网上也很多关于limit的五条优化准则,都是翻译自Mysql手册,虽然正确但不实用.今天发现一篇文章写了些关于limit优

mysql limit 大数据量分页优化方法

Mysql的优化是非常重要的.其他最常用也最需要优化的就是limit.Mysql的limit给分页带来了极大的方便,但数据量一大的时候,limit的性能就急剧下降. 同样是取10条数据 select * from yanxue8_visit limit 10000,10 和 select * from yanxue8_visit limit 0,10 就不是一个数量级别的. 网上也很多关于limit的五条优化准则,都是翻译自Mysql手册,虽然正确但不实用.今天发现一篇文章写了些关于limit优

大数据量分页存储过程效率测试附测试代码与结果

测试环境 硬件:CPU 酷睿双核T5750 内存:2G 软件:Windows server 2003 + sql server 2005 OK,我们首先创建一数据库:data_Test,并在此数据库中创建一表:tb_TestTable 复制代码 代码如下: create database data_Test --创建数据库 data_Test GO use data_Test GO create table tb_TestTable --创建表 (id int identity(1,1) pri

大数据量分页存储过程效率测试附测试代码与结果_MsSql

测试环境 硬件:CPU 酷睿双核T5750 内存:2G 软件:Windows server 2003 + sql server 2005 OK,我们首先创建一数据库:data_Test,并在此数据库中创建一表:tb_TestTable 复制代码 代码如下: create database data_Test --创建数据库 data_Test  GO use data_Test GO create table tb_TestTable --创建表 (id int identity(1,1) pr

asp.net 无刷新分页实例代码_实用技巧

数据类代码: 复制代码 代码如下: using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Data;using System.Data.SqlClient;using System.Collections;using System.Reflection; namespace DAL{    public  class UserManageClass    {  

一个比较实用的大数据量分页存储过程

比较|存储过程|分页|数据 create proc sp_PublicTurnPageWebSite( @TBName  nvarchar(100)='', --表名,如 pinyin @PageSize int=10,   --每页的记录数,默认为 10 @CurPage int=1,   --表示当前页 1 @KeyField nvarchar(100)='ID', --关键字段名,默认为 ID,该字段要求是表中的索引 或 无重复和不为空的字段 @KeyAscDesc nvarchar(4)

一个比较实用的大数据量分页存储过程_MsSql

create proc sp_PublicTurnPageWebSite( @TBName nvarchar(100)='', --表名,如 pinyin @PageSize int=10, --每页的记录数,默认为 10 @CurPage int=1, --表示当前页 1 @KeyField nvarchar(100)='ID', --关键字段名,默认为 ID,该字段要求是表中的索引 或 无重复和不为空的字段 @KeyAscDesc nvarchar(4)='ASC', --关键字的升.降序,

大数据量下的分页

分页|数据 对于非常大的数据模型而言,分页检索时,每次都加载整个数据源非常浪费.通常的选择是检索页面大小的块区的数据,而非检索所有的数据,然后单步执行当前行. 本文演示ASP.net的DataGrid和Sql Server 实现大数据量下的分页,为了便于实现演示,数据表采用了Northwind数据库的Orders表(830条记录). 如果数据表中有唯一的自增索引,并且这个字段没有出现断号现象.检索页面大小的块区数据就非常简单了.通过简单的Sql语句就可以实现这个功能:select * from