关于on error resume next及access连接

[skyearth]

我的asp程序一直运行正常，但是最近总是提示连接错误，我查了是on error resume next报错，此服务器未装access程序；但奇怪的是我将asp程序考到另一台装有access程序的服务器上一切就正常，是不是access必须装呀，但是为何以前也正常呀？

[sxldfang]

不是安装access的问题，我做的机器都不安装Access，免得有人直接打开看内容。

[skyearth]

那是什么原因呀？驱动？现在是开始可以打开页面，但很慢，过会就提示连接数据库错误.急！！！

[skyearth]

On error resume next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
if err.number<>0 then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End else
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "数据库连接出错!！"
Response.End
end if end if
红部分执行，蓝色并未执行。？？？

[sxldfang]

把这句：
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")

改成：
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)

应该Ok啦！

[sxldfang]

db 代表数据库的变量，应该对其赋值，比如：

db="product.mdb"

[Msxindl_Com]

<%
dim conn,connstr
sub connect()
   on error resume next
   set conn=server.createobject("adodb.connection")
   connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb")
   conn.open connstr
   if err.number<>0 then
      err.clear
      conn.close
      set conn=nothing
      response.write("数据库连接失败!!")
      response.end
   end if
end sub
call connect()
%>

[Dogfish]

是不是说数据库打开失败？有可能是你的access数据库变成不可访问等等问题。

[toury]

可能是ADO文件被破坏了。到微软的网站，下载个高点的版本MDAC_TYP.exe覆盖安装一下；

[yangtututu]

Microsoft.Jet.OLEDB.4.0

的驱动 要装一下，你去网上找 个 驱动装一状

[skyearth]

还是不行呀，不是程序的问题，我已说过了，换台机器就好了，但是我这台服务器，是托管的，装太麻烦，再者我想找到原因！有没有高手呀，前面说的驱动我都装了，好像还是不行（我下的应该是对的，要不麻烦给个链接？），帮帮我吧！