[求助]为什么自己写的过程连接不上数据库？ - ASP技术论坛

问题点数：0 回复次数：1

[求助]为什么自己写的过程连接不上数据库？

我写了一个连接数据库的过程openAccessDB()，里面定义了connection和recordset对象，把它放在了"Tools.asp"文件中，我的主程序是"test.asp"，我把"Tools.asp"包含在"test.asp"中，可是用的时候前面定义的两个对象就不能用了。

"Tools.asp"

sub openAccessDB()
dim connStr
dim dataPath
dataPath=server.mappath("data\database.mdb")
connAccessStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dataPath
set conn=server.CreateObject("adodb.connection")
conn.connectionstring=connAccessStr
conn.open()
set rs=server.CreateObject("adodb.recordset")
end sub

"test.asp"


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>测试</title>
</head>

<body>

<%
call openAccessDB() '调用函数
sql="select * from MessageBoard"
rs.open sql,conn,1,1 '出错
do while not rs.eof
response.Write(rs.fields("MB_CONTENT").value)
rs.movenext
loop
rs.close()
conn.close()
set conn=nothing

%>
</body>
</html>

运行到出错：

Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''

请问这是怎么回事？

搜索更多相关主题的帖子: 数据库　