关于数据库的问题!!!!!!怎么一直不对呀!!!?????-领先建站CMS提供服务商我们专注于CMS建站产品的研发

2945 查看	6 回复

主题：关于数据库的问题!!!!!!怎么一直不对呀!!!????? [收藏主题]

转到：

pp555 当前离线

40 主题	0 广播	0 粉丝

级别:学前班

用户积分:454 分
登录次数:48 次
注册时间:2006/8/6
最后登录:2008/6/10

pp555 发表于：2006/8/6 3:32:00 | 显示全部帖子查看该作者主题楼主

做官网就用科汛智能建站系统!

第二步、用计事本打开根目录下的conn.asp 文件修改数据库连接,ACCESS版请注意连接路径,请使用根相对路径填写数据库路径。
系统默认在站点根目录，如果你在子目录下面运行本程序，请在数据库连接名称前加上目录名称；
DBPath = "\Database\KS_DataBase.mdb" 改为：DBPath = "\子目录\Database\KS_DataBase.mdb" 前面一定要加上“\”

第三步、打开Admin目录下的ChkCode.asp文件，更改后台认证码参数(后台登录默认是开启认证码功能，初始认证码为：kesion2006)

我把这个程序传到了wwwroot 的 news 目录的 kexun 目录里了有 KesionCMS V2.2 Sp2 和KesionCMS+Dvbbs V7.1整合程序

两个文件夹

就是这样的 /news/kexun/KesionCMS V2.2 Sp2/Conn.asp

我问问的 ACCESS连接路径,请使用根相对路径填写数据库路径

是什么呀

我一直连不对呀

是把KesionCMS V2.2 Sp2 和KesionCMS+Dvbbs V7.1整合程序

两个文件夹中的conn.asp 都改了吗

请看下面代码

求您给改一下回个贴好吗??????

谢谢了!!!!!!

<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2900.2627" name=GENERATOR></HEAD>
<BODY><PRE><%
Dim SqlNowString,SiteSN,Conn,DBPath,CollectDBPath,DataServer,DataUser,DataBaseName,DataBasePsw
Const DataBaseType=0 '系统数据库类型，"1"为MS SQL2000数据库，"0"为MS ACCESS 2000数据库
Const SysVer=1

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

'采集数据库路径
CollectDBPath="\Database\Collect\KS_Collect.mdb"

Call OpenConn
Sub OpenConn()
    On Error Resume Next
    Dim ConnStr
    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

    Application("DBPath") = DBPath
    Application("ConnStr") = ConnStr
Application("CollcetConnStr") ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( CollectDBPath)
    Application("DataBaseType") = DataBaseType
Application("SqlNowString")=SqlNowString
    Application("SysVer") = SysVer

End Sub
Sub CloseConn()
    On Error Resume Next
Conn.close:Set Conn=nothing
End sub
%>
</PRE></BODY></HTML>