数据库连接出错,请打开conn.asp文件检查连接字串.
如下网站web下请问大神如何修改可以使用'ConstSqlUsername="sa"ConstSqlPassword="newasp"ConstSqlLocalName=...
如下 网站web下 请问大神如何修改 可以使用
'
Const SqlUsername = "sa"
Const SqlPassword = "newasp"
Const SqlLocalName = "(local)"
'-------------------------------------------------------------------------------
Else
'-----------------------ACCESS数据库连接----------------------------------------
NowString = "Now()"
'--ACCESS数据库连接路径;数据库默认在database目录,第一次使用请修改默认数据库名或路径
'--数据库路径可以使用绝对路径
db = "database/#data.mdb"
'-------------------------------------------------------------------------------
End If
Dim CJ_DBPath
'-- 采集数据库连接路径
CJ_DBPath = "database/#Collection.resx"
Sub ConnectionDatabase()
On Error Resume Next
Set Conn = NewAsp.CreateAXObject("ADODB.Connection")
If IsSqlDataBase = 1 Then
Connstr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ChkMapPath(MyAppPath & db)
End If
Conn.Open Connstr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请打开conn.asp文件检查连接字串。"
Else
'ACCESS数据库连接字符串
Ask_db = "ask/data/ask_newasp.resx"
Ask_Connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & ChkMapPath(MyAppPath & Ask_db) 展开
'
Const SqlUsername = "sa"
Const SqlPassword = "newasp"
Const SqlLocalName = "(local)"
'-------------------------------------------------------------------------------
Else
'-----------------------ACCESS数据库连接----------------------------------------
NowString = "Now()"
'--ACCESS数据库连接路径;数据库默认在database目录,第一次使用请修改默认数据库名或路径
'--数据库路径可以使用绝对路径
db = "database/#data.mdb"
'-------------------------------------------------------------------------------
End If
Dim CJ_DBPath
'-- 采集数据库连接路径
CJ_DBPath = "database/#Collection.resx"
Sub ConnectionDatabase()
On Error Resume Next
Set Conn = NewAsp.CreateAXObject("ADODB.Connection")
If IsSqlDataBase = 1 Then
Connstr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ChkMapPath(MyAppPath & db)
End If
Conn.Open Connstr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请打开conn.asp文件检查连接字串。"
Else
'ACCESS数据库连接字符串
Ask_db = "ask/data/ask_newasp.resx"
Ask_Connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & ChkMapPath(MyAppPath & Ask_db) 展开
1个回答
2016-02-19 · 为您提供更好的产品和服务
七彩虹科技有限公司
七彩虹科技成立于1995年,中国著名的DIY硬件厂商, 亚太区最重要的显示卡提供商之一。专注于IT硬件产品研发、生产和销售,致力于为个人和企业用户提供最具创新与实用价值的硬件产品及应用方案。
向TA提问
关注
展开全部
将db = "\database\#newasp.mdb"改为 db = "\gaosange\database\#newasp.mdb" 前提是你的域名绑定在空间的根目录。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询