asp 查询结果降序排列，并分页显示，第二页开始显示重复数据的问题

网页按一定的条件查询结果，并且分页显示，但是第二页开始有重复的数据，举例说明第一页100，98，77，66，55而第二页显示的是77，66，不知是怎么回事？请高手解答，代... 网页按一定的条件查询结果，并且分页显示，但是第二页开始有重复的数据，举例说明第一页100，98，77，66，55而第二页显示的是77，66，不知是怎么回事？请高手解答，代码如下：
<%
n_pagesize=100 '设置每页显示的记录
A_KEY=request.QueryString("A_KEY")
A_select=request.QueryString("A_select")
A_Check=request.QueryString("A_Check")
A_order=request.QueryString("A_order")
If A_Check="CheckOk" Then
sql="select * from hg_hyzc where " &A_select&" like '%"&request.QueryString("A_KEY")&"%' order by "&request.QueryString("A_order") & " desc"
else
sql="select * from hg_hyzc where " &A_select&" = '"&request.QueryString("A_KEY")&"' order by "&request.QueryString("A_order") & " desc"
end if

If A_select="" Or A_KEY="" then sql="select * from hg_hyzc order by hyid "
If (A_select="" Or A_KEY="") and A_order<>"" then sql="select * from hg_hyzc order by "&A_order & " desc"
'sql="select * from Address "
set conn=server.CreateObject("adodb.connection")
conn.open MM_hghg_STRING
Set rs = Server.CreateObject("ADODB.Recordset")
' response.Write(sql)
rs.Open sql, conn, 1,3
' response.End()

%>
<%
aaSQL="&A_select="&request.QueryString("A_select")&"&A_KEY="&request.QueryString("A_KEY")&"&A_Check="&request.QueryString("A_Check")&"&A_order="&request.QueryString("A_order")
If Page <> 1 Then
Response.Write "<A HREF=querymember.asp?Page=1"&request.QueryString("aaSQL")&">第一页</A>�"
Response.Write "<A HREF=querymember.asp?Page=" & (Page-1) & request.QueryString("aaSQL")&">上一页</A>�"
End If
%>
输入页数:
<input name="Page" type="text" class="InputTextFont12" size="2">
<input name="A_Key" type="hidden" value="<%=A_Key%>">
<input name="A_Select" type="hidden" value="<%=A_Select%>">
<input name="A_Check" type="hidden" value="<%=A_Check%>">
<input name="A_order" type="hidden" value="<%=A_order%>">

<%
If Page <> rs.PageCount Then
Response.Write "<A HREF=querymember.asp?Page=" & (Page+1) &aaSQL&">下一页</A>�"
Response.Write "<A HREF=querymember.asp?Page=" & rs.PageCount &">最后一页</A>�"
End If
response.Write("第"&Page&"/"&rs.PageCount&" 页")
response.Write(" | 共有"&rs.RecordCount&" 条记录 ")
%>
补充一下 ，每页显示10个数据就没有问题了，但是每页显示100个就出现这个问题了，请高手帮忙 展开
 我来答
