下一页中ADODB.Field 错误 '80020009'
<!-- #include file= "ChkPwd.asp " -->
<html>
<head>
<title> 部门人员信息浏览 </title>
</head>
<body>
－－－－－－－－－－根据另一个ASP传入的 "deptno "动态显示标题－－－－－－－－－－
<%
Dno=Request.QueryString( "deptno ")
set Conn=Server.CreateObject( "ADODB.Connection ")
Conn.ConnectionString= "driver={SQL Server};server=SEEKY;UID=sa;PWD=5214087376;Database=studentDB "
Conn.Open
sql= "select * from DeptList where DeptNo= ' "&Dno& " ' "
Set rs=Server.CreateObject( "ADODB.Recordset ")
rs.open sql,Conn,1,3
%>
－－－－－－－－－－－－－－－－分页设置－－－－－－－－－－－－－－－－－－－－
<h3 align= "center "> <%=rs( "DeptName ")%> 部门人员信息浏览 </h3>
<hr color= "#999999 " />
<h2 align= "center "> 分页显示表员工的记录 </h2>
<%
Set rs1=Server.CreateObject( "ADODB.Recordset ")
Set rs1.ActiveConnection = Conn
rs1.CursorType = 3
rs1.open "SELECT * WHERE DeptNo= ' "&Dno& " ' "
rs1.PageSize = 5
page = CLng(Request.QueryString( "page "))
if rs1.RecordCount > 0 then
If page < 1 Then
page = 1
end if
if page > rs1.PageCount Then
page = rs1.PageCount
End If
rs1.AbsolutePage = page
%>
－－－－－－－－－－－－显示记录，每５个记录一页－－－－－－－－－－－－－－－－
<BR> 当前页码： <%=page%> / <%=rs1.PageCount%>
<BR>
<table width= '90% ' align=center cellspacing=1 cellpadding=2 border=1 bordercolor= "#808080 " bordercolordark= "#FFFFFF " bordercolorlight= "#E1F5FF ">
<tr>
<td align= "center " bgcolor= "#E1F5FF "> <b> 序号 </b> </td>
<td align= "center " bgcolor= "#E1F5FF "> <b> 员工编号 </b> </td>
<td align= "center " bgcolor= "#E1F5FF "> <b> 姓名 </b> </td>
<td align= "center " bgcolor= "#E1F5FF "> <b> 性别 </b> </td>
<td align= "center " bgcolor= "#E1F5FF "> <b> 年级 </b> </td>
<td align= "center " bgcolor= "#E1F5FF "> <b> 专业 </b> </td>
<td align= "center " bgcolor= "#E1F5FF "> <b> 上岗时间 </b> </td>
<td align= "center " bgcolor= "#E1F5FF "> <b> 工作职位 </b> </td>
</tr>
<%
For i = 1 To rs1.PageSize
varNo = (page - 1) * rs1.PageSize + i
%>
<tr>
<td align= "center "> <%=Cstr(varNo)%> </td>
<td align= "center "> <%=rs1( "Id ")%> </td>
<td align= "center "> <%=rs1( "Name ")%> </td>
<td align= "center "> <%=rs1( "Sex ")%> </td>
<td align= "center "> <%=rs1( "Grade ")%> </td>
<td align= "center "> <%=rs1( "Major ")%> </td>
<td align= "center "> <%=rs1( "inTime ")%> </td>
<td align= "center "> <%=rs1( "Pos ")%> </td>
</tr>
<%
rs1.MoveNext
If rs1.EOF Then Exit For
Next
Response.Write( " </table> <BR> ")
Response.Write " <tr align= 'center '> <td colspan=8> <font color=red> 共有 " & rs1.RecordCount & "条记录 </font> </td> </tr> "
ELSE
Response.Write( " <br/> <p> 当前无记录 </p> ")
End if
------------------------------页数跳转－－－－－－－－－－－－－－－－－－－－
If page = 1 Then
Response.Write( "第一页 ")
Else
Response.Write( " <a href=DeptDetailBrowse.asp?page=1> 第一页 </a> ")
End If
'设置“上一页”链接
If page = 1 Then
Response.Write( " 上一页 ")
Else
Response.Write( " <a href=DeptDetailBrowse.asp?page= " & page-1 & "> 上一页 </a> ")
End If
'设置“下一页”链接
If page = rs1.PageCount Then
Response.Write( " 下一页 ")
Else
Response.Write( " <a href=DeptDetailBrowse.asp?page= " & page+1 & "> 下一页 </a> ")
End If
'设置“最后一页”链接
If page = rs1.PageCount Then
Response.Write( " 最后一页 ")
Else
Response.Write( " <a href=DeptDetailBrowse.asp?page= " & rs1.PageCount & "> 最后一页 </a> ")
End If
'断开与数据库的连接
Conn.Close
If Conn.State = 0 Then
End If
'释放Connection对象，关闭数据库
Set Conn = nothing
%>
</body>
</html>
===========================ERROR=======================
Microsoft VBScript 编译器错误 错误 '800a03f6 '
缺少 'End '
/iisHelp/common/500-100.asp，行242
ADODB.Field 错误 '80020009 '
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/log/DeptDetailBrowse.asp，行0
[解决办法]
已经指向记录尾,而你却要读期数据,这是不行的,加个判断
if not rs.eof then
do something
end if
