求助，asp网站迁移后数据库连接错误

[UN2758]

网站是用创力（aspoo）内容管理系统套的，现在还在用，属于历史遗留问题。

前两天把网站迁移到新的服务器，打开首页显示：

主数据库链接出错，请检查数据库链接字符串！

conn.asp里面的东西实在是看不懂，特来向各位求助，顺路拜个师傅。

<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.Buffer = True
Response.CharSet= "GB2312"
Dim DbPath,DbPath_U,DbPath_L,DbPath_C
Dim Conn,Conn_U,Conn_L,Conn_Count,Conn_C
Dim Db,Cl,Template,PageData,Count,ClUbb,TempStr
Dim IsSqlDataBase,IsSqlDataBase_U,IsSqlDataBase_L
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 SqlDatabaseName_L,SqlUsername_L,SqlPassword_L,SqlLocalName_L
Dim CreateHtmlIng,DefaultPage,CreateFilePre
Set Db = New Cls_DataBase
Set Cl = New Cls_CMSSysTem
CreateHtmlIng=False : DefaultPage="Index" Rem 是否正在生成HTML
Const Web_Cookies = "Aspoo" Rem Cookies名称
Const SaveLog = 1 Rem 是否保存攻击日志(0为否，1为是)
Const SysTemVersion = 0 Rem 系统版本，请不要更改，否则会出错
Const MsxmlVersion = ".3.0" Rem XML版本 如果服务器不支持高版本，可留空
Const InstallDir = "/" Rem 安装目录，根目录用"/"，请用"/"开头及结尾(如安装在Cl3目录下，为"/Cl3/")
Const DatabaseDir = "Data/" Rem 数据库目录(相对于安装目录，用"/"结尾，注意：开头不要用"/")
Const BbsDir = "/Bbs/" Rem 论坛安装目录，根目录用"/"，请用"/"开头及结尾，整合论坛时生效
'如SQL论坛和主站不在一个虚拟空间，可直接用网址，如("http://bbs.aspoo.com/")
Const UserTableType = "Aspoo" Rem Aspoo=不整合论坛，Dvbbs=整合动网7
IsSqlDataBase = 0 '主数据库类型(1=SQL，0=AC)
IsSqlDataBase_U = 0 '论坛数据库类型(1=SQL，0=AC)整合论坛时才生效,不整合论坛，则自动取主数据库类型
IsSqlDataBase_L = 0 'Log数据库类型(1=SQL，0=AC)
DbPath = InstallDir & DatabaseDir & "#Cl_CreateLiveCMSv42-20091223" 'Access主数据库文件位置(请用绝对路径)
DbPath_U = BbsDir & "Data/Dvbbs8.mdb" 'Access论坛数据库文件位置(整合论坛时生郊)
DbPath_L = InstallDir & DatabaseDir & "#Cl_Log.mdb" 'AccessLog数据库位置
Rem SQL主站数据库参数==Begin
SqlDatabaseName = "ClCMSv4" '主数据库名
SqlUsername = "ClCMSv4" '主数据库登录用户
SqlPassword = "123456" '主数据库登录密码
SqlLocalName = "(local)" '数据库服务器，本机用"(local)"
Rem SQL主站数据库参数==End

Rem SQL论坛数据库参数 (整合论坛时生郊)==Begin
SqlDatabaseName_U = "bbs" '论坛数据库名
SqlUsername_U = "bbs" '论坛数据库登录用户
SqlPassword_U = "123456" '论坛数据库登录密码
SqlLocalName_U = "(local)" '论坛数据库服务器，本机用"(local)"
Rem SQL论坛数据库参数 (整合论坛时生郊)==End

