(未解决)缺少对象: ''这错误怎么改啊,急

梦自在发布于 2007-11-27 20:57， 1104 次点击

我怎么浏览器输出的时候有问题啊,
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
[bold]/update.asp, 第 19 行[/bold]

程序代码：

<%
dim Conn,SQL
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Dbq="&Server.MapPath("update.mdb")&"; Driver={Microsoft Access Driver (*.mdb)}"
Conn.Open
SQL="UPDATE updatebook SET update_num=update_num+1"
Conn.Execute(SQL)
Response.Write("&scu_asp=刷新成功!")
Dim RS
Set RS=Sever.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM updatebook Order by update_num DESC"
RS.Open SQL,Conn,1,1
Response.Write("&update_num_asp="&RS("update_num"))
RS.Close
Set RS=nothing
Conn.Close
Set Conn=nothing
%>

[[italic] 本帖最后由梦自在于 2007-11-28 19:49 编辑 [/italic]]

8 回复

邪之舞2007-11-27 21:52

Set RS=[underline]Sever[/underline].CreateObject("ADODB.Recordset")

jackyzhangyb2007-11-27 21:55

连接SQL我知道的，但是access不太熟悉

梦自在2007-11-28 19:30

改了还是不行啊,

梦自在2007-11-28 19:49

没人啊

madpbpl2007-11-29 10:38

2楼已经给你解决方法了
以下测试通过

程序代码：

<%
dim Conn,SQL
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Dbq="&Server.MapPath("update.mdb")&"; Driver={Microsoft Access Driver (*.mdb)}"
Conn.Open
SQL="UPDATE updatebook SET update_num=update_num+1"
Conn.Execute(SQL)
Response.Write("&scu_asp=刷新成功!")
Dim RS
Set RS=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM updatebook Order by update_num DESC"
RS.Open SQL,Conn,1,1
Response.Write("&update_num_asp="&RS("update_num"))
RS.Close
Set RS=nothing
Conn.Close
Set Conn=nothing
%>

梦自在2007-11-29 18:17

谢谢,这改后
Response.Write "update_num_asp="这样写没错误,
但加上&RS("update_num")就出现错误:
错误类型：
(0x80020009)
发生意外。
/update.asp, 第 23 行
哪位大虾能说下原因?

madpbpl2007-11-29 20:23

我这边运行调试成功的，没有报错
输出结果是：
&scu_asp=刷新成功!&update_num_asp=8
楼主这个程序里还有其他代码吗？
数据库字段的类型都是什么？

梦自在2007-12-03 19:43

谢谢大虾
是数据库里变量默认是0，但我没设置数值，重新打个数字就好了最后问老师才弄清楚。