admin_classchannel.asp

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

<%
Class Class_Channel

   Public ChannelID, 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, ClassNumLine
   Public ErrorCode, FilePath, SendComment
   
   Private Sub Class_Initialize()      
      ErrorCode = 0
	  ChannelID = EL_Common.ReplaceBadChar(Request(("ChannelID")))
	  ChannelID = EL_Common.ELClng(ChannelID)
   End Sub
   
   Private Sub Class_Terminate()
   End Sub
   
   Public Sub GetChannelConfig()
      On Error Resume Next
	  Dim ConfigCmd, rsConfig, StrFields
	  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],[ClassNumLine],[SendComment]"
	  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)
	  ClassNumLine = rsConfig(21)
	  SendComment = rsConfig(22)
	  FilePath = InstallDir & ChannelDir &"/"& UploadDir &"/"
	  rsConfig.Close()
	  Set rsConfig = Nothing
	  Set ConfigCmd = Nothing
	  Call EL_Common.ShowScriptError()
   End Sub
End Class

%>