菲度垂直搜索引擎 代码注释 2

‘代表一个页面结点

Public Class UNode
    Private mpsn As Integer
    Private msn As Integer
    Private mlevel As Integer
    Private mmaxget As Integer
    Private mtemid As Integer
    Private mst As String
    Private mpic As String
    Private mprice As Single
    Private mmaxdeepleval As Integer
    Private mstep As Integer
    Private mboost As Single
    Private mrank As Integer
    Private mpager As Integer
    Private muri As String
    Private mcode As String
    Private mtitle As String
    Private mddate As String
    Private mcontent As String
    Private mencode As String
    Private mymetavalue As String
    Private mext As String
    Private mypagetitle As String
    Private indexpathstring As String
    Private mrs As Boolean
    Private mstore As Boolean
    Private maddtion As String
    Sub New(ByVal psn As Integer, ByVal sn As Integer, ByVal lel As Integer, ByVal uri As String, ByVal rssflag As Boolean, ByVal boost As Integer, ByVal utype As String, Optional ByVal initmencode As String = "gb2312")
参数含义：psn父结点代号，

sn:本结点代号     

lel   是搜索的第几层

uri:页面地址

rssflag:对其进行rss处理

boost 相关度

initmencode 编码格式

mpsn = psn
        msn = sn
        mrs = rssflag
        mlevel = lel
        muri = uri
        mcode = MD5(muri, 16)
        mtitle = ""
        mddate = Now
        mencode = initmencode
        indexpathstring = utype
        mrank = boost
        mmaxdeepleval = 4
        mstep = 1
    End Sub
    Property ParentSn() As Integer
        Get
            Return mpsn
        End Get
        Set(ByVal Value As Integer)
            mpsn = Value
        End Set
    End Property
    Property Sn() As Integer
        Get
            Return msn
        End Get
        Set(ByVal Value As Integer)
            msn = Value
        End Set
    End Property

    Property Rank() As Integer
        Get
            Return mrank
        End Get
        Set(ByVal Value As Integer)
            mrank = Value
        End Set
    End Property

 

    Property Level() As Integer
        Get
            Return mlevel
        End Get
        Set(ByVal Value As Integer)
            mlevel = Value
        End Set
    End Property
    Property MaxDeepLevel() As Integer
        Get
            Return mmaxdeepleval
        End Get
        Set(ByVal Value As Integer)
            mmaxdeepleval = Value
        End Set
    End Property
    Property MaxGet() As Integer
        Get
            Return mmaxget
        End Get
        Set(ByVal Value As Integer)
            mmaxget = Value
        End Set
    End Property
    Property Boost() As Single
        Get
            Return mboost
        End Get
        Set(ByVal Value As Single)
            mboost = Value
        End Set
    End Property
    Property InitStep() As Integer
        Get
            Return mstep
        End Get
        Set(ByVal Value As Integer)
            mstep = Value
        End Set
    End Property
    Property TemplateId() As Integer
        Get
            Return mtemid
        End Get
        Set(ByVal Value As Integer)
            mtemid = Value
        End Set
    End Property
    Property SearchType() As String
        Get
            Return mst
        End Get
        Set(ByVal Value As String)
            mst = Value
        End Set
    End Property

    Property Picture() As String
        Get
            Return mpic
        End Get
        Set(ByVal Value As String)
            mpic = Value
        End Set
    End Property
    Property Price() As Single
        Get
            Return mprice
        End Get
        Set(ByVal Value As Single)
            mprice = Value
        End Set
    End Property

    Property MetaValue() As String
        Get
            Return mymetavalue
        End Get
        Set(ByVal Value As String)
            mymetavalue = Value
        End Set
    End Property
    Property PagetitleValue() As String
        Get
            Return mypagetitle
        End Get
        Set(ByVal Value As String)
            mypagetitle = Value
        End Set
    End Property

    Property EnCode() As String
        Get
            Return mencode
        End Get
        Set(ByVal Value As String)
            mencode = Value
        End Set
    End Property
    Property Ext() As String
        Get
            Return mext
        End Get
        Set(ByVal Value As String)
            mext = Value
        End Set
    End Property
    ReadOnly Property Code() As String
        Get
            Return mcode
        End Get
    End Property
    ReadOnly Property FindDate() As DateTime
        Get
            Return mddate
        End Get

    End Property
    Property Content() As String
        Get
            Return mcontent
        End Get
        Set(ByVal Value As String)
            mcontent = Value
        End Set
    End Property
    Property IndexPath() As String
        Get
            Return indexpathstring
        End Get
        Set(ByVal Value As String)
            indexpathstring = Value
        End Set
    End Property

    Property Tiltle() As String
        Get
            Return mtitle
        End Get
        Set(ByVal Value As String)
            mtitle = Value
        End Set
    End Property
    Property Address() As String
        Get
            Return muri
        End Get
        Set(ByVal Value As String)
            muri = Value
        End Set
    End Property

    Property Addtion() As String
        Get
            Return maddtion
        End Get
        Set(ByVal Value As String)
            maddtion = Value
        End Set
    End Property

    Property IsRss() As Boolean
        Get
            Return mrs
        End Get
        Set(ByVal Value As Boolean)
            mrs = Value
        End Set
    End Property
    Property CanStore() As Boolean
        Get
            Return mstore
        End Get
        Set(ByVal Value As Boolean)
            mstore = Value
        End Set
    End Property
End Class