Question

数据库连接出错，请检查数据库连接文件中的数据库参数设置。

<%
'==================数据库路
Dim DatabasePath
DatabasePath="System/Database/Content.mdb"
'==================数据库连接
Dim Conn,ConnStr
On error resume next
Set Conn=Server.CreateObject("Adodb.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(DatabasePath)
Conn.open ConnStr
if err then
err.clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查数据库连接文件中的数据库参数设置。"
Response.End
end if
%>
请写出正确代码，谢谢

Answer 1

这个是友好报错，你先复制下面的代码看看具体报什么错误。
<%
'==================数据库路
Dim DatabasePath
DatabasePath="System/Database/Content.mdb"
'==================数据库连接
Dim Conn,ConnStr
'On error resume next
Set Conn=Server.CreateObject("Adodb.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(DatabasePath)
Conn.open ConnStr
'if err then
' err.clear
' Set Conn = Nothing
' Response.Write "数据库连接出错，请检查数据库连接文件中的数据库参数设置。"
' Response.End
'end if
%>

追问

谢谢你的帮助，但依然无法处理该问题

追答

我的代码是让他报原始错误，你执行了报什么错误了吗？