ASP出现错误ADODB.Field 错误 '800a0bcd' BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,
代码如下:<%DimrensDimrens_numRowsSetrens=Server.CreateObject("ADODB.Recordset")rens.Activ...
代码如下:<%
Dim rens
Dim rens_numRows
Set rens = Server.CreateObject("ADODB.Recordset")
rens.ActiveConnection = MM_mynews_STRING
rens.Source = "SELECT * FROM news ORDER BY news_ID DESC"
rens.CursorType = 0
rens.CursorLocation = 2
rens.LockType = 1
rens.Open()
rens_numRows = 0
%>
</table>
<% End If ' end rens.EOF And rens.BOF %>
<table width="1024" border="0" align="center">
<tr>
<th scope="col"><A HREF="shangchu.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "news_ID=" & rens.Fields.Item("news_ID").Value %>">删除</A></th>
<th scope="col"><a href="news_add.asp">添加</a></th>
<th scope="col"><A HREF="xiangxi.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "news_ID=" & rens.Fields.Item("news_ID").Value %>">修改</A></th>
</tr>
</table>
<p> </p>
<p> </p> 展开
Dim rens
Dim rens_numRows
Set rens = Server.CreateObject("ADODB.Recordset")
rens.ActiveConnection = MM_mynews_STRING
rens.Source = "SELECT * FROM news ORDER BY news_ID DESC"
rens.CursorType = 0
rens.CursorLocation = 2
rens.LockType = 1
rens.Open()
rens_numRows = 0
%>
</table>
<% End If ' end rens.EOF And rens.BOF %>
<table width="1024" border="0" align="center">
<tr>
<th scope="col"><A HREF="shangchu.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "news_ID=" & rens.Fields.Item("news_ID").Value %>">删除</A></th>
<th scope="col"><a href="news_add.asp">添加</a></th>
<th scope="col"><A HREF="xiangxi.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "news_ID=" & rens.Fields.Item("news_ID").Value %>">修改</A></th>
</tr>
</table>
<p> </p>
<p> </p> 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询