修改 commond.asp 文件，找到：
程序代码： [ 复制代码到剪贴板 ]
Dim Conn
Set Conn= Server.CreateObject("ADODB.Connection")
修改 commond.asp 文件，找到：
程序代码： [ 复制代码到剪贴板 ]
Dim Conn
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AccessPath&"/"&AccessFile)
Conn.Open
修改为：
程序代码： [ 复制代码到剪贴板 ]
Dim Conn
On Error Resume Next
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AccessPath&"/"&AccessFile)
Conn.Open
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write("
| 数据库连接出错，请检查连接字串 |
Response.End
End If
