¿´¿´,Êý¾Ý¿âÁ¬½Ó´íÄÄÀïÁË

©»°×Ó^೩t

<%
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 = "ÎļþÉÏ´«"
%>
×ÜÊÇ˵Êý¾Ý¿âÁ¬½Ó´íÎó
°ïÎÒ¿´¿´ÄÄÀï´íÁË