错误类型： ADODB.Field (0x800A0BCD) BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除......
错误类型：ADODB.Field(0x800A0BCD)BOF或EOF中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。/ziye.asp,第50行...
错误类型： ADODB.Field (0x800A0BCD) BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/ziye.asp, 第 50 行
(新闻发布系统)代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/cn.asp" -->
<%
Dim rs__MMColParam
rs__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
rs__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim rs
Dim rs_cmd
Dim rs_numRows
Set rs_cmd = Server.CreateObject ("ADODB.Command")
rs_cmd.ActiveConnection = MM_cn_STRING
rs_cmd.CommandText = "SELECT * FROM Info WHERE ID = ?"
rs_cmd.Prepared = true
rs_cmd.Parameters.Append rs_cmd.CreateParameter("param1", 5, 1, -1, rs__MMColParam) ' adDouble
Set rs = rs_cmd.Execute
rs_numRows = 0
%><!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>
<style type="text/css">
<!--
#news{width:500px;
font-size:13px;
height:600px;
border:1px dashed #FF6633;
margin:0 auto;
}
#news_title{width:500px;
height:80px;
}
#news_fu{width:500px;
background-color:#FF6600;
height:20px;}
#news_content{width:500px;
height:500px;}
-->
</style></head>
<body>
<div id="news">
<div id="news_title"><%=(rs.Fields.Item("Toptic").Value)%></div>
<div id="news_fu">作者： 发布时间：</div>
<div id="news_content"></div>
</div>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%> 展开
/ziye.asp, 第 50 行
(新闻发布系统)代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/cn.asp" -->
<%
Dim rs__MMColParam
rs__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
rs__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim rs
Dim rs_cmd
Dim rs_numRows
Set rs_cmd = Server.CreateObject ("ADODB.Command")
rs_cmd.ActiveConnection = MM_cn_STRING
rs_cmd.CommandText = "SELECT * FROM Info WHERE ID = ?"
rs_cmd.Prepared = true
rs_cmd.Parameters.Append rs_cmd.CreateParameter("param1", 5, 1, -1, rs__MMColParam) ' adDouble
Set rs = rs_cmd.Execute
rs_numRows = 0
%><!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>
<style type="text/css">
<!--
#news{width:500px;
font-size:13px;
height:600px;
border:1px dashed #FF6633;
margin:0 auto;
}
#news_title{width:500px;
height:80px;
}
#news_fu{width:500px;
background-color:#FF6600;
height:20px;}
#news_content{width:500px;
height:500px;}
-->
</style></head>
<body>
<div id="news">
<div id="news_title"><%=(rs.Fields.Item("Toptic").Value)%></div>
<div id="news_fu">作者： 发布时间：</div>
<div id="news_content"></div>
</div>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%> 展开
1个回答
展开全部
SELECT * FROM Info WHERE ID = ?
这个SQL语句有问题 改成
"SELECT * FROM Info WHERE ID ="&rs__MMColParam
这个SQL语句有问题 改成
"SELECT * FROM Info WHERE ID ="&rs__MMColParam
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