3个回答
#热议# 为什么说不要把裤子提到肚脐眼？
钱钰顿念烟
2020-02-27 · TA获得超过3715个赞
知道大有可为答主
回答量：3122
采纳率：32%
帮助的人：453万
我也去答题访问个人页
展开全部
数据的绝对定位出错了.
以下是我的一个测试.
<html>
<head>
<title>SQL连接测试及分页处理</title>
<style
type="text/css">
<!--
.STYLE3
{font-size:
medium;
font-weight:
bold;
}
.STYLE4
{
font-size:
large;
font-weight:
bold;
}
-->
</style>
</head>
<body>
<%
dim
conn
'数据库册敏连接对象
Dim
rs
'RecordSet
对象
Dim
dbstr
'数据库文件地址
Dim
sql
'数据操作指令
Dim
pageSize
'每页显示页数
Dim
pgnm
'总页数
Dim
page
'用户请求的页面索引
Dim
count
'消息计数器，用来判断是否到达分页条目
'初始化消息计数器
count=0
'定义每页显示记录数
pageSize=2
'数据库文件
dbstr="student.mdb"
'SQL命令，不区分大小写
sql="select
*
from
student"
'使用Sevrer对象的CreateObject方法建立Connection对象
Set
conn=Server.CreateObject("ADODB.Connection")
Set
rs=Server.CreateObject("ADODB.RecordSet")
'设置Connection对象的ConnectionString
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
conn.ConnectionString=conn.ConnectionString&Server.MapPath(dbstr)
'conn.ConnectionString="DSN=student2"
'连接数据库
conn.open()
'设置rs的ActiveConnection对象
rs.ActiveConnection=conn
'设置游标类型
rs.CursorType=1
'设置锁定类型，默认为1，也就是下面代码可以省略
rs.LockType=1
'打开记录集
rs.open
sql
if(rs.EOF)
then
Response.Write("暂时没有任何信息！")
Response.end
end
if
rs.PageSize=pageSize
pgnm=rs.PageCount
page=request.QueryString("page")
if(IsEmpty(page)
or
cint(page)<1
or
cint(page)>pgnm)
then
page=1
end
if
rs.absolutePage=page
'指定当前页码
%>
<div
align="center">
<p
class="STYLE4">学生信息表</p>
<table
width="770"
border="1"
align="center"
id="table1">
<tr>
<th
scope="col"><span
class="STYLE3">学号</span></th>
<th
scope="col"><span
class="STYLE3">姓名</span></th>
<th
scope="col"><span
class="STYLE3">年龄</span></th>
<th
scope="col"><span
class="STYLE3">籍贯</span></th>
<th
scope="col"><span
class="STYLE3">班号</span></th>
<唤笑/tr>
<%
do
while(not
rs.EOF
and
count<>pageSize)
%>
<tr>
<!--
<td><%=rs("学号")%></td>
<td><%=rs("姓名")%></td>
<td><%=rs("年龄")%></td>
<td><%=rs("籍贯")%></td>
<td><%=rs("班号")%></td>-->
<td><%=rs(0)%></td>
<td><%=rs(1)%></td>
<td><%=rs(2)%><和姿含/td>
<td><%=rs(3)%></td>
<td><%=rs(4)%></td>
</tr>
<%
rs.MoveNext()
count=count+1
loop
%>
</table>
</div>
<br>
<div
align="center">
<table
width="770"
border="1"
id="table2">
<tr>
<td><p
align="center">共有记录<%=rs.RecordCount%>条,
共有<%=pgnm%>页,
当前处于第<%=page%>页<br>
<!--以下为分页处理-->
<%
if
page>1
then
response.write
"<a
href=sqltest.asp?page=1>首页</a>
"
response.write
"<a
href=sqltest.asp?page="
&
page-1
&
">上一页</a>
"
end
if
if
rs.pagecount-page>=1
then
response.write
"<a
href=sqltest.asp?page="
&
(page+1)
&
">"
response.write
"下一页</a>
<a
href=sqltest.asp?page="&rs.pagecount&">尾页</a>"
end
if
%><br>
<%
if
page<2
then
response.write
"首页
上一页
"
else
response.write
"<a
href=sqltest.asp?page=1>首页</a>
"
response.write
"<a
href=sqltest.asp?page="
&
page-1
&
">上一页</a>
"
end
if
if
rs.pagecount-page<1
then
response.write
"下一页
尾页"
else
response.write
"<a
href=sqltest.asp?page="
&
(page+1)
&
">"
response.write
"下一页</a>
<a
href=sqltest.asp?page="&rs.pagecount&">尾页</a>"
end
if
%>
<!--以上为分页处理-->
</td>
</tr>
</table>
</div>
<%
rs.close()
'关闭及释放RecordSet对象
set
rs=nothing
conn.close()
'关闭及释放connection对象
set
conn=nothing
%>
</body>
</html>
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
百度网友b8eabee
推荐于2016-11-29 · TA获得超过127个赞
知道小有建树答主
回答量：335
采纳率：0%
帮助的人：0
我也去答题访问个人页
展开全部
数据的绝对定位出错了.

以下是我的一个测试.
<html>
<head>
<title>SQL连接测试及分页处理</title>
<style type="text/css">
<!--
.STYLE3 {font-size: medium; font-weight: bold; }
.STYLE4 {
font-size: large;
font-weight: bold;
}
-->
</style>
</head>

<body>

