<%
Call FixedCacheName(1)
Set iXs = New iXuEr_CMSCore
Set Templates = New iXuEr_CMSSkins
If Not IsArray(iXs.UpLoad_Setting) Then Call iXs.LoadSetup("UpLoad")
Dim SqlConn, SqlConnStr
Dim DefaultDatabaseSettings, DefaultDatabaseSetting

' ----------------------------------------------------------------------------------------
If Request.ServerVariables("LOCAL_ADDR") = "221.7.12.165" Then
    DefaultDatabaseSetting = "221.7.12.165,26166|sqlixuercms_bak|longyuecmusic|losnwgwydxewguecmudssic"
Else
    DefaultDatabaseSetting = "(local)|sqlixuercms_bak|longyuecmusic|losnwgwydxewguecmudssic"
End If

If Not IsArray(DefaultDatabaseSettings) Then DefaultDatabaseSettings = Split(DefaultDatabaseSetting, "|")
SqlConnStr = "Provider = Sqloledb; User ID = " & DefaultDatabaseSettings(2) & "; Password = " & DefaultDatabaseSettings(3) & "; Initial Catalog = " & DefaultDatabaseSettings(1) & "; Data Source = " & DefaultDatabaseSettings(0) & ";"
Set SqlConn = Server.CreateObject(ServerObject_001)
SqlConn.Open SqlConnStr

' ----------------------------------------------------------------------------------------
' 上传系统参数设置
' ----------------------------------------------------------------------------------------
Dim UpLoadSetting, ForChannel
iXs.ReqMode = 3
ForChannel = iXs.ReqNum("ChannelID", 0)
iXs.ReqMode = 0
UpLoadSetting = Split(iXs.UpLoad_Setting(20), "$$$") ' 上传系统配置信息
If ForChannel > UBound(UpLoadSetting) Then ForChannel = 0
Temp = UpLoadSetting(ForChannel)
UpLoadSetting = Split(Temp, "@@@") ' 频道上传配置
' --------------------------------------------------------------------------------------------
' 预留的频道参数，上传系统可以被改造成其他的应用程序
iXs.ChannelID = 8 ' 频道编号
iXs.ChannelName = "上传管理" ' 频道名称
iXs.ChannelKey = "文件上传"
%>
总是说数据库连接错误
帮我看看哪里错了