ADODB.Field 错误 '80020009' 分页显示错误

tksnow 2004-02-10 12:09:07

我的代码:



<html>

<head>

</head>

<body>
<%

Set Conn=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject ("ADODB.RecordSet")
Conn.Open (SqlOpenDb)
Search_Date=CDate(Request.Form("Search_Date"))

%>

 
 
 
 

您查询计划单的记录如下:
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="80%" id="AutoNumber1" height="32">
<tr>
<td width="12%" height="18" align="center">
订单编码</td>
<td width="11%" height="18" align="center">
审核标志</td>
<td width="12%" height="18" align="center">
材料名称</td>
<td width="9%" height="18" align="center">
单位</td>
<td width="17%" height="18" align="center">
计划采购数量</td>
<td width="22%" height="18" align="center">
材料估计价格</td>
<td width="9%" height="18" align="center">审核</td>
<td width="8%" height="18" align="center">修改</td>
</tr>
<% Sql_Date="Select A.*,B.* ,C.* From OrderInfo A " & _
"Left Join ProductInfo B On A.OrderID=B.OrderID " & _
"Left Join MaterialInfo C On B.MaterialID=C.MaterialID " & _
"Where A.OrderDate='" & Search_Date & "' "

Rs.Open Sql_Date,Conn,3

If Rs.RecordCount>0 Then
Rs.PageSize=5
Page=Cint(Request("Page")) '当前页
If Page="" Then Page=1
If Page<1 Then Page=1
If Page>=Rs.PageCount Then Page=Rs.PageCount
Response.Write Page
Response.Write Rs.Pagecount
'Rs.AbsolutePage=Page
Response.Write Rs.AbsolutePage
End If

Dim i
Dim m
Dim n

If Page=1 Then
m=1
n=5
Else n=Page*5
m=n-4
If n>Rs.RecordCount Then n=Rs.RecordCount
End If

For i=m To n
%>
<tr>
<td width="12%" height="13">
　<%=Rs("OrderID")%>
</td>
<td width="11%" height="13">
<% If Rs("CensorFlag")<>0 Then
Response.Write "已审核"
Else Response.Write "未审核"
End If %>
</td>
<td width="12%" height="13"><%=Rs("MaterialName")%>
</td>
<td width="9%" height="13"><%=Rs("Unit")%></td>
<td width="17%" height="13"><%=Rs("PlantCount")%>
</td>
<td width="22%" height="13"><%=Rs("PlantPrice")%>
元
</td>
<td width="9%" height="13">

<input type="button" value="审核/反审核" name="Submits" onclick=window.location.href="Edit_Order.asp?OrderID=<%=Rs("OrderID")%>"
<% If Session("User") <> "b" Then %>
disabled
<% End If %>>
</td>
<td width="8%" height="13">
<form>
<input type="button" value="修改" name="Submits" onclick=window.location.href="Edit_Order.asp?OrderID=<%=Rs("OrderID")%>"
<% If Session("User") <> "a" And Rs("CensorFlag")<>0 Then %>
disabled
<% End If %>>

</td>
</tr>

</form>

<%
If Rs.Eof Then Exit For
Rs.MoveNext
Next
%>
<tr>
<td width="100%" height="13" colspan="8">
<%
If Page>=1 Then
%><a href=Deal_SO.asp?Page=<% = Rs.AbsolutePage %>>第一页</a>
<a href="Deal_SO.asp?Page=<% =Rs.AbsolutePage %>">上一页</a>
<a href=Deal_SO.asp?Page=<% =Rs.AbsolutePage %>>下一页</a>
<a href=Deal_SO.asp?Page=<% =Rs.AbsolutePage %>>最后一页</a>
<% End If
%>
</td>
</tr>

<tr>
<td width="100%" height="13" colspan="8">
 制单人:<%=Session("User")%></td>
</tr>
<%
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
</table>
</center>
</div>
</body>
</html>
我做的分页显示,提示错误信息如下:
ADODB.Field 错误 '80020009'

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

/han/Deal_SO.asp，行 0

...全文