ASP分页显示问题设置了pageSize=15 为什么第一页会显示全部记录呢? 请教高手帮忙解答!!!

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transiti... <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>测试Recordset</title>
</head>
<body>
<%
Dim conn
Dim rs
Dim sql
Dim pageSize
Dim page
Dim count
count=0
pageSize=15
sql="SELECT*FROM news"
Set conn =Server.CreateObject("ADODB.Connection")
Set rs =Server.CreateObject("ADODB.Recordset")
conn.ConnectionString="driver={SQL Server};server=kely-pc;Uid=sa;Pwd=123456;Database=Stud"
conn.Open()
rs.ActiveConnection=conn
rs.CursorType =1
rs.LockType =1
rs.Open sql
rs.PageSize = pageSize
page=Request("page")
If isEmpty(page)OR Cint(page)<1 OR Cint(page)>rs.pageCount Then
page =1
End if
rs.AbsolutePage = page
%>
<div align="center">
<table border="1" width="665" id="table1">
<tr bgcolor="#00FFFF">
<td width="79" align="center" bgcolor="#6699FF"><font size="2">序号</font></td>
<td width="79" align="center" bgcolor="#6699FF"><font size="2">栏目</font></td>
<td width="79" align="center" bgcolor="#6699FF"><font size="2">标题</font></td>
<td width="178" align="center" bgcolor="#6699FF"><font size="2">内容</font></td>
<td width="49" align="center" bgcolor="#6699FF"><font size="2">浏览次数</font></td>
<td width="87" align="center" bgcolor="#6699FF"><font size="2">日期</font></td>
</tr>
<%
DO While Not rs.EOF
%>
<tr>
<td align="center"><font size="2">
<%=rs(0)%></font></td>
<td align="center"><font size="2">
<%=rs("names")%></font></td>
<td align="center"><font size="2">
<%=rs("tex")%></font></td>
<td align="center"><font size="2">
<%=rs("nex")%></font></td>
<td align="center"><font size="2">
<%=rs("namet")%></font></td>
<td align="center"><font size="2">
<%=rs("data")%></font></td>

</tr>
<%
rs.MoveNext()
count=count+1
Loop
%>
</table>
</div>
<br>
<div align="center">
<table border="1" widht"500" id="table2">
<tr>
<td> <p align="center"><font size="2">
共有<%=rs.RecordCount%>条记录,共有<%=rs.PageCount%>页到页号：
<%
For i=1 To rs.PageCount
If i=Cint(page)Then
%>
[<font color="red"><%=i%></font>]
<%
Else
%>
[<a href="list.asp?page=<%=i%>"><%=i%></a>]
<%
End if
Next
%>
</font>
</p>
</td>
</tr>
</table>
</br>
</div>
<%
rs.Close()
Set rs = Nothing
conn.Close()
Set conn = Nothing
%>

</body>
</html> 展开

 我来答

1个回答

#热议# 上班途中天气原因受伤算工伤吗？

apaulyin
2011-01-27 · TA获得超过1322个赞

知道大有可为答主

回答量：1617

采纳率：33%

帮助的人：978万

我也去答题访问个人页

关注

展开全部

问题出在DO While Not rs.EOF上
你知道数据集内容结束才能停止循环
你用for来做循环循环次数只到pagesize
for i=0 to rs.pagesize
if rs.eof then
exit for
end if
内容
rs.movenext
next

本回答由提问者推荐

已赞过 已踩过<

评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

ASP分页显示问题 设置了pageSize=15 为什么第一页会显示全部记录呢? 请教高手帮忙解答!!!

其他类似问题

为你推荐：

ASP分页显示问题设置了pageSize=15 为什么第一页会显示全部记录呢? 请教高手帮忙解答!!!