Rem SQLLog数据库数据库参数==Begin
SqlDatabaseName_L = "ClLog" 'Log数据库名
SqlUsername_L = "ClLog" 'Log数据库登录用户
SqlPassword_L = "123456" 'Log数据库登录密码
SqlLocalName_L = "(local)" 'Log数据库服务器，本机用"(local)"
Rem SQLLog数据库数据库参数==End
Rem =====================================================
Rem 以下部分，不需要再改！
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" '密码
Db.UserEmail = "UserEmail" 'Email地址
Db.UserSex = "UserSex" '性别
Db.UserFace = "UserFace" '头像
Db.UserJoinDate = "JoinDate" '注册日期
Db.UserLastLogin = "LastLogin" '最后登录时间
Db.UserLogins = "UserLogins" '登录次数
Db.UserQuestion = "UserQuesion" '忘记密码的提示问题
Db.UserAnswer = "UserAnswer" '问题答案
Db.UserLastIP = "UserLastIP" '最后登录IP
'=============================
Db.UserIM = "UserIM" '用户IM,0123456,bbsxp(012345)
Db.UserLock = "LockUser" '是否锁定用户
Db.UserWealth = "UserWealth" '用户金钱（整合DVBBS用）
Db.UserMoney = "UserMoney" '用户金币
Db.UserMsg = "UserMsg" '短消息状态
'=============================
Db.UserReName = "UserReName" '真实姓名
Db.UserTelePhone = "UserTelePhone" '办公电话
Db.UserAddRess = "UserAddRess" '通讯地址
Db.UserBirthday = "UserBirthday" '用户生日
Db.IDCard = "IDCard" '身份证号
Db.CityInfo = "CityInfo" '城市
Db.ZipCode = "ZipCode" '邮编
Db.SchoolAge = "SchoolAge" '学历
Db.UserWorking = "UserWorking" '工作
Db.UserHomePhone = "UserHomePhone" '家庭电话
Db.UserMobile = "UserMobile" '手机
Db.WaitReceive = "WaitReceive" '待签收文章
Db.Received = "Received" '已签收文章
Db.TotalExp = "TotalExp" '个人购物积分
Db.UserReMark = "UserReMark" '备注
Db.DataCount = "DataCount" '发表文章数
Db.UserGroupID = "UserLevel" '用户等级
Db.UserPoint = "UserPoint" '用户点数
Db.ChargeType = "ChargeType" '计费方式
Db.BeginDate = "BeginDate" '开始日期
Db.ValidNum = "Valid_Num" '有效期数值
Db.UserCheckNum = "UserCheckNum" '注册认证码
if IsSqlDataBase=1 then
TrueType = "1"
FalseType = "0"
SqlNowString = "GetDate()"
else
TrueType = "True"
FalseType = "False"
SqlNowString = "Now()"
end if
if IsSqlDataBase_U=1 then
TrueType_U = "1"
FalseType_U = "0"
SqlNowString_U = "GetDate()"
else
TrueType_U = "True"
FalseType_U = "False"
SqlNowString_U = "Now()"
end if
'主站数据库链接过程
Sub OpenConn()
if IsObject(Conn) then Exit Sub
if IsSqlDataBase=1 then
Db.ConnValue = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
else
Db.ConnValue="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath)
end if
Set Conn=Db.OpenConnection("主数据库")
End Sub
'用户主站数据库链接过程
Sub OpenConn_U()
if IsObject(Conn_U) then Exit Sub
if IsSqlDataBase_U=1 then
Db.ConnValue = "Provider = Sqloledb; User ID = " & SqlUsername_U & "; Password = " & SqlPassword_U & "; Initial Catalog = " & SqlDatabaseName_U & "; Data Source = " & SqlLocalName_U & ";"
else
Db.ConnValue = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath_U)
end if
Set Conn_U=Db.OpenConnection("用户数据库")
End Sub
'Log数据库链接过程
Sub OpenConn_L()
if IsObject(Conn_L) then Exit Sub
if IsSqlDataBase_L=1 then
Db.ConnValue = "Provider = Sqloledb; User ID = " & SqlUsername_L & "; Password = " & SqlPassword_L & "; Initial Catalog = " & SqlDatabaseName_L & "; Data Source = " & SqlLocalName_L & ";"
else
Db.ConnValue = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath_L)
end if
Set Conn_L=Db.OpenConnection("Log数据库")
End Sub
Sub CloseAllObj()
'On Error Resume Next
TempStr = Empty
Set Db = Nothing
Set Cl = Nothing
If IsObject(Template) Then Set Template = Nothing
If IsObject(PageData) Then Set PageData = Nothing
End Sub
%>
<%
'==================================================
'CreateLive CMS Version 4.0
' Powered by Aspoo.Net
'
'邮箱: [e-mail] [e-mail]
'ＱＱ: 3315263 596197794
'网站: www.aspoo.cn www.aspoo.com
'论坛: bbs.aspoo.cn bbs.aspoo.com
'
'Copyright (C) 2005-2007 Aspoo.Net All Rights Reserved.
'==================================================
%>

[UN2758]

网站路径是这样的: d:/zhujibao/Domains/xxx.com/public_html 数据库文件夹Data在public_html下

引用 楼主 adcainsky 的回复:

