奇怪的ACCESS数据库连接出错，高手指点下

Question

改成 Response.Write "" & err.description & ""结果网页上面什么内容都没有；改成Response.Write 数据库连接出错，请检查连接字串……则显示“数据库连接出错，请检查连接字串……”代码如下：
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True
Dim Startime
Dim SqlNowString,bbs,template,MyBoardOnline
Dim Conn,Plus_Conn,Db,MyDbPath
Const fversion="7.1.0 Sp1"
Const EnabledSession= True
Startime = Timer()Const MsxmlVersion=".3.0"
Const IsSqlDataBase = 0
MyDbPath = ""
If IsSqlDataBase = 1 Then
    Const SqlDatabaseName = "bbs"
    Const SqlPassword = "bbs"
    Const SqlUsername = "bbs"
    Const SqlLocalName = "(local)"
    SqlNowString = "GetDate()"
Else
    Db = "data/db.mdb"
    SqlNowString = "Now()"
End IfConst IsDeBug = 1
Set bbs = New Cls_Forum
Set template = New cls_templatesSub ConnectionDatabase
Dim ConnStr
If IsSqlDataBase = 1 Then
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db)
End If On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
'Response.Write ConnStr
conn.open ConnStr If Err Then
err.Clear
Set Conn = Nothing

Response.Write "" & err.description & ""   
                  Response.End
End If
End Sub
%>

Answer 1

贴路径出来看看撒，不是Firewall的问题

Answer 2

啊， ASP ...还同时用 Access 和 SQL ....输出你的连接字符串 看看是否正确撒

Answer 3

改成 Response.Write err.description & " " & ConnStr
结果显示：未指定的错误 Provider = Microsoft.Jet.OLEDB.4.0;Data Source = D:\bbs\Data\db.mdb 这个路径是正确的

Answer 4

我的网站也碰到同样的问题,不过奇怪的是,过个10分钟左右就可以了,是不是多用户的时候Access毛病多

Answer 5

http://www.lanxingkong.net/blog/article.asp?id=254