问题没能解决,代码如下:
Db = "test.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
'ConnStr = "File Name = E:\bbs\data\test.udl"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
set rs = server.CreateObject ("Adodb.recordset")
conn.open ConnStr
If Err Then
'err.Clear
Set Conn = Nothing
Response.Write Server.MapPath(db) &"<BR>"
Response.Write err.description &err.number &"<br>"
Response.Write "测试数据库连接出错,请检查连接字串。"
Response.End
End If