请问下面代码问题在哪??(错误提示是:缺少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
%>

dim connstr

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



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

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

...定义connstr

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

谢谢各位啊!

<%
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
%>