trackerinfo.vb

C#语言制作asp.net网上商店的

Imports System.Xml
Imports System.Xml.Serialization
Namespace NetShopForge.Library.Tracker
    <Serializable()> Public Class TrackerInfo

#Region "private vars"

        Private trackingID_ As Integer = 0
        Private userName_ As String = String.Empty
        Private adID_ As Integer = 0
        Private promoID_ As Integer = 0
        Private productID_ As String = String.Empty
        Private categoryID_ As Integer = 0
        Private pageURL_ As String = String.Empty
        Private behaviorID As Integer = 0
        Private searchString_ As String = String.Empty
        Private sessionID_ As String = String.Empty
        Private createdON_ As Date

#End Region

#Region "Public Props"
        <XmlAttribute("TrackingID")> _
        Public Property TrackingID() As Integer
            Get
                Return trackingID_
            End Get
            Set(ByVal value As Integer)
                trackingID_ = value

            End Set
        End Property
        <XmlAttribute("UserName")> _
        Public Property UserName() As String
            Get
                Return userName_
            End Get
            Set(ByVal value As String)
                userName_ = value

            End Set
        End Property
        <XmlAttribute("AdID")> _
        Public Property AdID() As Integer
            Get
                Return adID_
            End Get
            Set(ByVal value As Integer)
                adID_ = value

            End Set
        End Property
        <XmlAttribute("PromoID")> _
        Public Property PromoID() As Integer
            Get
                Return promoID_
            End Get
            Set(ByVal value As Integer)
                promoID_ = value

            End Set
        End Property
        <XmlAttribute("ProductID")> _
               Public Property ProductID() As String
            Get
                Return productID_
            End Get
            Set(ByVal value As String)
                productID_ = value
            End Set
        End Property
        <XmlAttribute("CategoryID")> _
        Public Property CategoryID() As Integer
            Get
                Return categoryID_
            End Get
            Set(ByVal value As Integer)
                categoryID_ = value


            End Set
        End Property
        <XmlAttribute("PageURL")> _
        Public Property PageURL() As String
            Get
                Return pageURL_
            End Get
            Set(ByVal value As String)
                pageURL_ = value


            End Set
        End Property
        <XmlAttribute("Behavior")> _
        Public Property Behavior() As BehaviorType
            Get
                Return CType(behaviorID, BehaviorType)
            End Get
            Set(ByVal value As BehaviorType)
                behaviorID = CInt(Fix(value))

            End Set
        End Property
        <XmlAttribute("SearchString")> _
        Public Property SearchString() As String
            Get
                Return searchString_
            End Get
            Set(ByVal value As String)
                searchString_ = value
            End Set
        End Property
        <XmlAttribute("SessionID")> _
        Public Property SessionID() As String
            Get
                Return sessionID_
            End Get
            Set(ByVal value As String)
                sessionID_ = value
            End Set
        End Property
        <XmlAttribute("CreatedOn")> _
             Public Property CreatedOn() As Date
            Get
                Return createdON_
            End Get
            Set(ByVal value As Date)
                createdON_ = value
            End Set
        End Property
#End Region
    End Class
End Namespace