Question

输入http://127.0.0.1时提示：数据库连接出错，请检查Conn.asp文件中的数据库参数设置。

Conn.asp文件内容：
<%
Dim SqlNowString,DataPart_D,DataPart_Y,DataPart_H
Dim Conn,DBPath,CollectDBPath,DataServer,DataUser,DataBaseName,DataBasePsw,
ConnStr,CollcetConnStr
Const DataBaseType=0 '系统数据库类型，"1"为MS SQL2000数据库，"0"为MS ACCESS 2000数据库
Const MsxmlVersion=".3.0" '系统采用XML版本设置
Const EnableSiteManageCode = True '是否启用后台管理认证码 是： True 否：False
Const SiteManageCode = "qdnlyw888" '后台管理认证码，
If DataBaseType=0 then '如果是ACCESS数据库，请认真修改好下面的数据库的文件名DBPath = "KS_Data/qdnlywqaz!@#.mdb" 'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径
Else
'如果是SQL数据库，请认真修改好以下数据库选项
DataServer = "(local)" '数据库服务器IP
DataUser = "sa" '访问数据库用户名
DataBaseName = "KesionCMS6" '数据库名称
DataBasePsw = "989066" '访问数据库密码
End if
'采集数据库路径
CollectDBPath="KS_Data\Collect\KS_Collect.Mdb"
Call OpenConn
Sub OpenConn()
On Error Resume Next
If DataBaseType = 1 Then
ConnStr="Provider = Sqloledb; User ID = " & datauser & "; Password = " & databasepsw & "; Initial Catalog = " & databasename & "; Data Source = " & dataserver & ";"
SqlNowString = "getdate()"
DataPart_D = "d"
DataPart_Y = "y"
DataPart_H = "hour"
Else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
SqlNowString = "Now()"
DataPart_D = "'d'"
DataPart_Y = "'yyyy'"
DataPart_H = "'h'"
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
%>
数据库在KS_Data文件夹里面，名字叫：qdnlywqaz!@#.mdb。Conn.asp和KS_Data在通一个目录wwwroot中。
上文中这句话是什么意思？采集数据库路径CollectDBPath="KS_Data\Collect\KS_Collect.Mdb"
我要用的是Access数据库。请高手帮忙解决。

Answer 1

查找conn.asp 文件或config.asp文件。一般人都用这2个文件来做数据库连接配置文件名称。

找到里面的"server.mappath(一句。后面的应该是数据库名称。如果不是.mdb的，比如.asp的。那么找到这个文件。把.asp改为.mdb 比如原来是 data.asp 改成 data.mdb 。然后用access打开数据库，找到用户表，打开用户表，找到你哪个帐号的密码字段。用其他md5的字符内容替换你哪个帐号密码字段内容即可

Answer 2

If DataBaseType=0 then '如果是ACCESS数据库，请认真修改好下面的数据库的文件名DBPath = "KS_Data/qdnlywqaz!@#.mdb" 'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径

上面语句错误，数据库路径 不是你自己设置的 CollectDBPath
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
你数据库链接的 是 DBPath 数据库

追问

那该怎么改？我要操作这个qdnlywqaz!@#.mdb数据库里的表。你就告诉我在哪儿怎么改？改成什么样？或者你可根据上面的内容写一个Conn.asp。只要能够连起Access数据库，并进行操作就可以了。

追答

你查一下 ，用Server.MapPath修改下你的路径

追问

..........
DBPath = "KS_Data/qdnlywqaz!@#.mdb"
.........
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
这儿不是吗？该怎么改？在哪儿改？改成什么？你直接改过来嘛，我是第一次接触asp+Access什么都不懂。麻烦了，谢谢。

Answer 3

路径不对，用Server.MapPath下

追问

..........
DBPath = "KS_Data/qdnlywqaz!@#.mdb"
.........
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
这儿不是吗？该怎么改？在哪儿改？改成什么？

Answer 4

路径不争取

Answer 5

ggggggggggggggggggggggg