网站是用创力（aspoo）内容管理系统套的，现在还在用，属于历史遗留问题。 前两天把网站迁移到新的服务器，打开首页显示： 主数据库链接出错，请检查数据库链接字符串！ conn.asp里面的东西实在是看不懂，特来向各位求助，顺路拜个师傅。 <%@language=vbscript codepage=936 %> <% Option Explicit Response.Buffer = True Response.CharSet= "GB2312" Dim DbPath,DbPath_U,DbPath_L,DbPath_C Dim Conn,Conn_U,Conn_L,Conn_Count,Conn_C Dim Db,Cl,Template,PageData,Count,ClUbb,TempStr Dim IsSqlDataBase,IsSqlDataBase_U,IsSqlDataBase_L 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 SqlDatabaseName_L,SqlUsername_L,SqlPassword_L,SqlLocalName_L Dim CreateHtmlIng,DefaultPage,CreateFilePre Set Db = New Cls_DataBase Set Cl = New Cls_CMSSysTem CreateHtmlIng=False : DefaultPage="Index" Rem 是否正在生成HTML Const Web_Cookies = "Aspoo" Rem Cookies名称 Const SaveLog = 1 Rem 是否保存攻击日志(0为否，1为是) Const SysTemVersion = 0 Rem 系统版本，请不要更改，否则会出错 Const MsxmlVersion = ".3.0" Rem XML版本 如果服务器不支持高版本，可留空 Const InstallDir = "/" Rem 安装目录，根目录用"/"，请用"/"开头及结尾(如安装在Cl3目录下，为"/Cl3/") Const DatabaseDir = "Data/" Rem 数据库目录(相对于安装目录，用"/"结尾，注意：开头不要用"/") Const BbsDir = "/Bbs/" Rem 论坛安装目录，根目录用"/"，请用"/"开头及结尾，整合论坛时生效 '如SQL论坛和主站不在一个虚拟空间，可直接用网址，如("http://bbs.aspoo.com/") Const UserTableType = "Aspoo" Rem Aspoo=不整合论坛，Dvbbs=整合动网7 IsSqlDataBase = 0 '主数据库类型(1=SQL，0=AC) IsSqlDataBase_U = 0 '论坛数据库类型(1=SQL，0=AC)整合论坛时才生效,不整合论坛，则自动取主数据库类型 IsSqlDataBase_L = 0 'Log数据库类型(1=SQL，0=AC) DbPath = InstallDir & DatabaseDir & "#Cl_CreateLiveCMSv42-20091223" 'Access主数据库文件位置(请用绝对路径) DbPath_U = BbsDir & "Data/Dvbbs8.mdb" 'Access论坛数据库文件位置(整合论坛时生郊) DbPath_L = InstallDir & DatabaseDir & "#Cl_Log.mdb" 'AccessLog数据库位置 Rem SQL主站数据库参数==Begin SqlDatabaseName = "ClCMSv4" '主数据库名 SqlUsername = "ClCMSv4" '主数据库登录用户 SqlPassword = "123456" '主数据库登录密码 SqlLocalName = "(local)" '数据库服务器，本机用"(local)" Rem SQL主站数据库参数==End Rem SQL论坛数据库参数 (整合论坛时生郊)==Begin SqlDatabaseName_U = "bbs" '论坛数据库名 SqlUsername_U = "bbs" '论坛数据库登录用户 SqlPassword_U = "123456" '论坛数据库登录密码 SqlLocalName_U = "(local)" '论坛数据库服务器，本机用"(local)" Rem SQL论坛数据库参数 (整合论坛时生郊)==End Rem SQLLog数据库数据库参数==Begin SqlDatabaseName_L = "ClLog" 'Log数据库名 SqlUsername_L = "ClLog" 'Log数据库登录用户 SqlPassword_L = "123456" 'Log数据库登录密码 SqlLocalName_L = "(local)" 'Log数据库服务器，本机用"(local)" Rem SQLLog数据库数据库参数==End Rem ===================================================== Rem 以下部分，不需要再改！ 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" '密码 Db.UserEmail = "UserEmail" 'Email地址 Db.UserSex = "UserSex" '性别 Db.UserFace = "UserFace" '头像 Db.UserJoinDate = "JoinDate" '注册日期 Db.UserLastLogin = "LastLogin" '最后登录时间 Db.UserLogins = "UserLogins" '登录次数 Db.UserQuestion = "UserQuesion" '忘记密码的提示问题 Db.UserAnswer = "UserAnswer" '问题答案 Db.UserLastIP = "UserLastIP" '最后登录IP '============================= Db.UserIM = "UserIM" '用户IM,0123456,bbsxp(012345) Db.UserLock = "LockUser" '是否锁定用户 Db.UserWealth = "UserWealth" '用户金钱（整合DVBBS用） Db.UserMoney = "UserMoney" '用户金币 Db.UserMsg = "UserMsg" '短消息状态 '============================= Db.UserReName = "UserReName" '真实姓名 Db.UserTelePhone = "UserTelePhone" '办公电话 Db.UserAddRess = "UserAddRess" '通讯地址 Db.UserBirthday = "UserBirthday" '用户生日 Db.IDCard = "IDCard" '身份证号 Db.CityInfo = "CityInfo" '城市 Db.ZipCode = "ZipCode" '邮编 Db.SchoolAge = "SchoolAge" '学历 Db.UserWorking = "UserWorking" '工作 Db.UserHomePhone = "UserHomePhone" '家庭电话 Db.UserMobile = "UserMobile" '手机 Db.WaitReceive = "WaitReceive" '待签收文章 Db.Received = "Received" '已签收文章 Db.TotalExp = "TotalExp" '个人购物积分 Db.UserReMark = "UserReMark" '备注 Db.DataCount = "DataCount" '发表文章数 Db.UserGroupID = "UserLevel" '用户等级 Db.UserPoint = "UserPoint" '用户点数 Db.ChargeType = "ChargeType" '计费方式 Db.BeginDate = "BeginDate" '开始日期 Db.ValidNum = "Valid_Num" '有效期数值 Db.UserCheckNum = "UserCheckNum" '注册认证码 if IsSqlDataBase=1 then TrueType = "1" FalseType = "0" SqlNowString = "GetDate()" else TrueType = "True" FalseType = "False" SqlNowString = "Now()" end if if IsSqlDataBase_U=1 then TrueType_U = "1" FalseType_U = "0" SqlNowString_U = "GetDate()" else TrueType_U = "True" FalseType_U = "False" SqlNowString_U = "Now()" end if '主站数据库链接过程 Sub OpenConn() if IsObject(Conn) then Exit Sub if IsSqlDataBase=1 then Db.ConnValue = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";" else Db.ConnValue="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath) end if Set Conn=Db.OpenConnection("主数据库") End Sub '用户主站数据库链接过程 Sub OpenConn_U() if IsObject(Conn_U) then Exit Sub if IsSqlDataBase_U=1 then Db.ConnValue = "Provider = Sqloledb; User ID = " & SqlUsername_U & "; Password = " & SqlPassword_U & "; Initial Catalog = " & SqlDatabaseName_U & "; Data Source = " & SqlLocalName_U & ";" else Db.ConnValue = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath_U) end if Set Conn_U=Db.OpenConnection("用户数据库") End Sub 'Log数据库链接过程 Sub OpenConn_L() if IsObject(Conn_L) then Exit Sub if IsSqlDataBase_L=1 then Db.ConnValue = "Provider = Sqloledb; User ID = " & SqlUsername_L & "; Password = " & SqlPassword_L & "; Initial Catalog = " & SqlDatabaseName_L & "; Data Source = " & SqlLocalName_L & ";" else Db.ConnValue = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath_L) end if Set Conn_L=Db.OpenConnection("Log数据库") End Sub Sub CloseAllObj() 'On Error Resume Next TempStr = Empty Set Db = Nothing Set Cl = Nothing If IsObject(Template) Then Set Template = Nothing If IsObject(PageData) Then Set PageData = Nothing End Sub %> <% '================================================== 'CreateLive CMS Version 4.0 ' Powered by Aspoo.Net ' '邮箱: [e-mail] [e-mail] 'ＱＱ: 3315263 596197794 '网站: www.aspoo.cn www.aspoo.com '论坛: bbs.aspoo.cn bbs.aspoo.com ' 'Copyright (C) 2005-2007 Aspoo.Net All Rights Reserved. '================================================== %>

[UN2758]

为什么没人回复呀~~

[Go 旅城通票]

自己搜索错误信息在那个asp文件，看下连接字符串是什么，你这种一遍是数据库连接字符串出错了

[科创网络开发有限公司]

问题就在这一句里面：(这一句为数库连接字符串) Db.ConnValue = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";" 在原服务器里面登录名、密码、数据库名如下： SqlDatabaseName = "ClCMSv4" '主数据库名 SqlUsername = "ClCMSv4" '主数据库登录用户 SqlPassword = "123456" '主数据库登录密码 SqlLocalName = "(local)" '数据库服务器， 迁移服务器后，因新服务器登录名和密码改变了，须将上面的连接字符串改成新服务器上该数据库上的登录名和密码 .即:user id=新服务器该数据库登录名 password=新服务器该数据库登录密码