[求助]缺少CONN对象，怎么修改代码啊？ - 编程论坛

#2

ayue2222007-08-20 09:01

dim connstr

#3

angerzl2007-08-20 10:25

网页浏览时的错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'conn'
/test/masfdc/inc/conn1.asp, 第 16 行

请问dim connstr 是什么意思啊??~~~~

求救,急啊!~!~!~1

#4

ayue2222007-08-20 10:32

...定义connstr

#5

qhscqb2007-08-20 10:45

以下是引用angerzl在2007-8-20 8:38:56的发言：

请问下面代码问题在哪??(错误提示是:缺少CONN对象)希望各位大侠帮帮忙啊………………
<%
response.expires=0
response.buffer=true
session.timeout=30
dim conn
dim char_str(20)
sub OpenDataConn()
'dim connstr,conn
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
connstr = connstr & Server.MapPath("data/qhousedb.asp")
'response.write connstr
set conn=Server.CreateObject("AdoDb.Connection")
conn.Open connstr
end sub
sub CloseDataConn()
conn.close
set conn=Nothing
end sub
%>

在你的CloseDataConn()过程中,并没有定义conn对象,所以会提示缺少对象.对于关闭对象,用conn.close和set conn=nothing就可以了,不必使用过程,如果确实要使用过程,就必须在有创建过该对象的过程中去关闭它.

#6

angerzl2007-08-20 13:32

谢谢各位啊!

#7

Kettyjin19832007-08-20 14:17

<%
response.expires=0
response.buffer=true
session.timeout=30
set conn=Server.CreateObject("AdoDb.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/qhousedb.asp")
conn.open = constr
conn.close
set conn=Nothing
%>