Question

如何在ASP的网页里添加一个当前页面和一共几页的？它们的代码是什么？

Answer 1

set rs=server.CreateObject("adodb.recordset")
sql="select * from......... id desc"
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
rs.pagesize=20
rs.absolutepage=page
for i= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<tr <%if i mod 2 = 0 then%>class="alt"<%end if%>>
<td><%=rs(1)%></td>
<td><%=rs(2)%></td>
<td>
<%=rs(3)%>
</td>
<td>
<%=rs(5)%>
</td>
<td><input type="checkbox" value="" name="checkall" /></td>
</tr>
<%
rs.movenext
next
else
%>
<tr>
<td>没</td><td>有</td><td>记录</td><td><input type="checkbox" value="" name="checkall" /></td>
</tr>
<%end if%>
</tbody>
</table>
<ul class="pagination">
<%if page=1 then%><li><a>首页</a></li><%else%><li class="page"><a href="dzcaozuo.asp?page=1">首页</a></li><%end if%>
<%if page<2 then%><li><a>上一页</a></li><%else%><li class="page"><a href="dzcaozuo.asp?page=<%=page-1%>">上一页</a></li><%end if%>
<%if rs.pagecount<page+1 then%><li><a>下一页</a></li><%else%><li class="page"><a href="dzcaozuo.asp?page=<%=page+1%>">下一页</a></li><%end if%>
<%if rs.pagecount<page+1 then%><li><a>尾页</a></li><%e

追问

好的，谢谢

追答

应该看得懂吧。

rs.pagesize=20
rs.absolutepage=page
for i= 1 to rs.pagesize

核心就是这几句

Answer 2

你在百度搜索ASP 分页代码。
这个要跟你前面的ASP代码相结合的。

追问

给你看一个结尾代码行嘛？

追答

不够，需要考虑到参数传递的。
你搜索下，看人家怎么做久清楚了！！