杭州交通信息网有桥一定有花园:asp和access高手请看……
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/21 00:10:41
这个程序在学校的机子运行完全正常，可是在家里的机子上就出现这种错误。
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft JET Database Engine 错误 '80004005'
未指定的错误
/998/bkconn.asp，行5
我看了下,bkconn.asp的代码是：
<%
dim conn
db="bmfy.mdb"
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
%>
请指教，多谢!!
to 闲人设计:
我装了Access2003，把bkconn.asp改成
<%
dim conn
set conn=server.createobject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bmfy.mdb")
%>
，又出现了这个错误:
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft JET Database Engine 错误 '80004005'
未指定的错误
/998/bkconn.asp，行4
----------------------------------------------
to harvey168：
我把bkconn.asp改成
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("bmfy.mdb")
%>
，出现这样的错误：
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 0x7a4 Thread 0x960 DBC 0x1352514 Jet'。
/998/bkconn.asp，行3
连接ACCESS数据库正确代码如下：
============Code Begin======================
<%
dim db
dim conn,connstr
db="数据库相对路径"
set conn=server.createobject("adodb.connection")
connstr="provider=Microsoft.Jet.Oledb.4.0;data source="&server.MapPath(""&db&"")
conn.open connstr
%>
================Code End======================
连接SQL Server数据库正确代码如下：
================Code Begin===================
<%
dim conn,connstr
set conn=Server.CreateObject("ADODB.Connection")
connstr="driver={SQL Server};Server=SQL服务器名;UID=用户名;PWD=密码;Database=数据库名"
conn.open connstr
%>
===================Code End=====================
和那个无关的吧,仔细看一下,数据库的路径大概不对
你的数据库驱动程序错了，换一个吧
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("bmfy.mdb")
%> 还有就是有一个IF 语句未结束。
首先数据库要这么链才可以<%
set conn=server.createobject("adodb.connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath("bmfy.mdb")
%>保证一定可以噢！～
少end 一般是少了一个end if．加上就可以了！～
我以前自己见到过这个问题,不知道你的和我的是不是一样,在Driver={Microsoft Access Driver (*.mdb)};dbq=这一行中,一定要有一个空格,去掉就出这个问题!