[求助]请教如何最简单的分页 - ASP技术论坛

nbsyf

等　级：新手上路
帖　子：382
专家分：0
注　册：2006-7-31
结帖率：90.7%

楼主

问题点数：0 回复次数：2

[求助]请教如何最简单的分页

请教如何实现最简单的分页，每一页只显示一条记录，按“下一页”运行xs.movenext,按“上一页”运行xs.moveprev,按“第一页”运行xs.first,按“最后一页”运行xs.last。下面是显示一条记录的程序，能否在这程序上面加上“第一页”、“上一页”、“下一页”、“最后一页”这几个超级连接文字，点击这几个文字就能实现翻页的功能。谢了！
<%Set xs = Server.CreateObject("ADODB.Recordset")
sql="select * from g1bgd
xs.open sql,conn,3,3
%>
<body>
<form id="form1" name="form1" method="post" action="">
<table width="400" border="0" align="center">
<tr>
<td><div align="center"><%=(xs.Fields.Item("xm").Value)%></div></td>
</tr>
</table>
</form>

2007-07-20 20:26

nbsyf

等　级：新手上路
帖　子：382
专家分：0
注　册：2006-7-31

第 3 楼

得分:0

请教版在翻页中的问题
我写的翻页程序与您的相似如下：
Set xs = Server.CreateObject("ADODB.Recordset")
sql="select * from g1bgd
xs.open sql,conn,1,3
pgsize=1
page=request.querystring("page")
xs.pagesize=pgsize
pgnm=xs.pagecount
if page=""or clng(page)<1 then page=1
if clng(page)>pgnm then page=pgnm
if pgnm>0 then xs.absolutepage=page
count=0
do while not xs.eof and count<xs.pagesize
<form id="form1" name="form1" method="post" action="bzrsr.asp?page=<%=page%>">
如果翻页只是简单的浏览，这一点问题也没有。如何在翻页同时要对数据库进行修改，问题就来了。下面两句，第一句可以改变系统page值，第二句不能改变系统page值，因为按表单“确定”按钮后，用response.Write(request.querystring("page"))显示的是空格，没有页数。无论你在任何页点击“确定”后按“下一页”都是第二页。请教在表单中有“确定”按钮情况下我应该如何操作才能改变系统page的值。或我怎么才能使我在点击“确定”后按“下一页”都能确保是当前页的下一页，而不是第二页。
1，<a href=bzrsr.asp?page=<%=page+1%>>下一页</a>
2，<form id="form1" name="form1" method="post" action="bzrsr.asp?page=<%=page%>">

2007-07-24 05:14