日期:2014-05-17  浏览次数:21031 次

***********http500 错误(Window 2003 iis6.0 弄了一天,查遍网上所有方法都不能用,急用,在线等,高手给看看,谢谢了!!!)*******
就是这段代码出错,我在其他机上运行正常,去掉友好错误提示以下错误:

--------------------------
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的读写权限