asp分页问题急急急急!~

[haily521314]

set rs=server.CreateObject("adodb.recordset")
sqln="select * from news order by bh desc"
rs.open sqln,conn,1,1
rs.PageSize=5
pagecount=rs.PageCount
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page
if rs.eof and rs.bof then
response.Write"还没有记录"
else
for k=1 to rs.pagesize
%>
<%
if rs.EOF then Exit For
%>
.......
<%if page=1 and not page=pagecount then%>
第一页|上一页
<a herf="newsdel.asp?page=<%=rs.AbsolutePage+1%>">下一页</a>|
<a href="newsdel.asp?page=<%=pagecount%>">最后页</a>|
<%elseif page<>1 and not page=rs.pagecount then %>
<a href="newsdel.asp?page=1">第一页</a>|
<a href="newsdel.asp?page=<%=rs.AbsolutePage-1%>"></a>上一页|
<a href="newsdel.asp?page=<%=rs.AbsolutePage+1%>"></a>下一页|
<a href="newsdele.asp?page=<%=pagecount%>"></a>最后页|
<%elseif page=pagecount then%>
<a href="newsdel.asp?page=1">第一页</a>|
<a href="newsdel.asp?page=<%=rs.AbsolutePage-1%>">上一页</a>|
下一页|
最后页|
<%end if %>
结果没有提示错误，点上一页时，将返回到第一页，还有下一页无效

[haily521314]

怎么没有人来呢？？？帮我啊！～

[hll_1818]

<%else if page<>1 and not page=rs.pagecount then %>

[hll_1818]

<a href="newsdel.asp?page=<%=rs.AbsolutePage-1%>">上一页</a>|
<a href="newsdel.asp?page=<%=rs.AbsolutePage+1%>">下一页</a>|
<a href="newsdele.asp?page=<%=pagecount%>">最后页</a>|

[fangq]

刚开了QQ群33255514,专属Web开发和WinFrom的,欢迎大家加入.

[haily521314]

谢谢你们的答案>
可是还是那样的结果啊
麻烦各位高手在看一哈哦!~~

[singit5]

晕哦，你有几点我想说说看：
1、你的if..end语句，结构
if ..... then
elseif ...then
elseif ...then
end if
那么else哪去了？假如都不符合怎么办，比如我手动输入参数page=22222
2、你的“上一页”“下一页”等等几个链接点没有在<a ...></a>里边，叫人家如何有效呢？呵！

[haily521314]

谢谢提醒
终于找到了

[hll_1818]

问题解决了没啊？？

[什么都不能]

set rs=server.CreateObject("adodb.recordset")
sqln="select * from news order by bh desc"
rs.open sqln,conn,1,1
rs.PageSize=5
if request("page")="" then page=1
page=int(request("page"))
if not rs.eof then
pagecount=rs.PageCount
if page<1 then page=1
if page>pagecount then page=pagecount
rs.AbsolutePage=page
end if
if rs.eof and rs.bof then
response.Write"还没有记录"
else
for k=1 to rs.pagesize
%>
<%
if rs.EOF then Exit For
%>
.......
<%
rs.movenext
next
if page=1 and not page=pagecount then%>
第一页|上一页
<a herf="newsdel.asp?page=<%=rs.AbsolutePage+1%>">下一页</a>|
<a href="newsdel.asp?page=<%=pagecount%>">最后页</a>|
<%elseif page<>1 and not page=rs.pagecount then %>
<a href="newsdel.asp?page=1">第一页</a>|
<a href="newsdel.asp?page=<%=rs.AbsolutePage-1%>"></a>上一页|
<a href="newsdel.asp?page=<%=rs.AbsolutePage+1%>"></a>下一页|
<a href="newsdele.asp?page=<%=pagecount%>"></a>最后页|
<%elseif page=pagecount then%>
<a href="newsdel.asp?page=1">第一页</a>|
<a href="newsdel.asp?page=<%=rs.AbsolutePage-1%>">上一页</a>|
下一页|
最后页|
<%end if %>