·Æ¶È´¹Ö±ËÑË÷ÒýÇæ ´úÂë×¢ÊÍ 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