这很明显定义不全,且驱动程序没有写完整。
<%
dim conn
dim connstr
db="database/data.mdb"
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "数据库连接出错!"
Response.End
else
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "数据库连接出错!"
Response.End
end if
end if
%>
Source="&server.mappath("/db1.mdb")& ";改为:Source="&server.mappath("\db1.mdb")& ";试试
您好,这样的情况建议您可以升级到最新版本试一下,或是联系一下官网客服比较好。