ADODB.Recordset 错误 '800a0bb9'如何解决
DimRecordset1DimRecordset1_numRowsSetRecordset1=Server.CreateObject("ADODB.Recordset"...
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_newsadd_STRING
Recordset1.Source = "SELECT * FROM news"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_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=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
set rs=server.createobject("ADODB.recordset")
if request("del")<>"" then conn.execute("delete * from news where id="&request("del"))
sql="select * from news order by id desc"
rs.open sql conn,1,1 （变量或者类型不正确，或者不在可以接受的范围之内，或者与其他数据冲突。 ）
if rs.eof and rs.bof then
response.write "<p>还没有任何新闻</p>"
else
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=10
rs.absolutepage=pagecount
%>
<p><strong>全部新闻</strong><table width=100%>
<%for ipage=1 to rs.pagesize
if rs.eof then exit for
id=rs("id")%>
<tr><td><a
href="vbscript:newswindow(<%=id%>)"><u><%=rs("title")%></u></a>--<%=rs("write")%>[<%=rs("times")%>]
</td><td align=right><a href=newsadd.asp?id=<%=id%>>编辑</a><a href=newsedit.asp?del=<%=id%>>删除</a></td>
</tr>
<%
rs.movenext
next
response.write "</table><p>共"&rs.recordcount&"条记录<br>"
if rs.pagecount>1 then
if pagecount<>1 then
response.write " [ <a href=newsedit.asp?page=1&boardid="&request("boardid")&">首页</a>] "
response.write "[<a href=newsedit.asp?page="&(pagecount-1)&"前页</a>] "
end if
if pagecount<>rs.pagecount then
response.write "[<a href=newsedit.asp?page="&(pagecount+1)&"后页</a>] "
response.write "[<a href=newsedit.asp?page="&rs.pagecount&"尾页</a>] "
end if
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
别找网上的其他答案给我复制．
这几个都解决不了问题，如果谁能解决的话再100分 展开
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_newsadd_STRING
Recordset1.Source = "SELECT * FROM news"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_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=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
set rs=server.createobject("ADODB.recordset")
if request("del")<>"" then conn.execute("delete * from news where id="&request("del"))
sql="select * from news order by id desc"
rs.open sql conn,1,1 （变量或者类型不正确，或者不在可以接受的范围之内，或者与其他数据冲突。 ）
if rs.eof and rs.bof then
response.write "<p>还没有任何新闻</p>"
else
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=10
rs.absolutepage=pagecount
%>
<p><strong>全部新闻</strong><table width=100%>
<%for ipage=1 to rs.pagesize
if rs.eof then exit for
id=rs("id")%>
<tr><td><a
href="vbscript:newswindow(<%=id%>)"><u><%=rs("title")%></u></a>--<%=rs("write")%>[<%=rs("times")%>]
</td><td align=right><a href=newsadd.asp?id=<%=id%>>编辑</a><a href=newsedit.asp?del=<%=id%>>删除</a></td>
</tr>
<%
rs.movenext
next
response.write "</table><p>共"&rs.recordcount&"条记录<br>"
if rs.pagecount>1 then
if pagecount<>1 then
response.write " [ <a href=newsedit.asp?page=1&boardid="&request("boardid")&">首页</a>] "
response.write "[<a href=newsedit.asp?page="&(pagecount-1)&"前页</a>] "
end if
if pagecount<>rs.pagecount then
response.write "[<a href=newsedit.asp?page="&(pagecount+1)&"后页</a>] "
response.write "[<a href=newsedit.asp?page="&rs.pagecount&"尾页</a>] "
end if
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
别找网上的其他答案给我复制．
这几个都解决不了问题，如果谁能解决的话再100分 展开
6个回答
展开全部
认为有两点的可能性导致了改错误，
第一，可能是conn.asp文件没有include 进来，导致数据库执行操作时参数不足，发生错误。你可以确认conn对象打开了没。
第二，可能是你的垃圾程序代码出问题了，开头的
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_newsadd_STRING
Recordset1.Source = "SELECT * FROM news"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
这几行的参数设置可能有问题，我们写程序，一般不要使用机器自动产生的垃圾代码，因为他们的可读性非常差，我看里面的参数，有些设置的不好。
你确认你是用到它的？看了程序，它没啥用，直接去掉，然后把结尾的
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
也去掉，调试一下。呵呵，基本上程序出入不大，稍微调试一下就可以了。
第一，可能是conn.asp文件没有include 进来，导致数据库执行操作时参数不足，发生错误。你可以确认conn对象打开了没。
第二，可能是你的垃圾程序代码出问题了，开头的
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_newsadd_STRING
Recordset1.Source = "SELECT * FROM news"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
这几行的参数设置可能有问题，我们写程序，一般不要使用机器自动产生的垃圾代码，因为他们的可读性非常差，我看里面的参数，有些设置的不好。
你确认你是用到它的？看了程序，它没啥用，直接去掉，然后把结尾的
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
也去掉，调试一下。呵呵，基本上程序出入不大，稍微调试一下就可以了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
看来,楼主被这个问题困住了.
'===========================================
出现rs.open sql conn,1,1这样的错误,极有可能:调用数据库连接页面没有或调用的路径写的不正确
检查一下,是否有<!--#include file="conn.asp"-->
若有,但还有这样的提示,注意conn.asp所在资料夹位置.
'===========================================
另把如下代码,删除.原因:你知道.
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_newsadd_STRING
Recordset1.Source = "SELECT * FROM news"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
'===========================================
出现rs.open sql conn,1,1这样的错误,极有可能:调用数据库连接页面没有或调用的路径写的不正确
检查一下,是否有<!--#include file="conn.asp"-->
若有,但还有这样的提示,注意conn.asp所在资料夹位置.
'===========================================
另把如下代码,删除.原因:你知道.
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_newsadd_STRING
Recordset1.Source = "SELECT * FROM news"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
检查一下数据表news各字段属性，id是否设置为int型类型，对于其他字段默认数据，建议分别用'空'或0，以防出现NULL值，引起读取数据错误。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
if request("del")<>"" then conn.execute("delete * from news where id="&request("del"))
这句中的id="&request("del")改成：id='"&request("del")&"'试试
就是加单引号
这句中的id="&request("del")改成：id='"&request("del")&"'试试
就是加单引号
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
1 4 8 9 5
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（4）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
