DO WHILE 循环问题

来源：百度知道编辑：UC知道时间：2024/05/23 17:33:08

<%key = request("key")
page = request("page")
if len(page)=0 then page=1

set rs=server.createobject("adodb.recordset")
sql="select * from jiankang order by idate desc"
rs.open sql,conn,1,3
if not rs.eof then PageSize=20
rs.pagesize=PageSize
TotalPage=cint(rs.PageCount)
if cint(page) > TotalPage then page=TotalPage

for i=1 to (page-1) * PageSize rs.movenext
next
end if
do while not rs.eof %>
<table>...</table>
<%rs.movenext
loop
rs.close%>
问题是程序运行每次都是全部把数据库里的数据全部显示（table）。我怎么才能让他和PageSize结合起来显示
如果说的在看不懂，也可以到
http://www.zzdksw.com/bairun/health.asp?title=健康常识

帮你修改一下
<%
key = request("key") '一看就是带条件搜索分页的情况
set rs=server.createobject("adodb.recordset")
sql="select * from jiankang order by idate desc"
rs.open sql,conn,1,3
rs.pagesize=5 '每页显示的记录数,我这里写一页显示5条
page = cint(request("page"))
if page<1 then page=1
if page>rs.pagecount then page=rspagecount
i=1
do while not rs.eof
%>
<table>...</table>
<%
rs.movenext
i=i+1
if i>5 then exit do
loop
rs.close
set rs=nothing
%>
我只是做了修改,如果还有什么问题的话,可以加我63055127
现在应该可以了试下

DO WHILE 循环问题 ASP中的do while循环问题 ASP：do while loop 循环问题关于do while循环的一个问题 asp do while循环急，急，急，关于do while嵌套循环的问题 asp中do while loop的循环嵌套问题 vb WHILE循环问题 java中关于do-while 循环程序 VB中的Do while Loop循环