Question

“数据库连接出错，请检查Conn.asp文件中的数据库参数“

我下载下来一个网站，重新传到另一个空间，出现问题“数据库连接出错，请检查Conn.asp文件中的数据库参数“ 是从一个正常运行的网站下载的，在本地用”专用代码调试工具“运行也正常，就是传到其他空间出现“数据库连接出错，请检查Conn.asp文件中的数据库参数“这个提示！
conn.asp代码为
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim db
const DatabaseType="ACCESS"
db="..\cnhwwdata\#tanxia@hudazhou520.asp"
On Error Resume Next
dim ConnStr
dim conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>

在线等待，谢谢

Answer 1

将下面代码 替换conn.asp 的内容
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim DataLinkType,conn,connstr,MyDbPath
MyDbPath="/cnhwwdata/#tanxia@hudazhou520.asp" '数据库文件位置
DataLinkType = 0 '设置数据库连接方式，1为SQL数据库，0为Access数据库
If dataLinkType=0 Then
'**************************************************
'使用Access数据库
'**************************************************
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath)
Else
'**************************************************
'使用SQL数据库
'**************************************************
'ConnStr = "Driver={SQL Server}; server=(local);uid=sa;pwd=windows;database=data1;"
ConnStr = "Provider=SQLNCLI; server=.\SQLEXPRESS;uid=sa;pwd=windows;database=data1;"
End If
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
Response.End
End If
'**************************************************
'关闭数据库
'**************************************************
sub CloseConn()
conn.close
set conn=nothing
end sub
%>

Answer 2

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim db
const DatabaseType="ACCESS"
db="../cnhwwdata/#tanxia@hudazhou520.asp"
On Error Resume Next
dim ConnStr
dim conn
Set conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>

追问

刚试了，没变化！看看还有什么方案，谢谢！

追答

Answer 3

你的连接字符串写错啦connstr

提供两种写法给你
1、Data Source=LCHY-PC\SQL2000;Initial Catalog=master;User ID=sa;Password=123456
2、server=ip地址;database=数据库名;uid=登录名;pwd=密码

有疑问可HI我。

追问

本地运行没事，在其他空间正常运行下载下来的！具体程序我不懂！

Answer 4

数据库 路径有问题