classchannel.asp

依蓝旅游网站管理系统Elan2008.SP2

<%
Class ClassChannel

   Public ChannelName, ChannelName_Color, ChannelDir, ChannelPictrue, OpenType, Disabled
   Public ShowName, ChannelType, LinkURL, ChannelModule, MetaKeywords, MetaDescription
   Public ItemName, ItemUnit, ClassitemName, ShowPageSize, SkinID
   Public EnableUpload, UploadDir, UploadMaxSize, UploadFileType
   Public ErrorCode, FilePath
   Private IsCache
   
   Private Sub Class_Initialize()      
      ErrorCode = 0
	  IsCache = EL_Common.FoundInArray(Split(Cache_Channel, ","), CStr(ChannelID))
   End Sub
   
   Private Sub Class_Terminate()
   End Sub
   
   Public Sub GetChannelConfig()
      Dim CacheChannelConfig
	  Dim ConfigCmd, rsConfig, StrFields
	  
	  If IsCache Then CacheChannelConfig = EL_Cache.GetCache("Channel."& ChannelID, 0)	  
	  If IsArray(CacheChannelConfig) And IsCache Then
	     ChannelName = CacheChannelConfig(0)
	     ChannelName_Color = CacheChannelConfig(1)
	     ChannelDir = CacheChannelConfig(2)	  
	     ChannelPictrue = CacheChannelConfig(3)
	     OpenType = CacheChannelConfig(4)
	     Disabled = CacheChannelConfig(5)	  
	     ShowName = CacheChannelConfig(6)
	     ChannelType = CacheChannelConfig(7)
	     LinkURL = CacheChannelConfig(8)
	     ChannelModule = CacheChannelConfig(9)
	     MetaKeywords = CacheChannelConfig(10)
	     MetaDescription = CacheChannelConfig(11)
	     ItemName = CacheChannelConfig(12)
	     ItemUnit = CacheChannelConfig(13)
	     ClassitemName = CacheChannelConfig(14)
	     ShowPageSize = CacheChannelConfig(15)
	     SkinID = CacheChannelConfig(16)
	     EnableUpload = CacheChannelConfig(17)
	     UploadDir = CacheChannelConfig(18)
	     UploadMaxSize = CacheChannelConfig(19)
	     UploadFileType = CacheChannelConfig(20)
	     FilePath = CacheChannelConfig(21)
	  Else	  
	     StrFields = "[ChannelName],[ChannelName_Color],[ChannelDir],[ChannelPictrue],[OpenType],[Disabled],"
	     StrFields = StrFields &"[ShowName],[ChannelType],[LinkURL],[ChannelModule],[MetaKeywords],[MetaDescription],"
	     StrFields = StrFields &"[ItemName],[ItemUnit],[ClassitemName],[ShowPageSize],[SkinID],"
	     StrFields = StrFields &"[EnableUpload],[UploadDir],[UploadMaxSize],[UploadFileType]"
	     Call EL_Common.InitCommonCmd(ConfigCmd, rsConfig, "EL_Channel", StrFields, "ChannelID="& ChannelID)
	     rsConfig.Close()
	     If ConfigCmd(0) <> 1 Then
	        ErrorCode = 1
	        Set rsConfig = Nothing
		    Set ConfigCmd = Nothing	     
		    Exit Sub
	     End If
	     rsConfig.Open()
	     ChannelName = rsConfig(0)
	     ChannelName_Color = rsConfig(1)
	     ChannelDir = rsConfig(2)	  
	     ChannelPictrue = rsConfig(3)
	     OpenType = rsConfig(4)
	     Disabled = rsConfig(5)	  
	     ShowName = rsConfig(6)
	     ChannelType = rsConfig(7)
	     LinkURL = rsConfig(8)
	     ChannelModule = rsConfig(9)
	     MetaKeywords = rsConfig(10)
	     MetaDescription = rsConfig(11)
	     ItemName = rsConfig(12)
	     ItemUnit = rsConfig(13)
	     ClassitemName = rsConfig(14)
	     ShowPageSize = rsConfig(15)
	     SkinID = rsConfig(16)
	     EnableUpload = rsConfig(17)
	     UploadDir = rsConfig(18)
	     UploadMaxSize = rsConfig(19)
	     UploadFileType = rsConfig(20)
	     FilePath = InstallDir & ChannelDir &"/"& UploadDir &"/"
	     rsConfig.Close()
	     Set rsConfig = Nothing
	     Set ConfigCmd = Nothing
		 
		 If IsCache Then
		    ReDim CacheChannelConfig(21)
		    CacheChannelConfig(0) = ChannelName
	        CacheChannelConfig(1) = ChannelName_Color
	        CacheChannelConfig(2) = ChannelDir   
	        CacheChannelConfig(3) = ChannelPictrue
	        CacheChannelConfig(4) = OpenType
	        CacheChannelConfig(5) = Disabled 
	        CacheChannelConfig(6) = ShowName
	        CacheChannelConfig(7) = ChannelType
	        CacheChannelConfig(8) = LinkURL
	        CacheChannelConfig(9) = ChannelModule
	        CacheChannelConfig(10) = MetaKeywords
	        CacheChannelConfig(11) = MetaDescription
	        CacheChannelConfig(12) = ItemName
	        CacheChannelConfig(13) = ItemUnit
	        CacheChannelConfig(14) = ClassitemName
	        CacheChannelConfig(15) = ShowPageSize
	        CacheChannelConfig(16) = SkinID
	        CacheChannelConfig(17) = EnableUpload
	        CacheChannelConfig(18) = UploadDir
	        CacheChannelConfig(19) = UploadMaxSize
	        CacheChannelConfig(20) = UploadFileType
	        CacheChannelConfig(21) = FilePath
			Call EL_Cache.SetCache("Channel."& ChannelID, CacheChannelConfig, -1)
		 End If
		 
	  End If
   End Sub
End Class

%>