数据库连接错误,请检查连接字符串。
jx633 2009-08-14 11:10:02 网址是: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