正宗阳春春砂仁多少钱:asp分页问题
来源:百度文库 编辑:高考问答 时间:2024/05/13 18:32:27
...
<%rec.pagesize=20
dim Page
Page =1
if request("Page") <> "" then
Page=cint(request("Page"))
end if
if not rec.eof and not rec.bof then
rec.absolutepage=Page
end if
count=rec.pagesize
if rec.bof then
%>
<table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" class="black_01">暂时没有符合条件纪录!</td>
</tr>
</table>
<%else%>
.....
<%do while not rec.eof and count>0%>
<%=rec("name")%>
....
<%
rec.movenext
count=count-1
loop
%>
....
每页
<select name="select">
<option value="20">20</option>
<option value="30">30</option>
<option value="50">50</option>
</select>
条
现在是每页显示20条,我要做的就是用最后那个下拉框控制每页显示的条数,怎么做??谢谢
第2个回答,为什么提示"错误next"呢?帮忙解决以下,非常感谢各位的答案!
第一句rec.pagesize=20改为:
session("pgsize")=20
if request.form("select")<>"" then
session("pgsize")=CInt(request.form("select"))
end if
rec.pagesize=session("pgsize")
最后面的
<select name="select">
<option value="20">20</option>
<option value="30">30</option>
<option value="50">50</option>
</select>改成:
<form name="frm1" method="post" action="">
<select name="select" onchange="document.frm1.submit()">
<option value="20" selected>20</option>
<option value="30">30</option>
<option value="50">50</option>
</select>
</form>
试试:
<%
dim pagesize = request.querystring("pagesize")
if pagesize="" then pagesize="20"
pagesize = cint(pagesize)
rce.pagesize = pagesize
...
%>
每页
<select name="pagesize">
<%
for i = 20 to 50 step 10
%><option value="<%=i%>"
<%
if i=pagesize then
%> selected><%=i%><%
next
%>
</select>
条
rec.pagesize=20 把20改成个变量
获取select中的value值,赋给变量值