数据库连接错误，请检查连接字符串。

网址是：http://www.club315.com/
大家可以看到有二个模块是提示 “ 数据库连接错误，请检查连接字符串。”
我也改过数据库的名称，但始终不对，麻烦大家给我看下。

' 可修改设置一：========================定义数据库类别，1为SQL数据库，0为Access数据库=============================
Const IsSqlDataBase = 0

If IsSqlDataBase = 1 Then
' 必修改设置二：========================SQL数据库设置=============================================================
' sql数据库连接参数：数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
' 连接名(SqlLocalName)（本地用local，外地用IP）
Const SqlDatabaseName = "iXuEr_Pams_1" ' 数据库名
Const SqlUsername = "iXuEr_Studio" ' 用户名
Const SqlPassword = "iXuEr_Studio" ' 用户密码
Const SqlLocalName = "(local)" ' 连接名
' ================================================================================================================
SqlNowString = "GetDate()"
Else
' 必修改设置三：========================Access数据库设置==========================================================
' 用户第一次使用请在这里修改数据库地址和名称
DBPath = "../DB/"
DB = DBPath & "#nowshop.asp"
' ================================================================================================================
SqlNowString = "Now()"
End If
' ============================================
' 函数名称：ConnectionDatabase
' 函数功能：为全站创建主数据库连接
' ============================================
Function ConnectionDatabase()
On Error Resume Next
If IsSqlDataBase = 1 Then
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
'第一次使用请修改本处数据库地址并相应修改data目录中数据库名称
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyRootPath & DB)
End If

Set Conn = Server.CreateObject(ServerObject_001)
Conn.Open ConnStr

If Err Then
Err.Clear
Set Conn = Nothing
Response.Write("数据库连接错误，请检查连接字符串。")
'Response.Write("The database connection error , please check the connection character string .")
Response.End()
End If
End Function