分页的问题

skyboy0720 2003-09-14 06:28:23

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>

<body>

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.Recordset")
Path=Server.MapPath("Asp.mdb")
Conn.Open "Dbq=" & Path & ";Driver={Microsoft Access Driver (*.mdb)}"
SqlStr="Select * from Student order by ID DESC"
rs.Open SqlStr,conn,1,1
If rs.RecordCount=0 Then
Server.Transfer "Err.asp"
Set rs=Nothing
Set Conn=Nothing
Else
rs.PageSize=2
PageNo=Request("PageNo")
If PageNo="" And PageNo < 1 Then
PageNo=1
ElseIf PageNo > rs.PageCount Then
PageNo=rs.PageCount
End If
Response.Write "<form action=show.asp method=get>"
ShowPage rs,PageNo
if PageNo <> 1 Then
response.write "<a href=show.asp?PageNo=1>第一页</a>"
response.write "<a href=show.asp?PageNo="&(PageNo-1)&">上一页</a>"
End If
if PageNo <>rs.PageCount then
response.write "<a href=show.asp?PageNo="&(PageNo-1)&">下一页</a>"
response.write "<a href=show.asp?PageNo="&rs.PageCount&">最后一页</a>"
End If
End If
%>
页码:<input type=text name=PageNo size=3>
<input type=submit name=tj value=确定> 页数：<%=PageNo%>/<%=rs.PageCount%>
</FORM>
<%
Sub ShowPage(rs,PageNo)
rs.AbsolutePage=PageNo
Response.Write "<Table>"
Response.Write "<tr>"
For i=0 To rs.Fields.Count-1
Response.Write "<td>" & rs.Fields(i).Name & "</td>"
Next
Response.Write "</tr>"
For j=1 To rs.PageSize
Response.Write "<tr>"
For k=0 To rs.Fields.Count-1
Response.Write "<td>" & rs.Fields(k).Value & "</td>"
Next
Response.Write "</tr>"
If rs.Eof Then
Exit For
End If
rs.movenext
Next

Response.Write "</Table>"
End Sub
%>
</body>

</html>

当点击下一页或者输入页号时，出现“BOF或EOF其中一个为真。。。”的错误

请各位帮忙检查哪出错了，还要改善的地方，谢谢

...全文