access数据库连接错误！请帮忙！

[jinyut]

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

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

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

/test.asp，行3
_________________________________________________________________________________________

程序内容
—————————————————————————————————————————————
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("test.mdb")

set rs=server.createobject("adodb.recordset")
sql="select * from test where id=1"
rs.open sql,conn,1,3

response.write rs("test")
%>
—————————————————————————————————————————————
说明：
test.mdb 与 此程序在同一目录 不存在 数据库路径不正确的问题 本机的所有连接access数据库
的程序 都提示这个错误！ 请各位大虾帮忙！

[jbj001]

set rs=server.createobject("adodb.recordset")
sql="select * from test where id='1'"
rs.open sql,conn,1,3

if not rs.eof then
response.write rs("test")
end if
rs.close

[jinyut]

错误依旧！

[happyhui]

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("test.mdb")

set rs=server.createobject("adodb.recordset")
sql="select * from test where id=1"
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then
response.write rs("test")
else
response.write "没有你要找的记录！！"
end if
%>

[jinyut]

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("test.mdb")
就是这句 的问题 有什么解决的办法吗？

[yinuo8202]

你程序没有错误,是你没有对数据库的操作权限,在工具->文件夹选项->查看->使用简单文件共享勾掉,
再把你的网站根文件夹->属性打开,->安全->添加->高级->USER-,添加来宾用户权限,把相应的"修改\写入"的权限勾种,就行了

[abcdefg3305]

<%
set conn=server.CreateObject("adodb.connection")
conn.open "DBQ="&server.mappath("test.mdb")&";driver={microsoft access driver (*.mdb)}"
%>