dim conn

conn=server.createObject("adodb.connection")

conn.connectionstring="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("data\stuinfo.mdb")

conn.open

response.write "数据库连接成功"

'set rs=server.createobject("adodb.recordset")

'rs
conn.close
set conn=nothing

%>

在IR一运行就弹出有应用程序错误 。

'option explicit
dim conn,connstr,db
db="/sitedata/aaaaaa.mdb"
set conn = server.createobject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(""&db&"")
conn.open connstr
自己对比一下就知道了