关于ASP分页显示的问题

来源：百度知道编辑：UC知道时间：2024/05/11 01:01:58

我照着书上的分页的例子谢的，不知道哪里错了，求各位高手指点。


<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from note_comment",conn,1,3
if rs.bof and rs.eof then
response.Write("暂无留言!")
else

if counts=0 or counts="" then counts=3

rs.pagesize=counts
allpage=rs.pagecount
page=request("page")

if not isnumeric(page) then page=1
if isempty(page) or cint(page)<1 then
page=1
elseif cint(page) >=allpage then
page=allpage
end if

rs.absolutepage=page

do while (not rs.eof) and counts>0

i=i+1
mun=rs.recordcount-(page-1)*rs.pagesize-i+1

%>

这里是留言的内容

<%
counts=counts-1

rs.movenext
if rs.eof then exit do
loop
%>

if rs.bof and rs.eof then
应该改成
if rs.bof or rs.eof then
-----------------------------
page=request("page")
应该改成
page=cint(request("page"))
----------------------------------
do while (not rs.eof) and counts>0

应该改成
i=1
do while (i<rs.pagesize)
i=i+1
------------------------------------------
if page=1 then应该改成
if page<=1 then

if page=allpage then 应该改成
if page>=allpage then
--------------------------------------else
response.Write"<a herf=index.asp?page=1>首页</a> "
response.Write"<a herf=index.asp?page="&page-1&">上页</a>"
end if

应该把它的位置改一下
使这样判断
if 当前页〈=1，那么就让它打开第一页，只显示上一页下一页，没有任何超级连接
elseif 当前页大于总页数，那么我们就写上一页有超连接，而下一页无连接
else
上一页下一页都有超级连接
end if

关于ASP分页显示的问题关于ASP中分页显示的问题 ASP分页的显示问题急!!关于asp一行多列分页显示的问题关于asp分页的问题关于asp的分页问题关于ASP分页的问题关于ASP分页显示 asp分页显示问题? asp 分页显示问题