|
|
<%
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 = "文件上传"
%>
总是说数据库连接错误
帮我看看哪里错了 |
|
IP卡
狗仔卡
发表于 2010-1-10 03:19:00
收藏
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