ASP 设置分页显示

来源：百度知道 编辑：UC知道 时间：2024/06/30 10:22:10
求助,请教高手帮忙,我不懂怎样设置ASP分页显示也不懂代码的运用,只有网页源码,请高手直接帮忙修改我的源码.
源码太长这里不够放,我的网页源码地址:http://www.cn163cn.cn/123/11.html

rs.PageSize=10
Page=CLng(request("Page"))
if Page<1 then Page=1
if Page>rs.PageCount then Page=rs.PageCount
rs.movefirst
rs.absolutepage=Page
放在
rs.open sql,conn,1,1
do while not rs.eof
两行中间

<p>
<%
if page<>1 then
response.Write "<a href=xxx.asp?page=1>第一页</a>"
response.Write "<a href=xxx.asp?page=" & (page-1) & ">上一页</a>"
end if
if page<>rs.pagecount then
response.Write "<a href=xxx.asp?page=" & (page+1) & ">下一页</a>"
response.Write "<a href=xxx.asp?page=" & rs.pagecount & ">最后一页</a>"
end if
%>
</p>
<p>第<%=page%>页 共<%=rs.pagecount%>页</p>

这一段看放哪合适放哪.