Access 连接问题

[TianLong2003]

连接字符串：connstr="DBQ="+server.mappath("guest.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

连接语句：set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr

提示错误：

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x49c Thread 0x6bc DBC 0x13c4004 Jet'。

问题：1，怎么解决啊
　　　2，为什么会这样，是不是要装什么东西或者要在哪里设置一下啊（我2000的操作系统，IIS5.0，好郁闷啊，老是不行）

[ice241018]

你把数据库驱动换一下试试。
<%
option explicit
dim conn,connstr,startime,db,rs
startime=timer()
db="db/db.mdb" //你的数据库路径，自已改一下
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>

[itzhiren]

同意

[kyxlzj]

用2楼的比较好

[TianLong2003]

试了一下，刚才的错误没有了，又提示有新的错误：

Microsoft JET Database Engine 错误 '80040e10'

至少一个参数没有被指定值。

/exetrit/8/guest_list.asp，行6

与行6对应的是这个语句：conn.Open connstr

[ice241018]

试试这个
<%
dim connstr,conn
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
connstr = connstr & Server.MapPath("db/db.mdb")
'response.write connstr
set conn=Server.CreateObject("AdoDb.Connection")
conn.Open connstr
%>

[ice241018]

在不行用这个试试
<%
MdbName="ly" //你的数据库名
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath( "data/"&MdbName & ".mdb")//数据库路径
'conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath

function dealstr(inputstr,limit)
dim getstr,limited
getstr=trim(inputstr)
getstr=replace(getstr,"<","<")
getstr=replace(getstr,">",">")
getstr=replace(getstr,chr(13),"<br>")
getstr=replace(getstr,"'","''")
limited=cint(limit)
dealstr=left(getstr,limited)
end function
%>