adinfo.vb

来自「C#语言制作asp.net网上商店的」· VB 代码 · 共 160 行

Imports Microsoft.VisualBasic


Namespace NetShopForge.Library.Ad


    Public Class AdInfo


        Private _AdID As Integer
        Private _PageName As String
        Private _Placement As AdBoxPlacement
        Private _DateExpire As Date
        Private _IsValid As Boolean
        Private _AdText As String


        Public Property AdID() As Integer
            Get
                Return _AdID
            End Get
            Set(ByVal value As Integer)
                _AdID = value
            End Set
        End Property

        Public Property PageName() As String
            Get
                Return _PageName
            End Get
            Set(ByVal value As String)
                _PageName = value
            End Set
        End Property

        Public Property AdText() As String
            Get
                Return _AdText
            End Get
            Set(ByVal value As String)
                _AdText = value
            End Set
        End Property

        Public Property Placement() As AdBoxPlacement
            Get
                Return _Placement
            End Get
            Set(ByVal value As AdBoxPlacement)
                _Placement = value
            End Set
        End Property

        Public Property DateExpire() As Date
            Get
                Return _DateExpire
            End Get
            Set(ByVal value As Date)
                _DateExpire = value
            End Set
        End Property

        Public Property IsValid() As Boolean
            Get
                Return _IsValid
            End Get
            Set(ByVal value As Boolean)
                _IsValid = value
            End Set
        End Property


    End Class



    ''' <summary>
    ''' 设定广告位，A.顶部广告位 B.顶部通栏广告位 C.左侧广告位(从上至下每两个栏目之间有一个广告位，共4个) D.中间广告位（从上至下每两个栏目之间有一个广告位，共3个） E.右侧广告位（从上至下每两个栏目之间有一个广告位，共6个）
    ''' </summary>
    ''' <remarks></remarks>
    Public Enum AdBoxPlacement
        ''' <summary>
        ''' '顶部通栏广告位
        ''' </summary>
        ''' <remarks></remarks>
        BannerHeadlines
        ''' <summary>
        ''' 顶部广告位 
        ''' </summary>
        ''' <remarks></remarks>
        Banner
        ''' <summary>
        ''' 右侧广告位1
        ''' </summary>
        ''' <remarks></remarks>
        Right1
        ''' <summary>
        ''' 右侧广告位2
        ''' </summary>
        ''' <remarks></remarks>
        Right2
        ''' <summary>
        ''' 右侧广告位3
        ''' </summary>
        ''' <remarks></remarks>
        Right3
        ''' <summary>
        ''' 右侧广告位4
        ''' </summary>
        ''' <remarks></remarks>
        Right4
        ''' <summary>
        ''' 右侧广告位5
        ''' </summary>
        ''' <remarks></remarks>
        Right5
        ''' <summary>
        ''' 右侧广告位6
        ''' </summary>
        ''' <remarks></remarks>
        Right6
        ''' <summary>
        ''' 中间广告位1
        ''' </summary>
        ''' <remarks></remarks>
        Center1
        ''' <summary>
        ''' 中间广告位2
        ''' </summary>
        ''' <remarks></remarks>
        Center2
        ''' <summary>
        ''' 中间广告位3
        ''' </summary>
        ''' <remarks></remarks>
        Center3
        ''' <summary>
        ''' 左侧广告位1
        ''' </summary>
        ''' <remarks></remarks>
        Left1
        ''' <summary>
        ''' 左侧广告位2
        ''' </summary>
        ''' <remarks></remarks>
        Left2
        ''' <summary>
        ''' 左侧广告位3
        ''' </summary>
        ''' <remarks></remarks>
        Left3
        ''' <summary>
        ''' 左侧广告位4
        ''' </summary>
        ''' <remarks></remarks>
        Left4
    End Enum


End Namespace