Question

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

我的科科讯系统,我上传到网上去的时候就出现
数据库连接出错，请检查Conn.asp文件中的数据库参数设置。

程序是
<%
Dim SqlNowString,SiteSN,Conn,DBPath,CollectDBPath,DataServer,DataUser,DataBaseName,DataBasePsw,ConnStr,CollcetConnStr
Const DataBaseType=0 '系统数据库类型，"1"为MS SQL2000数据库，"0"为MS ACCESS 2000数据库
Const SysVer=1

If DataBaseType=0 then
'如果是ACCESS数据库，请认真修改好下面的数据库的文件名
DBPath = "\KS_Data\KS_DataBase.mdb" 'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径
SqlNowString = "Now()"
Else
'如果是SQL数据库，请认真修改好以下数据库选项
DataServer = "(local)" '数据库服务器IP
DataUser = "sa" '访问数据库用户名
DataBaseName = "JJ71 CMS" '数据库名称
DataBasePsw = "989066" '访问数据库密码
SqlNowString = "getdate()"
End if

'采集数据库路径
CollectDBPath="\KS_Data\Collect\KS_Collect.Mdb"

Call OpenConn
Sub OpenConn()
On Error Resume Next
If DataBaseType = 1 Then
ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename
Else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。":Response.End
CollcetConnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(CollectDBPath)
End Sub
Sub CloseConn()
On Error Resume Next
Conn.close:Set Conn=nothing
End sub
%>

线上急等.谢谢

Answer 1

问题出在程序代码中没有明确指定数据库存放的位置，你可以临时屏蔽
On
Error
Resume
Next语名（即
'On
Error
Resume
Next），在ConnStr
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
&
Server.MapPath(db)后面加一条“response.write
ConnStr”语句，就会发现数据库路径问题。
如果数据库文件夹在网站根目录下，那么db=应写成：
db="\%$##@DS@!data\FDXW@#FSF#@#@.asp"

Answer 2

有几点要注意：1.是链接的地址，2.指定的数据库名称3.登录的账号和密码

Answer 3

应该是你的asp配置数据库的配置文件没有写好。

Answer 4

我试了一下你的这个连接数据库方法，没有错误，你看一下是不是你读取数据的时候
SQL
语句有什么问题
或者是RS获取某个字段写错了