另类的[分页显示效果]？！
日期：2013-09-15 浏览次数：20983 次
什么都不做，就是查询数据，一页显示多少条就查询多少条数据出来。这样的速度应该是很快的了吧？哈哈。。思路就是，给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> <a href="Index.asp?aFlag=Pre&sID=<%=NowID%>">[上一页]</a> <a href="Index.asp?aFlag=Nex&sID=<%=LastID%>">[下一页]</a> <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=C
示例代码如下：
<!--#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> <a href="Index.asp?aFlag=Pre&sID=<%=NowID%>">[上一页]</a> <a href="Index.asp?aFlag=Nex&sID=<%=LastID%>">[下一页]</a> <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=C
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
