IIS下ASP连接数据库错误请教

来源：百度知道 编辑：UC知道 时间：2024/06/15 03:59:26
网页错误提示:Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'

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

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

[Microsoft][ODBC 驱动程序 管理器] 未发现数据源名称并且未指定默认驱动程序

/asp/opendb.asp，行8
ASP文件内容为:<%
session.abandon
'Server.ScriptTimeOut=500
function opendb(DBPath,sessionname,dbsort)
dim conn
if not isobject(session(sessionname)) then
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & DefaultDir &server.mappath("/oa/oa.MDB")&";"
set session(sessionname)=conn
end if
set opendb=session(sessionname)
end function
%>

请改为conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & DefaultDir &server.mappath("oa/oa.MDB")&";" 测试如果不行，那你用这种方法，试试

<%
dim conn
dim connstr
db="oa/oa.MDB" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
%>

程序代码没有错误。不过有一点：不知道你的DefaultDir 是什么意思，如果是路径的话，看看他是不是完整。
程序提示你的问题说明是你的数据库文件没有找到。