就是这段代码出错,我在其他机上运行正常,去掉友好错误提示以下错误:
--------------------------
Microsoft JET Database Engine 错误 '80004005 '
未指定的错误
/test/Inc/conndb.asp，行 12
---------------------------
以下是conndb.asp代码
<%
'Option Explicit
dim conn
dim connstr
connstr= "Databases/db.mdb "
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(connstr)
Set conn = Server.CreateObject( "ADODB.Connection ")
if err Then
err.clear
end if
conn.Open connstr
sub CloseConn()
conn.Close()
Set conn = Nothing
end sub
%>
------解决方案--------------------
------解决方案--------------------
把你多余的代码去掉，写车工下边这个样子试下，在结合我上边的帖子，换换连结字串试一下，
<%
dim db
db= "database/db.mdb "
set conn=server.createobject( "adodb.connection ")
conn.open "provider=Microsoft.Jet.OLEDB.4.0;data source= "&server.mappath(db)
sub CloseConn()
conn.Close()
Set conn = Nothing
end sub
%>
------解决方案--------------------
on error resume next
dim conn,connstr,db
db= "database/db.mdb " '修改连接
connstr= "provider=microsoft.jet.oledb.4.0;data source= " & server.mappath(db)
set conn = server.createobject( "adodb.connection ")
conn.open connstr
if err then
err.clear
set conn = nothing
response.write "数据库连接出错，请检查连接字串。 "
response.end
end if
'***关闭数据库***
function closedatabase
conn.close
set conn = nothing
end function
这是我固定使用的格式
------解决方案--------------------
别乱说了,这跟程序什么的都没关系,是你ACCESS那个MDB文件的位置对于WEB访问用户没有读取权造成的
------解决方案--------------------
先把你的错误弄清楚，看看err.description 或者err.number是什么。只要知道错误类型就好办了。
------解决方案--------------------
在你的Databases文件里有没有db.ldb这个文件没有？
有的话将其删除掉试试看
------解决方案--------------------
C:\Documents and Settings\NetworkService\Local Settings下temp目录和C:\Documents and Settings\LocalService\Local Settings下temp目录都添加EVERYONE的读写权限