[求助]关于分页的问题
各位编程高手你们好,我是一个刚开始学习ASP的新手,最近买了一本ASP的书那里面也有一个论坛程序,可是那里面的帖子显示页没有作分页处理,我自己做了很多回都没有实现了,所以特请求那位高手帮我看看到底应该怎么作,把邮箱告诉我,我然后把整个文件发给你(我也给这本书的作者发过邮件,可是他给我传了一个也是无法实现分页,一使用就出现错误信息)真是苦恼呀...谢谢各位高手了.....谢谢
<!-- #include file="conn.asp" -->
<%
dim strsql,rs
set rs=Server.CreateObject("ADODB.RecordSet")
strsql="select * from 表"
rs.open strsql,conn,1,1
%>
<%
page=request.querystring("page")
rs.PageSize = 15
if Not IsEmpty(page) then
if Not IsNumeric(page) then
page=1
else
Page = cint(page)
end if
if Page > rs.PageCount then
rs.AbsolutePage = rs.PageCount
elseif Page <= 0 then
rs.AbsolutePage = 1
else
rs.AbsolutePage = Page
end if
else
rs.AbsolutePage=1
end if
%>
<%
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if
%>
<tr>
<td>
<%=rs("id")%></td>
<td><%=rs("name")%></td>
</tr>
<%
rs.MoveNext
Next
%>
<form action="<%=filepath%>" method="get">
<!--首先保证总页数不为1、不为0-->
<%if rs.pagecount<>1 and rs.pagecount<>0 then%>
<!--如果当前页数大于1，无论何时都应显示首页和上一页的连接-->
<%if page>1 then%>
[<a Href="<%=filepath%>?Page=<% = 1%>">首页</a>]
[<a Href="<%=filepath%>?Page=<% = page -1 %>">上一页</a>]
<!--如果当前页数大于1并且小于总页面数时，显示出尾页和下一页的连接-->
<%if page<rs.pagecount then %>
[<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>]
[<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]
<!--如果当前页数大于1并且仍大于或等于总页面数时，不显示出尾页和下一页的连接-->
<%else%>
[下一页] [尾页]
<%end if%>
<!--否则，当前页数不大于1，则只显示尾页和下一页的连接-->
<%else%>
[首页] [上一页]
[<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>]
[<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]
<%end if %>
<!--最终，总页数若为1、为0则没有任何连接-->
<%else%>
[首页] [上一页] [下一页] [尾页]
<%end if%>
[页次:<font color=red><b><%=page%></b></font>/<%=rs.PageCount%>]
[共<%=rs.RecordCount%>篇 <font color=red><b><%=rs.PageSize%></b></font>篇/页]
转到<input name="page" size=5 value="<%=page%>">页
<input type="submit" value="Enter">
</form>
<%
rs.close
Set rs = Nothing
conn.close
set conn=Nothing
%>
[此贴子已经被作者于2006-9-10 10:32:40编辑过]