<%
dim conn '数据库连接对象
Dim rs 'RecordSet 对象
Dim dbstr '数据库文件地址
Dim sql '数据操作指令

Dim pageSize '每页显示页数
Dim pgnm '总页数
Dim page '用户请求的页面索引
Dim count '消息计数器，用和姿含来判断是否到达分页条目

'初始化消息计数器
count=0

'定义每页显示记录数
pageSize=2

'数据库文件
dbstr="student.mdb"

'SQL命令，不区分大小写
sql="select * from student"

'使用Sevrer对象的CreateObject方法建立Connection对象
Set conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.RecordSet")

'设置Connection对象的ConnectionString
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
conn.ConnectionString=conn.ConnectionString&Server.MapPath(dbstr)
'conn.ConnectionString="DSN=student2"

'连接数据库
conn.open()

'设置rs的ActiveConnection对象
rs.ActiveConnection=conn

'设置游标类型
rs.CursorType=1

'设置锁定类型，默认为1，也就是下面代码可以省略
rs.LockType=1

'打开记录集
rs.open sql

if(rs.EOF) then
Response.Write("暂时没有任何信息！")
Response.end
end if

rs.PageSize=pageSize
pgnm=rs.PageCount
page=request.QueryString("page")

if(IsEmpty(page) or cint(page)<1 or cint(page)>pgnm) then
page=1
end if

rs.absolutePage=page '指定当前页码
%>

<div align="center">
<p class="STYLE4">学生信息表</p>
<table width="770" border="1" align="center" id="table1">
<tr>
<th scope="col"><span class="STYLE3">学号</span></th>
<th scope="col"><span class="STYLE3">姓名</span></th>
<th scope="col"><span class="STYLE3">年龄</span><册敏/th>
<th scope="col"><span class="STYLE3">籍贯</span></th>
<th scope="col"><span class="STYLE3">班号</span></th>

</tr>

<%
do while(not rs.EOF and count<>pageSize)
%>
<tr>
<!-- <td><%=rs("学号")%></td>
<td><%=rs("姓名")%></td>
<td><%=rs("年龄")%></td>
<td><%=rs("籍贯")%>唤笑</td>
<td><%=rs("班号")%></td>-->
<td><%=rs(0)%></td>
<td><%=rs(1)%></td>
<td><%=rs(2)%></td>
<td><%=rs(3)%></td>
<td><%=rs(4)%></td>
</tr>
<%
rs.MoveNext()
count=count+1
loop
%>
</table>
</div>
<br>

<div align="center">
<table width="770" border="1" id="table2">
<tr>
<td><p align="center">共有记录<%=rs.RecordCount%>条,
共有<%=pgnm%>页,
当前处于第<%=page%>页<br>
<!--以下为分页处理-->
<%
if page>1 then
response.write "<a href=sqltest.asp?page=1>首页</a> "
response.write "<a href=sqltest.asp?page=" & page-1 & ">上一页</a> "
end if
if rs.pagecount-page>=1 then
response.write "<a href=sqltest.asp?page=" & (page+1) & ">"
response.write "下一页</a> <a href=sqltest.asp?page="&rs.pagecount&">尾页</a>"
end if
%><br>
<%
if page<2 then
response.write "首页 上一页 "
else
response.write "<a href=sqltest.asp?page=1>首页</a> "
response.write "<a href=sqltest.asp?page=" & page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=sqltest.asp?page=" & (page+1) & ">"
response.write "下一页</a> <a href=sqltest.asp?page="&rs.pagecount&">尾页</a>"
end if
%>
<!--以上为分页处理-->
</td>
</tr>
</table>

</div>
<%
rs.close() '关闭及释放RecordSet对象
set rs=nothing

conn.close() '关闭及释放connection对象
set conn=nothing
%>
</body>
</html>
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
俟高fY
2007-07-21 · 超过23用户采纳过TA的回答
知道答主
回答量：99
采纳率：0%
帮助的人：0
我也去答题访问个人页
展开全部
好像没有看到老大分页的代码啊
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
收起 1条折叠回答
推荐律师服务： 若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

为你推荐：

下载百度知道APP，抢鲜体验
使用百度知道APP，立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

京ICP证030173号-1   京网文【2023】1034-029号     ©2024Baidu  使用百度前必读 | 知道协议 | 企业推广

辅 助

模 式