(原创)另类的[分页显示效果]?!

原创 2004年09月16日 17:04:00

什么都不做,就是查询数据,一页显示多少条就查询多少条数据出来。这样的速度应该是很快的了吧?哈哈。。思路就是,给ID值出来,使用此ID值做下一页或上一页的查询条件,并且还要排序!!在这里查询结果排序也起了很重要的作用!!!!


示例代码如下:
<!--#include file="Conn.asp"-->
<%
Dim aFlag,NowID,LastID,iShowNum
iShowNum=20                   '一页显示多少条记录
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
td {
 font-family: "宋体";
 font-size: 12px;
}
a:link {
 font-family: "宋体";
 font-size: 12px;
 color: #999999;
 text-decoration: none;
}
a:visited {
 font-family: "宋体";
 font-size: 12px;
 color: #999999;
 text-decoration: none;
}
a:active {
 font-family: "宋体";
 font-size: 12px;
 color: #999999;
 text-decoration: none;
}
a:hover {
 font-family: "宋体";
 font-size: 12px;
 color: #FF9900;
 text-decoration: underline;
}
-->
</style>
</head>

<body>
<table width="750"  border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#D5D5D5">
  <tr bgcolor="#F3F3F3">
    <td width="10%" height="25" bgcolor="#F3F3F3"><div align="center"><strong>序号</strong></div></td>
    <td width="25%" height="25"><div align="center"><strong>电影名称</strong></div></td>
    <td width="57%" height="25" bgcolor="#F3F3F3"><div align="center"><strong>电影URL地址</strong></div></td>
    <td width="8%" height="25"><div align="center"><strong>类型</strong></div></td>
  </tr>
<%
Call Show_List
%>
  <tr bgcolor="#F3F3F3">
    <td height="20" colspan="4"><div align="right"><a href="Index.asp?aFlag=Fir">[首页]</a>&nbsp;&nbsp;<a href="Index.asp?aFlag=Pre&sID=<%=NowID%>">[上一页]</a>&nbsp;&nbsp;<a href="Index.asp?aFlag=Nex&sID=<%=LastID%>">[下一页]</a>&nbsp;&nbsp;<a href="Index.asp?aFlag=End">[尾页]</a></div></td>
  </tr>
</table>
</body>
</html>
<%
Call CloseDatabase

Sub Show_List
Dim LastFlag,NowFlag
Dim ArrayRow
 aFlag=Request("aFlag")
 NowID=Request("sID")
 Select Case aFlag
        Case "Nex"
          If NowID<>"" Then
             Sql="Select Top "&iShowNum&" Id,Name,Url,Type From [Movie] Where ID>"&NowId&" Order By ID Asc"
    Else
       Sql="Select Top "&iShowNum&" Id,Name,Url,Type From [Movie] Order By ID Desc"
    End If
     Case "Pre"
          If NowID<>"" Then
             Sql="Select Top "&iShowNum&" Id,Name,Url,Type From [Movie] Where ID<"&NowId&" Order By ID Desc"
    Else
       Sql="Select Top "&iShowNum&" Id,Name,Url,Type From [Movie]"
    End If
     Case "End"
          Sql="Select Top "&iShowNum&" Id,Name,Url,Type From [Movie] Order By ID Desc"
     Case Else
          Sql="Select Top "&iShowNum&" Id,Name,Url,Type From [Movie]"
 End Select
 Set Rs=Conn.Execute(Sql)
 LastFlag=False
 NowFlag=False
 If Rs.Eof Then
    Rs.Close
    Set Rs=Nothing
    Exit Sub
 End If
 '获取数据到一个二维数组
 ArrayRow=Rs.GetRows()
 Dim iFrom,iTo,iStep
 If aFlag="Pre" Or aFlag="End" Then
    iFrom=Ubound(ArrayRow,2)
    iTo=0
    iStep=-1
 Else
    iFrom=0
    iTo=Ubound(ArrayRow,2)
    iStep=1
 End If
 NowID=ArrayRow(0,iFrom)
 LastID=ArrayRow(0,iTo)
 For i=iFrom To iTo Step iStep
    Response.Write " <tr bgcolor=""#FDFDFD"" style=""cursor:hand"" onmouseover=""this.style.background='#F3F3F3'"" onmouseout=""this.style.background='#FDFDFD'"">"
    Response.Write "    <td height=""20""><div align=""center"">"&ArrayRow(0,i)&"</div></td>"
    Response.Write "    <td>"&ArrayRow(1,i)&"</td>"
    Response.Write "    <td>"&ArrayRow(2,i)&"</td>"
    Response.Write "    <td>"&ArrayRow(3,i)&"</td>"
    Response.Write "  </tr>"
    Next
 Rs.Close
 Set Rs=Nothing
End Sub
%>

分页显示算法

分页算法应该在以后的开发中会经常用到。这里记录一下:分页算法使用的底层实现是limit关键字。 public ArrayList listUsers(int pagenow,int count)...
  • qq_16811963
  • qq_16811963
  • 2016年07月26日 16:36
  • 2466

另类数据Alternative Data行业调查

Alternative Data行业调查 1. 另类数据的定义: “Alternative data in finance refers to any data that is not tradi...
  • Richard_More
  • Richard_More
  • 2016年11月15日 00:08
  • 809

仿淘宝分页按钮效果简单美观易使用的JS分页控件

仿淘宝分页按钮效果简单美观易使用的JS分页控件 博客分类:  web前端 css javascript 分页按钮控件 css分页控件  最新版本代码请移步到https:/...
  • l284849736
  • l284849736
  • 2014年08月28日 17:16
  • 2070

【原创】PHP 表格 分页 显示

php limit 分页显示
  • vancyf
  • vancyf
  • 2017年04月20日 13:39
  • 708

QML实现分页显示

PageView.qml 代码: import QtQuick 2.0 import QtQuick.Controls.Styles 1.2 import QtQuick.Controls 1.2 ...
  • u013207966
  • u013207966
  • 2016年05月19日 15:36
  • 1230

JSP 显示分页效果

首先在util包下创建一个MyPage。JAVApackage util; import javax.servlet.jsp.JspException; import javax.servlet.j...
  • zhuangjixiang
  • zhuangjixiang
  • 2013年03月06日 20:58
  • 1113

纯js实现分页 原理:所有数据已加载好,js通过遍历部分显示,实现分页效果

废话不多说,直接上代码! html> head> meta charset='utf-8'> script type="text/javascript" src="page.js">scr...
  • m0_38084879
  • m0_38084879
  • 2017年04月24日 20:43
  • 2357

BootStrap插件实现分页效果

效果图 1、引入JS文件 script src="lib/jquery-1.9.1.min.js" type="text/javascript"> 2、核心js代码 $(f...
  • JavaMrZhang
  • JavaMrZhang
  • 2016年09月01日 17:21
  • 1226

JQuery实现分页功能

使用JQuery实现分页功能。 1、分页栏HTML码 2、 CSS样式文件 .g-cf:after {clear: both;content: "";displ...
  • pan_junbiao
  • pan_junbiao
  • 2013年02月15日 10:30
  • 20638

【Web】分页简单实现

web分页   为什么需要分页? 一、数据方面的原因 大量查询的数据耗时比较严重。 二、增强用户使用体验需求 用户更方便的查询和展示他所需要的数据。   常见分页方式:传统分页方式和下...
  • u010583599
  • u010583599
  • 2017年02月09日 15:11
  • 2745
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:(原创)另类的[分页显示效果]?!
举报原因:
原因补充:

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