UC知道最后一次询问ASP 嗷嗷简单
来源：百度知道 编辑：UC知道 时间：2024/06/07 07:20:25
http://www.fsxx315.com/brand/list.asp?qysx=42
大家帮我看看这个页面，我想限制一下数量，比如一页15个，该加什么样的代码呀……
这个太长了……
<TBODY>
<TR>
<TD align=middle height=19><% if page="1" then %>
首页
<%else%>
<a href=list.asp>首页</a>
<% end if %>
</td>
<td width="75" align="center">
<% if page="1" then %>
上一页
<%else%>
<a href=list.asp?page=<%=page-1%> >上一页</a>
<% end if %>
</td>
<td width="75" align="center">
大家帮我看看这个页面，我想限制一下数量，比如一页15个，该加什么样的代码呀……
这个太长了……
<TBODY>
<TR>
<TD align=middle height=19><% if page="1" then %>
首页
<%else%>
<a href=list.asp>首页</a>
<% end if %>
</td>
<td width="75" align="center">
<% if page="1" then %>
上一页
<%else%>
<a href=list.asp?page=<%=page-1%> >上一页</a>
<% end if %>
</td>
<td width="75" align="center">
这段代码你还是没有贴到主要的部分
<%
set rs=server.CreateObject("adodb.recordset")
dim page,pagesize
'获得用户显示的页数
page=request.QueryString("whichpage")
if page="" then
page=1
end if
'获得每页的大小，显示记录的条数
pagesize=request.querystring("pagesize")
if pagesize="" then
pagesize=10
end if
rs.cachesize=5
rs.open "select * from news",conn,1,3
'设定分页设置
rs.movefirst '移动到第一条记录本
'设定每页的大小，显示记录条数
rs.pagesize=pagesize
'总页数
maxcount=cint(rs.pagecount)
'设定显示的第几页
rs.absolutepage=page
'用户记录每页显示的记录数
howmanyrecs=0
response.write "当前页: " & page & " 总页数:" & maxcount & "<br>"
%></td>
</tr>