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

如果是ACCESS的数据库,查检数据库路径的数据库名有没有被修改:
DBPath = "/KS_Data/KS_DataBase.mdb"
这句表示数据库在站点根目录下的KS_Data文件夹中;如果是站内的二级站,则将路径改为DBPath = "KS_Data/KS_DataBase.mdb"即可。

如果是MSSQL数据库,检查
DataServer = "(local)" '数据库服务器IP
DataUser = "sa" '访问数据库用户名
DataBaseName = "JJ71 CMS" '数据库名称
DataBasePsw = "989066" '访问数据库密码
这几个参数有没有错误.
(本机数据库用local,远程数据库填写IP)

Answer 2

<%
给你整理了下，你复制我的测试下
'==================数据库路
Dim DatabasePath

DatabasePath=dkacc#/$@dk@$cn.mdb
'==================数据库连接
Dim
Conn,ConnStr
On
error
resume
next
Set
Conn=Server.CreateObject("Adodb.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="&Server.MapPath(DatabasePath)
Conn.open
ConnStr
if
err
then

err.clear

Set
Conn
=
Nothing

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

Response.End
end
if
%>

Answer 3

连接字符串写错了吧？
ConnStr
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
&
Server.MapPath(db)
Data
Source="
&
这个是什么意思？后面也没加;分隔。重新指定下数据源再连接试试。

Answer 4

<%@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 5

引用驱动不符合，修改连接字符串试试
ConnStr
=
"DRIVER={SQL
Server};SERVER=(local);UID=sa;PWD=hack;DATABASE=33;"
修改连接字符串，
如果是sql2000用
ConnStr
=
"DRIVER={SQL
Server};Server=.;uid=sa;pwd=hack;database=33"
或者
ConnStr
=
"Provider=Sqloledb;User
ID=sa;Password=hack;Initial
Catalog=33;Data
Source=(local)"
如果是2005
ConnStr
=
"Provider=SQLNCLI;Server=(local);Database=33;Uid=sa;Pwd=hack"
都试试