打开网站时提示“数据库连接出错,请检查Conn.asp文件中的数据库参数设置。”请高手指教!
conn文件的内容如下:<%Response.CodePage=65001Response.Charset="utf-8"DimSqlNowString,DataPart...
conn文件的内容如下:
<%
Response.CodePage=65001
Response.Charset="utf-8"
Dim SqlNowString,DataPart_D,DataPart_Y,DataPart_H,DataPart_S
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 = "1111" '后台管理认证码,请修改,这样即使有人知道了您的后台用户名和密码也不能登录后台
If DataBaseType=0 then
'如果是ACCESS数据库,请认真修改好下面的数据库的文件名
DBpath="\KS_Data\KesionCMS6.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"
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
请将“KesionCMS程序”目录下面的所有文件上传到WEB空间
ACCESS安装调试
=============================================================================
第一步、将KesionCMS程序上传到你的WEB空间;
第二步、系统默认在站点根目录,无需修改任何文件即可使用。
如果你在子目录下面运行本程序,用计事本打开根目录下的conn.asp 文件修改数据库连接,请在数据库连接名称前加上目录名称:
DBPath = "\KS_Data\KesionCMS6.mdb" 改为:DBPath = "\子目录\KS_Data\KesionCMS6.mdb" 前面一定要加上“\”
第三步、建议更改默认的初始认证码(初始认证码为:8888),用记事本打开根目录下的conn.asp即可修改。
第四步、登录后台(Admin/login.asp)开始体验V6.5的全新功能吧~~(友情提示:默认用户名:admin密码admin888,初始认证码为:8888) 展开
<%
Response.CodePage=65001
Response.Charset="utf-8"
Dim SqlNowString,DataPart_D,DataPart_Y,DataPart_H,DataPart_S
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 = "1111" '后台管理认证码,请修改,这样即使有人知道了您的后台用户名和密码也不能登录后台
If DataBaseType=0 then
'如果是ACCESS数据库,请认真修改好下面的数据库的文件名
DBpath="\KS_Data\KesionCMS6.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"
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
请将“KesionCMS程序”目录下面的所有文件上传到WEB空间
ACCESS安装调试
=============================================================================
第一步、将KesionCMS程序上传到你的WEB空间;
第二步、系统默认在站点根目录,无需修改任何文件即可使用。
如果你在子目录下面运行本程序,用计事本打开根目录下的conn.asp 文件修改数据库连接,请在数据库连接名称前加上目录名称:
DBPath = "\KS_Data\KesionCMS6.mdb" 改为:DBPath = "\子目录\KS_Data\KesionCMS6.mdb" 前面一定要加上“\”
第三步、建议更改默认的初始认证码(初始认证码为:8888),用记事本打开根目录下的conn.asp即可修改。
第四步、登录后台(Admin/login.asp)开始体验V6.5的全新功能吧~~(友情提示:默认用户名:admin密码admin888,初始认证码为:8888) 展开
3个回答
展开全部
'如果是ACCESS数据库,请认真修改好下面的数据库的文件名
DBpath="\KS_Data\KesionCMS6.mdb" 'ACCESS数据库的文件名,请使用相对于网站根目录的的绝对路径
'采集数据库路径
CollectDBPath="\KS_Data\Collect\KS_Collect.Mdb"
网站必须放在根目录下,如果不是要在前面加上你的网站存放目录,例如我放在网站根目录下web文件夹里就这样写:
DBpath="\web\KS_Data\KesionCMS6.mdb"
CollectDBPath="\web\KS_Data\Collect\KS_Collect.Mdb"
DBpath="\KS_Data\KesionCMS6.mdb" 'ACCESS数据库的文件名,请使用相对于网站根目录的的绝对路径
'采集数据库路径
CollectDBPath="\KS_Data\Collect\KS_Collect.Mdb"
网站必须放在根目录下,如果不是要在前面加上你的网站存放目录,例如我放在网站根目录下web文件夹里就这样写:
DBpath="\web\KS_Data\KesionCMS6.mdb"
CollectDBPath="\web\KS_Data\Collect\KS_Collect.Mdb"
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询