调试asp网页，提示ADODB.Recordset (0x800A0BB9)
我在调试是，提示错误：ADODB.Recordset(0x800A0BB9)，我查了，这个错误的意思是sql语句出错(sql语句或conn语句未定义或对一个rs属性进行赋...
我在调试是，提示错误：ADODB.Recordset (0x800A0BB9)，我查了，这个错误的意思是 sql语句出错(sql语句或conn语句未定义或对一个rs属性进行赋值时发生错误) 。但是我不明白我哪里错了。我在做好数据库联接后，在查看--动态数据 中可以看到我连接数据后的内容，但是调试的时候就是提示错误，请指教。
下面是代码：
<?xml version="1.0" encoding="gb2312"?><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/rs.asp" -->
<%
Dim Recordset
Dim Recordset_numRows //提示说这里错误
Set Recordset = Server.CreateObject("ADODB.Recordset")
Recordset.ActiveConnection = MM_rs_STRING
Recordset.Source = "SELECT * FROM news"
Recordset.CursorType = 0
Recordset.CursorLocation = 2
Recordset.LockType = 1
Recordset.Open()
Recordset_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
Recordset_numRows = Recordset_numRows + Repeat1__numRows
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset.EOF))
%>
<table width="99%" border="0">
<tr>
<td width="4%" height="18"><font color="#FF0000"><img src="images/point.gif" width="9" height="8" /></font></td>
<td width="83%"><font color="#FF0000"> <%=(Recordset.Fields.Item("标题").Value)%></font></td>
<td width="13%"><font color="#FF0000"> <%=(Recordset.Fields.Item("日期").Value)%></font></td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset.MoveNext()
Wend
%>
<%
Recordset.Close()
Set Recordset = Nothing
%>
问题解决可加分!
Recordset1.ActiveConnection = MM_conn_STRING // 这行有问题 展开
下面是代码：
<?xml version="1.0" encoding="gb2312"?><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/rs.asp" -->
<%
Dim Recordset
Dim Recordset_numRows //提示说这里错误
Set Recordset = Server.CreateObject("ADODB.Recordset")
Recordset.ActiveConnection = MM_rs_STRING
Recordset.Source = "SELECT * FROM news"
Recordset.CursorType = 0
Recordset.CursorLocation = 2
Recordset.LockType = 1
Recordset.Open()
Recordset_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
Recordset_numRows = Recordset_numRows + Repeat1__numRows
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset.EOF))
%>
<table width="99%" border="0">
<tr>
<td width="4%" height="18"><font color="#FF0000"><img src="images/point.gif" width="9" height="8" /></font></td>
<td width="83%"><font color="#FF0000"> <%=(Recordset.Fields.Item("标题").Value)%></font></td>
<td width="13%"><font color="#FF0000"> <%=(Recordset.Fields.Item("日期").Value)%></font></td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset.MoveNext()
Wend
%>
<%
Recordset.Close()
Set Recordset = Nothing
%>
问题解决可加分!
Recordset1.ActiveConnection = MM_conn_STRING // 这行有问题 展开
3个回答
展开全部
ASP网页中调用SQL数据库代码：
//第一种写法：
MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * FROM TABLE ORDER BY ID DESC"
RS.open SQL,CONN,3,3
//第二种写法：（DSN连接）
MM_conn_STRING="DSN=BBS;UID=SA;PWD=12345"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * FROM TABLE ORDER BY ID DESC"
RS.open SQL,CONN,3,3 // 3,3是修改、删除、增加开关！
//第三种写法：
MM_conn_STRING_own = "Driver={SQL Server};server=(local);uid=sa;pwd=11111;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING_own
//第四种 - 这种方法用在ACCESS中
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("asp.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
你对照一下，看那里写错了。
//第一种写法：
MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * FROM TABLE ORDER BY ID DESC"
RS.open SQL,CONN,3,3
//第二种写法：（DSN连接）
MM_conn_STRING="DSN=BBS;UID=SA;PWD=12345"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * FROM TABLE ORDER BY ID DESC"
RS.open SQL,CONN,3,3 // 3,3是修改、删除、增加开关！
//第三种写法：
MM_conn_STRING_own = "Driver={SQL Server};server=(local);uid=sa;pwd=11111;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING_own
//第四种 - 这种方法用在ACCESS中
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("asp.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
你对照一下，看那里写错了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
先确定你的页面有没有ADODB.Connection 对象
你的 open语句问题
如果是 配好数据源的为
conn.open "DSN=MyData"
如果没有数据源则为
conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq="&Server.Mappath("user.mdb")
此方法一定要把user.mdb放在根目录里
还有其它的 连接方法
你的 open语句问题
如果是 配好数据源的为
conn.open "DSN=MyData"
如果没有数据源则为
conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq="&Server.Mappath("user.mdb")
此方法一定要把user.mdb放在根目录里
还有其它的 连接方法
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
DW自带的ASP代码,建议都用手写,里面很多漏洞的,我用自带的代码经常报错,MM_conn_STRING 记得好象是连接数据库的字符串,看下路径什么的有没错吧,要是还搞不定,把几个源文件发给我看
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
