asp分页出错

这个是学金雁ASP视频教程里的分页效果教程编的。我对了几次代码都没有发现什么问题。现在出现的问题是我设置一面显时两条信息。如是我数据库里的留言刚好是2的倍数就正常。如果不... 这个是学金雁ASP视频教程里的分页效果教程编的。我对了几次代码都没有发现什么问题。
现在出现的问题是我设置一面显时两条信息。如是我数据库里的留言刚好是2的倍数就正常。如果不是都点最后一页时就会出错。还有就是如果我删除留言时。当删到只留下最后一条时就出错。如果设置每页只显示最后一条就可以删那最后一条信息。但删除后就会页面出错。不会显示出没有记录的语句。请高手帮忙

代码如下。

<% language=VBScript %>
<%
Dim conn
conn="provider=microsoft.jet.oledb.4.0;Data Source="&Server.MapPath("#wxyy.mdb")
Set bb=server.CreateObject("adodb.connection")
bb.open conn
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>读取信息页面</title>
</head>
<%
Set rs=server.CreateObject("adodb.recordset")
rs.open "select * from guestbook",bb,1,1
rs.pageSize=2
numberall=rs.pageCount
page=Int(request("page"))
If page<=0 Then page=1
If request("page")="" Then page=1
rs.absolutePage=page
%>
<body>
<% If rs.eof And rs.bof then
response.write("暂时没有留言")
Else
For i=1 To rs.pageSize
%>
<%
response.write("QQ:"&rs("qq"))
%>
<a href="del.asp?number=<%=rs("number")%>"><%=rs("number")%></a>
<%
rs.MoveNext
Next
End If
%>
<%
For i=1 To numberall
%>
<a href="read.asp?page=<%=i%>"><%=i%></a><br />
<% Next %>
<% If page=1 And Not page=numberall then%>第一页|上一页|
<a href="read.asp?page=<%=page+1%>">下一页</a>|
<a href="read.asp?page=<%=numberall%>">最后一页</a>|
<% ElseIf page<>1 And Not page=numberall then%>
<a href="read.asp?page=1">第一页</a>|
<a href="read.asp?page=<%=page-1%>">上一页</a>|
<a href="read.asp?page=<%=page+1%>">下一页</a>|
<a href="read.asp?page=<%=numberall%>">最后一页</a>|
<% ElseIf page=numberall Then %>
<a href="read.asp?page=1">第一页</a>|
<a href="read.asp?page=<%=page-1%>">上一页</a>|下一页|最后一页|
<% End If %>
<%
rs.close
Set bb=Nothing
%>
</body>
</html>
多谢qq406222977。你说的前面那个问题解决了。但是在删除信息到最后一条还是出错了。能解决吗？展开

 我来答

1个回答

#热议# 应届生在签三方时要注意什么？

犀利的胡茬子
2010-03-09 · TA获得超过663个赞

知道小有建树答主

回答量：853

采纳率：50%

帮助的人：582万

我也去答题访问个人页

关注

展开全部

For i=1 To rs.pageSize
if rs.eof then
exit for
end if
%>
<%
response.write("QQ:"&rs("qq"))
%>
<a href="del.asp?number=<%=rs("number")%>"><%=rs("number")%></a>
<%
rs.MoveNext
Next
加个判断就可以了
如果不明白可以加我Q 406222977

本回答由提问者推荐

已赞过 已踩过<

评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

asp分页出错

为你推荐：