该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

我用的是小旋风asp服务器，运行后，显示：主数据库连接出错，请检查数据库连接字符串！

请问各位大侠那里出错了？？

conn.asp里面的代码是：

Dim DbPath,DbPath_U,DbPath_Log

Dim Conn,Conn_U,Conn_Count,Conn_Log

Dim Db,Cl,Template,Count,ClUbb,TempStr

Dim IsSqlDataBase,IsSqlDataBase_U

Dim SqlNowString,FalseType,TrueType

Dim SqlNowString_U,FalseType_U,TrueType_U

Dim SqlDatabaseName,SqlUsername,SqlPassword,SqlLocalName

Dim SqlDatabaseName_U,SqlUsername_U,SqlPassword_U,SqlLocalName_U

Dim CreateHtmlIng,DefaultPage,CreateFilePre

Set Db = New Cls_DataBase

Set Cl = New Cls_CmsSysTem

Set Template = New Cls_Templates

CreateHtmlIng=False:DefaultPage="Index"  Rem 是否正在生成HTML

Const IsDeBug= 0Rem 是否显示查询错误信息   0为否，1为是

Const SaveLog= 1Rem 是否保存攻击日志       0为否，1为是

Const InstallDir= "/"Rem 网站安装目录，根目录用“/”，请用"/"开头及结尾：如安装在Cl3目录下，则值为：“/Cl3/”

Const BbsDir= "/Bbs/"Rem 论坛安装目录，根目录用“/”，请用"/"结尾，整合论坛时生效

Const SysTemVersion = 0Rem 系统版本，请不要更改，否则会出错

Const UserTableType = "Clwang"' "Clwang"   --- 不整合论坛

' "Dvbbs"    --- 整合动网7.0论坛

IsSqlDataBase= 0'主数据库类型，"1"SQL，"0"为ACCESS

IsSqlDataBase_U = 1'用户数据库类型，"1"SQL，"0"为ACCESS

'注：用户数据库类型，在整合论坛时才生效，如不整合论坛，则自动取主数据库类型。

DbPath= InstallDir & "Data/Cl_CreateLiveCmsV3.mdb"'Access版主数据库文件的位置(请用绝对路径)

DbPath_U= BbsDir & "Data/Dvbbs7.mdb"  'Access版论坛数据库文件的位置(整合论坛时生郊)

DbPath_Log= InstallDir & "Data/Cl_Log.Asp"  '管理员及SQL注入记录数据库

'====SQL版主站 数据库参数=====

SqlDatabaseName= "ClWeb2"'主数据库名

SqlUsername= "ClWeb2"'主数据库登录用户

SqlPassword= "123456"'主数据库登录密码

SqlLocalName= "(local)"'数据库服务器，本机用“(local)”

'====SQL版论坛 数据库参数 (整合论坛时生郊)=====

SqlDatabaseName_U= "bbs"'论坛数据库名

SqlUsername_U= "bbs"'论坛数据库登录用户

SqlPassword_U= "123456"'论坛数据库登录密码

SqlLocalName_U= "(local)"'论坛数据库服务器，本机用“(local)”

'===========================================================================

'以下部分，不需要再改！

'===========================================================================

If UserTableType = "Dvbbs" Then

Db.UserTable= "[Dv_User]"

Db.MessageTable= "[Dv_Message]"

Db.FriendTable= "[Dv_Friend]"

Db.UserFaceWidth= "Userwidth"'头像宽度

Db.UserFaceHeight= "Userheight"    '头像高度

Db.UserTPassWord= "WebTruePassWord"

Else

Db.UserTable= "[Cl_User]"

Db.MessageTable= "[Cl_Message]"

Db.FriendTable= "[Cl_Friend]"

Db.UserFaceWidth= "FaceWidth"'头像宽度

Db.UserFaceHeight= "FaceHeight"    '头像高度

Db.UserTPassWord= "TruePassWord"

DbPath_U= DbPath

SqlDatabaseName_U= SqlDatabaseName

SqlUsername_U= SqlUsername

SqlPassword_U= SqlPassword

SqlLocalName_U= SqlLocalName

IsSqlDataBase_U= IsSqlDataBase

End If

Db.UserID= "UserID"'用户ID

Db.UserName= "UserName"'用户名

Db.UserPassword= "UserPassword"'密码