科讯管理系统测试问题:数据库连接出错,请检查Conn.asp文件中的数据库参数设置

<%
Dim SqlNowString,DataPart_D,DataPart_Y,DataPart_H,DataPart_S
Dim

Conn,DBPath,CollectDBPath,DataServer,DataUser,DataBaseName,DataBasePsw,ConnStr,CollcetConnSt

r
Const DataBaseType=1 '系统数据库类型，"1"为MS SQL2000数据库，"0"为MS

ACCESS 2000数据库
Const MsxmlVersion=".3.0" '系统采用XML版本设置

Const EnableSiteManageCode = False '是否启用后台管理认证码 是： True 否： False
Const SiteManageCode = "8888" '后台管理认证码，请修改，这样即使有人知道了您的后台用户名

和密码也不能登录后台

If DataBaseType=0 then
'如果是ACCESS数据库，请认真修改好下面的数据库的文件名
DBPath = "\KesionCMS\KS_Data\KesionCMS6.mdb" 'ACCESS数据库的文件名，请使

用相对于网站根目录的的绝对路径
Else
'如果是SQL数据库，请认真修改好以下数据库选项
DataServer = "(127.0.0.1:88)" '数据库服务器IP
DataUser = "admin" '访问数据库用户名
DataBaseName = "admin" '数据库名称
DataBasePsw = "5639" '访问数据库密码
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"
DataPart_S = "s"
Else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
SqlNowString = "Now()"
DataPart_D = "'d'"
DataPart_Y = "'yyyy'"
DataPart_H = "'h'"
DataPart_S = "'s'"
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

'==============================================全局临时变量类开始

==============================
Dim GCls:Set GCls=New GlobalVarCls
Class GlobalVarCls
Public StaticPreList,StaticPreContent,StaticExtension
Private Sub Class_Initialize()
StaticPreList = "list" rem 伪静态列表前缀 不能包含"?"及"-"
staticPreContent = "thread" rem 伪静态内容前缀
我的安装目录为:C:\Inetpub\wwwroot\KesionCMS
我的IP地址为:http://127.0.0.1:88/
哪位能帮我解决一下啊,谢谢!

StaticExtension = ".html" rem 伪静态扩展名
End Sub
Private Sub Class_Terminate()
Set GCls=Nothing
End Sub

Public Function Execute(Command)
If Not IsObject(Conn) Then OpenConn()
On Error Resume Next
Set Execute = Conn.Execute(Command)
If Err Then
Response.Write("查询语句为：" & Command & "
")
Response.Write("错误信息为：" & Err.Description & "
")
Err.Clear
Set Execute = Nothing
Response.End()
End If
'Sql_Use = Sql_Use + 1
End Function

Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> 80 Then
版本是V6.5的
请帮助解决数据库连接出错的原因,谢谢!

打开我的电脑------工具-------文件夹选项---------打开"查看" 把选项卡中，去掉 "使用简单文件共享（推荐）" 前面的勾,
去C:\WINDOWS\下找到temp目录，点右键---安全---添加--高级--立即查找---添加Everyone，Everyone权限，选择完全控制

打开conn.asp检查你的安装路径是否和conn.asp里面的一致，'如果是access数据库，请认真修改好下面的数据库的文件名dbpath = "/ks_data/kesioncms6.mdb" 'access数据库的文件名，请使用相对于网站根目录的的绝对路径另外就是数据库的选择，免费版本是access，是否如下设置：const databasetype=0 '系统数据库类型，"1"为ms sql2000数据库，"0"为ms access 2000数据库

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息