'------------------------------------------------------------------------------
' <auto-generated>
'     此代码由工具生成。
'     运行时版本:2.0.50727.3649
'
'     对此文件的更改可能会导致不正确的行为，并且如果
'     重新生成代码，这些更改将会丢失。
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict On
Option Explicit On

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Data.Linq
Imports System.Data.Linq.Mapping
Imports System.Linq
Imports System.Linq.Expressions
Imports System.Reflection


<System.Data.Linq.Mapping.DatabaseAttribute(Name:="WebSiteII")>  _
Partial Public Class DB_ArticleDataContext
	Inherits System.Data.Linq.DataContext
	
	Private Shared mappingSource As System.Data.Linq.Mapping.MappingSource = New AttributeMappingSource
	
  #Region "Extensibility Method Definitions"
  Partial Private Sub OnCreated()
  End Sub
  Partial Private Sub InsertArticleComment(instance As ArticleComment)
    End Sub
  Partial Private Sub UpdateArticleComment(instance As ArticleComment)
    End Sub
  Partial Private Sub DeleteArticleComment(instance As ArticleComment)
    End Sub
  Partial Private Sub InsertArticleClass(instance As ArticleClass)
    End Sub
  Partial Private Sub UpdateArticleClass(instance As ArticleClass)
    End Sub
  Partial Private Sub DeleteArticleClass(instance As ArticleClass)
    End Sub
  Partial Private Sub InsertArticle(instance As Article)
    End Sub
  Partial Private Sub UpdateArticle(instance As Article)
    End Sub
  Partial Private Sub DeleteArticle(instance As Article)
    End Sub
  #End Region
	
	Public Sub New()
        MyBase.New(System.Web.Configuration.WebConfigurationManager.ConnectionStrings("XrenCRMConnString").ToString, mappingSource)
		OnCreated
	End Sub
	
	Public Sub New(ByVal connection As String)
		MyBase.New(connection, mappingSource)
		OnCreated
	End Sub
	
	Public Sub New(ByVal connection As System.Data.IDbConnection)
		MyBase.New(connection, mappingSource)
		OnCreated
	End Sub
	
	Public Sub New(ByVal connection As String, ByVal mappingSource As System.Data.Linq.Mapping.MappingSource)
		MyBase.New(connection, mappingSource)
		OnCreated
	End Sub
	
	Public Sub New(ByVal connection As System.Data.IDbConnection, ByVal mappingSource As System.Data.Linq.Mapping.MappingSource)
		MyBase.New(connection, mappingSource)
		OnCreated
	End Sub
	
	Public ReadOnly Property ArticleComment() As System.Data.Linq.Table(Of ArticleComment)
		Get
			Return Me.GetTable(Of ArticleComment)
		End Get
	End Property
	
	Public ReadOnly Property ArticleClass() As System.Data.Linq.Table(Of ArticleClass)
		Get
			Return Me.GetTable(Of ArticleClass)
		End Get
	End Property
	
	Public ReadOnly Property Article() As System.Data.Linq.Table(Of Article)
		Get
			Return Me.GetTable(Of Article)
		End Get
	End Property
End Class

<Table(Name:="dbo.ArticleComment")>  _
Partial Public Class ArticleComment
	Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
	
	Private Shared emptyChangingEventArgs As PropertyChangingEventArgs = New PropertyChangingEventArgs(String.Empty)
	
	Private _ID As Integer
	
	Private _SiteID As System.Nullable(Of Integer)
	
	Private _ArticleID As Integer
	
	Private _UserName As String
	
	Private _CommentTitle As String
	
	Private _CommentContext As String
	
	Private _UserIP As String
	
	Private _CommentTime As Date
	
    #Region "Extensibility Method Definitions"
    Partial Private Sub OnLoaded()
    End Sub
    Partial Private Sub OnValidate(action As System.Data.Linq.ChangeAction)
    End Sub
    Partial Private Sub OnCreated()
    End Sub
    Partial Private Sub OnIDChanging(value As Integer)
    End Sub
    Partial Private Sub OnIDChanged()
    End Sub
    Partial Private Sub OnSiteIDChanging(value As System.Nullable(Of Integer))
    End Sub
    Partial Private Sub OnSiteIDChanged()
    End Sub
    Partial Private Sub OnArticleIDChanging(value As Integer)
    End Sub
    Partial Private Sub OnArticleIDChanged()
    End Sub
    Partial Private Sub OnUserNameChanging(value As String)
    End Sub
    Partial Private Sub OnUserNameChanged()
    End Sub
    Partial Private Sub OnCommentTitleChanging(value As String)
    End Sub
    Partial Private Sub OnCommentTitleChanged()
    End Sub
    Partial Private Sub OnCommentContextChanging(value As String)
    End Sub
    Partial Private Sub OnCommentContextChanged()
    End Sub
    Partial Private Sub OnUserIPChanging(value As String)
    End Sub
    Partial Private Sub OnUserIPChanged()
    End Sub
    Partial Private Sub OnCommentTimeChanging(value As Date)
    End Sub
    Partial Private Sub OnCommentTimeChanged()
    End Sub
    #End Region
	
	Public Sub New()
		MyBase.New
		OnCreated
	End Sub
	
	<Column(Storage:="_ID", AutoSync:=AutoSync.OnInsert, DbType:="Int NOT NULL IDENTITY", IsPrimaryKey:=true, IsDbGenerated:=true)>  _
	Public Property ID() As Integer
		Get
			Return Me._ID
		End Get
		Set
			If ((Me._ID = value)  _
						= false) Then
				Me.OnIDChanging(value)
				Me.SendPropertyChanging
				Me._ID = value
				Me.SendPropertyChanged("ID")
				Me.OnIDChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_SiteID", DbType:="Int")>  _
	Public Property SiteID() As System.Nullable(Of Integer)
		Get
			Return Me._SiteID
		End Get
		Set
			If (Me._SiteID.Equals(value) = false) Then
				Me.OnSiteIDChanging(value)
				Me.SendPropertyChanging
				Me._SiteID = value
				Me.SendPropertyChanged("SiteID")
				Me.OnSiteIDChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_ArticleID", DbType:="Int NOT NULL")>  _
	Public Property ArticleID() As Integer
		Get
			Return Me._ArticleID
		End Get
		Set
			If ((Me._ArticleID = value)  _
						= false) Then
				Me.OnArticleIDChanging(value)
				Me.SendPropertyChanging
				Me._ArticleID = value
				Me.SendPropertyChanged("ArticleID")
				Me.OnArticleIDChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_UserName", DbType:="NVarChar(20) NOT NULL", CanBeNull:=false)>  _
	Public Property UserName() As String
		Get
			Return Me._UserName
		End Get
		Set
			If (String.Equals(Me._UserName, value) = false) Then
				Me.OnUserNameChanging(value)
				Me.SendPropertyChanging
				Me._UserName = value
				Me.SendPropertyChanged("UserName")
				Me.OnUserNameChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_CommentTitle", DbType:="NVarChar(20) NOT NULL", CanBeNull:=false)>  _
	Public Property CommentTitle() As String
		Get
			Return Me._CommentTitle
		End Get
		Set
			If (String.Equals(Me._CommentTitle, value) = false) Then
				Me.OnCommentTitleChanging(value)
				Me.SendPropertyChanging
				Me._CommentTitle = value
				Me.SendPropertyChanged("CommentTitle")
				Me.OnCommentTitleChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_CommentContext", DbType:="NVarChar(400) NOT NULL", CanBeNull:=false)>  _
	Public Property CommentContext() As String
		Get
			Return Me._CommentContext
		End Get
		Set
			If (String.Equals(Me._CommentContext, value) = false) Then
				Me.OnCommentContextChanging(value)
				Me.SendPropertyChanging
				Me._CommentContext = value
				Me.SendPropertyChanged("CommentContext")
				Me.OnCommentContextChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_UserIP", DbType:="NVarChar(15) NOT NULL", CanBeNull:=false)>  _
	Public Property UserIP() As String
		Get
			Return Me._UserIP
		End Get
		Set
			If (String.Equals(Me._UserIP, value) = false) Then
				Me.OnUserIPChanging(value)
				Me.SendPropertyChanging
				Me._UserIP = value
				Me.SendPropertyChanged("UserIP")
				Me.OnUserIPChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_CommentTime", DbType:="DateTime NOT NULL")>  _
	Public Property CommentTime() As Date
		Get
			Return Me._CommentTime
		End Get
		Set
			If ((Me._CommentTime = value)  _
						= false) Then
				Me.OnCommentTimeChanging(value)
				Me.SendPropertyChanging
				Me._CommentTime = value
				Me.SendPropertyChanged("CommentTime")
				Me.OnCommentTimeChanged
			End If
		End Set
	End Property
	
	Public Event PropertyChanging As PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
	
	Public Event PropertyChanged As PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
	
	Protected Overridable Sub SendPropertyChanging()
		If ((Me.PropertyChangingEvent Is Nothing)  _
					= false) Then
			RaiseEvent PropertyChanging(Me, emptyChangingEventArgs)
		End If
	End Sub
	
	Protected Overridable Sub SendPropertyChanged(ByVal propertyName As [String])
		If ((Me.PropertyChangedEvent Is Nothing)  _
					= false) Then
			RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
		End If
	End Sub
End Class

<Table(Name:="dbo.ArticleClass")>  _
Partial Public Class ArticleClass
	Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
	
	Private Shared emptyChangingEventArgs As PropertyChangingEventArgs = New PropertyChangingEventArgs(String.Empty)
	
	Private _ClassID As Integer
	
	Private _SiteID As System.Nullable(Of Integer)
	
	Private _ClassName As String
	
	Private _TopID As System.Nullable(Of Integer)
	
	Private _ParentID As System.Nullable(Of Integer)
	
	Private _ClassLev As System.Nullable(Of Integer)
	
	Private _ChildCount As System.Nullable(Of Integer)
	
	Private _OrderID As System.Nullable(Of Integer)
	
	Private _PageKey As String
	
	Private _PageContext As String
	
	Private _Flag As String
	
    #Region "Extensibility Method Definitions"
    Partial Private Sub OnLoaded()
    End Sub
    Partial Private Sub OnValidate(action As System.Data.Linq.ChangeAction)
    End Sub
    Partial Private Sub OnCreated()
    End Sub
    Partial Private Sub OnClassIDChanging(value As Integer)
    End Sub
    Partial Private Sub OnClassIDChanged()
    End Sub
    Partial Private Sub OnSiteIDChanging(value As System.Nullable(Of Integer))
    End Sub
    Partial Private Sub OnSiteIDChanged()
    End Sub
    Partial Private Sub OnClassNameChanging(value As String)
    End Sub
    Partial Private Sub OnClassNameChanged()
    End Sub
    Partial Private Sub OnTopIDChanging(value As System.Nullable(Of Integer))
    End Sub
    Partial Private Sub OnTopIDChanged()
    End Sub
    Partial Private Sub OnParentIDChanging(value As System.Nullable(Of Integer))
    End Sub
    Partial Private Sub OnParentIDChanged()
    End Sub
    Partial Private Sub OnClassLevChanging(value As System.Nullable(Of Integer))
    End Sub
    Partial Private Sub OnClassLevChanged()
    End Sub
    Partial Private Sub OnChildCountChanging(value As System.Nullable(Of Integer))
    End Sub
    Partial Private Sub OnChildCountChanged()
    End Sub
    Partial Private Sub OnOrderIDChanging(value As System.Nullable(Of Integer))
    End Sub
    Partial Private Sub OnOrderIDChanged()
    End Sub
    Partial Private Sub OnPageKeyChanging(value As String)
    End Sub
    Partial Private Sub OnPageKeyChanged()
    End Sub
    Partial Private Sub OnPageContextChanging(value As String)
    End Sub
    Partial Private Sub OnPageContextChanged()
    End Sub
    Partial Private Sub OnFlagChanging(value As String)
    End Sub
    Partial Private Sub OnFlagChanged()
    End Sub
    #End Region
	
	Public Sub New()
		MyBase.New
		OnCreated
	End Sub
	
	<Column(Storage:="_ClassID", AutoSync:=AutoSync.OnInsert, DbType:="Int NOT NULL IDENTITY", IsPrimaryKey:=true, IsDbGenerated:=true)>  _
	Public Property ClassID() As Integer
		Get
			Return Me._ClassID
		End Get
		Set
			If ((Me._ClassID = value)  _
						= false) Then
				Me.OnClassIDChanging(value)
				Me.SendPropertyChanging
				Me._ClassID = value
				Me.SendPropertyChanged("ClassID")
				Me.OnClassIDChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_SiteID", DbType:="Int")>  _
	Public Property SiteID() As System.Nullable(Of Integer)
		Get
			Return Me._SiteID
		End Get
		Set
			If (Me._SiteID.Equals(value) = false) Then
				Me.OnSiteIDChanging(value)
				Me.SendPropertyChanging
				Me._SiteID = value
				Me.SendPropertyChanged("SiteID")
				Me.OnSiteIDChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_ClassName", DbType:="NVarChar(30) NOT NULL", CanBeNull:=false)>  _
	Public Property ClassName() As String
		Get
			Return Me._ClassName
		End Get
		Set
			If (String.Equals(Me._ClassName, value) = false) Then
				Me.OnClassNameChanging(value)
				Me.SendPropertyChanging
				Me._ClassName = value
				Me.SendPropertyChanged("ClassName")
				Me.OnClassNameChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_TopID", DbType:="Int")>  _
	Public Property TopID() As System.Nullable(Of Integer)
		Get
			Return Me._TopID
		End Get
		Set
			If (Me._TopID.Equals(value) = false) Then
				Me.OnTopIDChanging(value)
				Me.SendPropertyChanging
				Me._TopID = value
				Me.SendPropertyChanged("TopID")
				Me.OnTopIDChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_ParentID", DbType:="Int")>  _
	Public Property ParentID() As System.Nullable(Of Integer)
		Get
			Return Me._ParentID
		End Get
		Set
			If (Me._ParentID.Equals(value) = false) Then
				Me.OnParentIDChanging(value)
				Me.SendPropertyChanging
				Me._ParentID = value
				Me.SendPropertyChanged("ParentID")
				Me.OnParentIDChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_ClassLev", DbType:="Int")>  _
	Public Property ClassLev() As System.Nullable(Of Integer)
		Get
			Return Me._ClassLev
		End Get
		Set
			If (Me._ClassLev.Equals(value) = false) Then
				Me.OnClassLevChanging(value)
				Me.SendPropertyChanging
				Me._ClassLev = value
				Me.SendPropertyChanged("ClassLev")
				Me.OnClassLevChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_ChildCount", DbType:="Int")>  _
	Public Property ChildCount() As System.Nullable(Of Integer)
		Get
			Return Me._ChildCount
		End Get
		Set
			If (Me._ChildCount.Equals(value) = false) Then
				Me.OnChildCountChanging(value)
				Me.SendPropertyChanging
				Me._ChildCount = value
				Me.SendPropertyChanged("ChildCount")
				Me.OnChildCountChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_OrderID", DbType:="Int")>  _
	Public Property OrderID() As System.Nullable(Of Integer)
		Get
			Return Me._OrderID
		End Get
		Set
			If (Me._OrderID.Equals(value) = false) Then
				Me.OnOrderIDChanging(value)
				Me.SendPropertyChanging
				Me._OrderID = value
				Me.SendPropertyChanged("OrderID")
				Me.OnOrderIDChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_PageKey", DbType:="NVarChar(200)")>  _
	Public Property PageKey() As String
		Get
			Return Me._PageKey
		End Get
		Set
			If (String.Equals(Me._PageKey, value) = false) Then
				Me.OnPageKeyChanging(value)
				Me.SendPropertyChanging
				Me._PageKey = value
				Me.SendPropertyChanged("PageKey")
				Me.OnPageKeyChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_PageContext", DbType:="NVarChar(200)")>  _
	Public Property PageContext() As String
		Get
			Return Me._PageContext
		End Get
		Set
			If (String.Equals(Me._PageContext, value) = false) Then
				Me.OnPageContextChanging(value)
				Me.SendPropertyChanging
				Me._PageContext = value
				Me.SendPropertyChanged("PageContext")
				Me.OnPageContextChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_Flag", DbType:="NVarChar(50)")>  _
	Public Property Flag() As String
		Get
			Return Me._Flag
		End Get
		Set
			If (String.Equals(Me._Flag, value) = false) Then
				Me.OnFlagChanging(value)
				Me.SendPropertyChanging
				Me._Flag = value
				Me.SendPropertyChanged("Flag")
				Me.OnFlagChanged
			End If
		End Set
	End Property
	
	Public Event PropertyChanging As PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
	
	Public Event PropertyChanged As PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
	
	Protected Overridable Sub SendPropertyChanging()
		If ((Me.PropertyChangingEvent Is Nothing)  _
					= false) Then
			RaiseEvent PropertyChanging(Me, emptyChangingEventArgs)
		End If
	End Sub
	
	Protected Overridable Sub SendPropertyChanged(ByVal propertyName As [String])
		If ((Me.PropertyChangedEvent Is Nothing)  _
					= false) Then
			RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
		End If
	End Sub
End Class

<Table(Name:="dbo.Article")>  _
Partial Public Class Article
	Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
	
	Private Shared emptyChangingEventArgs As PropertyChangingEventArgs = New PropertyChangingEventArgs(String.Empty)
	
	Private _ID As Integer
	
	Private _SiteID As System.Nullable(Of Integer)
	
	Private _ClassID As Integer
	
	Private _Title As String
	
	Private _TitleStyle As String
	
	Private _Author As String
	
	Private _txtContext As String
	
	Private _scTitle As String
	
	Private _ShortTitle As String
	
	Private _KeyWord As String
	
	Private _ArticleTag As String
	
	Private _Point As System.Nullable(Of Integer)
	
	Private _CopyFrom As String
	
	Private _PicName As String
	
	Private _GroupID As Integer
	
	Private _AddTime As Date
	
	Private _ArticleAbstract As String
	
	Private _IsChecked As System.Nullable(Of Boolean)
	
	Private _Appendix As String
	
	Private _Hits As Integer
	
	Private _Grades As Decimal
	
	Private _GradeCount As Integer
	
	Private _OpenComment As Boolean
	
	Private _SkipURL As String
	
    #Region "Extensibility Method Definitions"
    Partial Private Sub OnLoaded()
    End Sub
    Partial Private Sub OnValidate(action As System.Data.Linq.ChangeAction)
    End Sub
    Partial Private Sub OnCreated()
    End Sub
    Partial Private Sub OnIDChanging(value As Integer)
    End Sub
    Partial Private Sub OnIDChanged()
    End Sub
    Partial Private Sub OnSiteIDChanging(value As System.Nullable(Of Integer))
    End Sub
    Partial Private Sub OnSiteIDChanged()
    End Sub
    Partial Private Sub OnClassIDChanging(value As Integer)
    End Sub
    Partial Private Sub OnClassIDChanged()
    End Sub
    Partial Private Sub OnTitleChanging(value As String)
    End Sub
    Partial Private Sub OnTitleChanged()
    End Sub
    Partial Private Sub OnTitleStyleChanging(value As String)
    End Sub
    Partial Private Sub OnTitleStyleChanged()
    End Sub
    Partial Private Sub OnAuthorChanging(value As String)
    End Sub
    Partial Private Sub OnAuthorChanged()
    End Sub
    Partial Private Sub OntxtContextChanging(value As String)
    End Sub
    Partial Private Sub OntxtContextChanged()
    End Sub
    Partial Private Sub OnscTitleChanging(value As String)
    End Sub
    Partial Private Sub OnscTitleChanged()
    End Sub
    Partial Private Sub OnShortTitleChanging(value As String)
    End Sub
    Partial Private Sub OnShortTitleChanged()
    End Sub
    Partial Private Sub OnKeyWordChanging(value As String)
    End Sub
    Partial Private Sub OnKeyWordChanged()
    End Sub
    Partial Private Sub OnArticleTagChanging(value As String)
    End Sub
    Partial Private Sub OnArticleTagChanged()
    End Sub
    Partial Private Sub OnPointChanging(value As System.Nullable(Of Integer))
    End Sub
    Partial Private Sub OnPointChanged()
    End Sub
    Partial Private Sub OnCopyFromChanging(value As String)
    End Sub
    Partial Private Sub OnCopyFromChanged()
    End Sub
    Partial Private Sub OnPicNameChanging(value As String)
    End Sub
    Partial Private Sub OnPicNameChanged()
    End Sub
    Partial Private Sub OnGroupIDChanging(value As Integer)
    End Sub
    Partial Private Sub OnGroupIDChanged()
    End Sub
    Partial Private Sub OnAddTimeChanging(value As Date)
    End Sub
    Partial Private Sub OnAddTimeChanged()
    End Sub
    Partial Private Sub OnArticleAbstractChanging(value As String)
    End Sub
    Partial Private Sub OnArticleAbstractChanged()
    End Sub
    Partial Private Sub OnIsCheckedChanging(value As System.Nullable(Of Boolean))
    End Sub
    Partial Private Sub OnIsCheckedChanged()
    End Sub
    Partial Private Sub OnAppendixChanging(value As String)
    End Sub
    Partial Private Sub OnAppendixChanged()
    End Sub
    Partial Private Sub OnHitsChanging(value As Integer)
    End Sub
    Partial Private Sub OnHitsChanged()
    End Sub
    Partial Private Sub OnGradesChanging(value As Decimal)
    End Sub
    Partial Private Sub OnGradesChanged()
    End Sub
    Partial Private Sub OnGradeCountChanging(value As Integer)
    End Sub
    Partial Private Sub OnGradeCountChanged()
    End Sub
    Partial Private Sub OnOpenCommentChanging(value As Boolean)
    End Sub
    Partial Private Sub OnOpenCommentChanged()
    End Sub
    Partial Private Sub OnSkipURLChanging(value As String)
    End Sub
    Partial Private Sub OnSkipURLChanged()
    End Sub
    #End Region
	
	Public Sub New()
		MyBase.New
		OnCreated
	End Sub
	
	<Column(Storage:="_ID", AutoSync:=AutoSync.OnInsert, DbType:="Int NOT NULL IDENTITY", IsPrimaryKey:=true, IsDbGenerated:=true)>  _
	Public Property ID() As Integer
		Get
			Return Me._ID
		End Get
		Set
			If ((Me._ID = value)  _
						= false) Then
				Me.OnIDChanging(value)
				Me.SendPropertyChanging
				Me._ID = value
				Me.SendPropertyChanged("ID")
				Me.OnIDChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_SiteID", DbType:="Int")>  _
	Public Property SiteID() As System.Nullable(Of Integer)
		Get
			Return Me._SiteID
		End Get
		Set
			If (Me._SiteID.Equals(value) = false) Then
				Me.OnSiteIDChanging(value)
				Me.SendPropertyChanging
				Me._SiteID = value
				Me.SendPropertyChanged("SiteID")
				Me.OnSiteIDChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_ClassID", DbType:="Int NOT NULL")>  _
	Public Property ClassID() As Integer
		Get
			Return Me._ClassID
		End Get
		Set
			If ((Me._ClassID = value)  _
						= false) Then
				Me.OnClassIDChanging(value)
				Me.SendPropertyChanging
				Me._ClassID = value
				Me.SendPropertyChanged("ClassID")
				Me.OnClassIDChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_Title", DbType:="NVarChar(100) NOT NULL", CanBeNull:=false)>  _
	Public Property Title() As String
		Get
			Return Me._Title
		End Get
		Set
			If (String.Equals(Me._Title, value) = false) Then
				Me.OnTitleChanging(value)
				Me.SendPropertyChanging
				Me._Title = value
				Me.SendPropertyChanged("Title")
				Me.OnTitleChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_TitleStyle", DbType:="NVarChar(140)")>  _
	Public Property TitleStyle() As String
		Get
			Return Me._TitleStyle
		End Get
		Set
			If (String.Equals(Me._TitleStyle, value) = false) Then
				Me.OnTitleStyleChanging(value)
				Me.SendPropertyChanging
				Me._TitleStyle = value
				Me.SendPropertyChanged("TitleStyle")
				Me.OnTitleStyleChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_Author", DbType:="NVarChar(20) NOT NULL", CanBeNull:=false)>  _
	Public Property Author() As String
		Get
			Return Me._Author
		End Get
		Set
			If (String.Equals(Me._Author, value) = false) Then
				Me.OnAuthorChanging(value)
				Me.SendPropertyChanging
				Me._Author = value
				Me.SendPropertyChanged("Author")
				Me.OnAuthorChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_txtContext", DbType:="NText NOT NULL", CanBeNull:=false, UpdateCheck:=UpdateCheck.Never)>  _
	Public Property txtContext() As String
		Get
			Return Me._txtContext
		End Get
		Set
			If (String.Equals(Me._txtContext, value) = false) Then
				Me.OntxtContextChanging(value)
				Me.SendPropertyChanging
				Me._txtContext = value
				Me.SendPropertyChanged("txtContext")
				Me.OntxtContextChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_scTitle", DbType:="NVarChar(100)")>  _
	Public Property scTitle() As String
		Get
			Return Me._scTitle
		End Get
		Set
			If (String.Equals(Me._scTitle, value) = false) Then
				Me.OnscTitleChanging(value)
				Me.SendPropertyChanging
				Me._scTitle = value
				Me.SendPropertyChanged("scTitle")
				Me.OnscTitleChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_ShortTitle", DbType:="NVarChar(30)")>  _
	Public Property ShortTitle() As String
		Get
			Return Me._ShortTitle
		End Get
		Set
			If (String.Equals(Me._ShortTitle, value) = false) Then
				Me.OnShortTitleChanging(value)
				Me.SendPropertyChanging
				Me._ShortTitle = value
				Me.SendPropertyChanged("ShortTitle")
				Me.OnShortTitleChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_KeyWord", DbType:="NVarChar(50)")>  _
	Public Property KeyWord() As String
		Get
			Return Me._KeyWord
		End Get
		Set
			If (String.Equals(Me._KeyWord, value) = false) Then
				Me.OnKeyWordChanging(value)
				Me.SendPropertyChanging
				Me._KeyWord = value
				Me.SendPropertyChanged("KeyWord")
				Me.OnKeyWordChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_ArticleTag", DbType:="NVarChar(100)")>  _
	Public Property ArticleTag() As String
		Get
			Return Me._ArticleTag
		End Get
		Set
			If (String.Equals(Me._ArticleTag, value) = false) Then
				Me.OnArticleTagChanging(value)
				Me.SendPropertyChanging
				Me._ArticleTag = value
				Me.SendPropertyChanged("ArticleTag")
				Me.OnArticleTagChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_Point", DbType:="Int")>  _
	Public Property Point() As System.Nullable(Of Integer)
		Get
			Return Me._Point
		End Get
		Set
			If (Me._Point.Equals(value) = false) Then
				Me.OnPointChanging(value)
				Me.SendPropertyChanging
				Me._Point = value
				Me.SendPropertyChanged("Point")
				Me.OnPointChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_CopyFrom", DbType:="NVarChar(20)")>  _
	Public Property CopyFrom() As String
		Get
			Return Me._CopyFrom
		End Get
		Set
			If (String.Equals(Me._CopyFrom, value) = false) Then
				Me.OnCopyFromChanging(value)
				Me.SendPropertyChanging
				Me._CopyFrom = value
				Me.SendPropertyChanged("CopyFrom")
				Me.OnCopyFromChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_PicName", DbType:="NVarChar(500)")>  _
	Public Property PicName() As String
		Get
			Return Me._PicName
		End Get
		Set
			If (String.Equals(Me._PicName, value) = false) Then
				Me.OnPicNameChanging(value)
				Me.SendPropertyChanging
				Me._PicName = value
				Me.SendPropertyChanged("PicName")
				Me.OnPicNameChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_GroupID", DbType:="Int NOT NULL")>  _
	Public Property GroupID() As Integer
		Get
			Return Me._GroupID
		End Get
		Set
			If ((Me._GroupID = value)  _
						= false) Then
				Me.OnGroupIDChanging(value)
				Me.SendPropertyChanging
				Me._GroupID = value
				Me.SendPropertyChanged("GroupID")
				Me.OnGroupIDChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_AddTime", DbType:="DateTime NOT NULL")>  _
	Public Property AddTime() As Date
		Get
			Return Me._AddTime
		End Get
		Set
			If ((Me._AddTime = value)  _
						= false) Then
				Me.OnAddTimeChanging(value)
				Me.SendPropertyChanging
				Me._AddTime = value
				Me.SendPropertyChanged("AddTime")
				Me.OnAddTimeChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_ArticleAbstract", DbType:="NVarChar(400)")>  _
	Public Property ArticleAbstract() As String
		Get
			Return Me._ArticleAbstract
		End Get
		Set
			If (String.Equals(Me._ArticleAbstract, value) = false) Then
				Me.OnArticleAbstractChanging(value)
				Me.SendPropertyChanging
				Me._ArticleAbstract = value
				Me.SendPropertyChanged("ArticleAbstract")
				Me.OnArticleAbstractChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_IsChecked", DbType:="Bit")>  _
	Public Property IsChecked() As System.Nullable(Of Boolean)
		Get
			Return Me._IsChecked
		End Get
		Set
			If (Me._IsChecked.Equals(value) = false) Then
				Me.OnIsCheckedChanging(value)
				Me.SendPropertyChanging
				Me._IsChecked = value
				Me.SendPropertyChanged("IsChecked")
				Me.OnIsCheckedChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_Appendix", DbType:="NVarChar(500)")>  _
	Public Property Appendix() As String
		Get
			Return Me._Appendix
		End Get
		Set
			If (String.Equals(Me._Appendix, value) = false) Then
				Me.OnAppendixChanging(value)
				Me.SendPropertyChanging
				Me._Appendix = value
				Me.SendPropertyChanged("Appendix")
				Me.OnAppendixChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_Hits", DbType:="Int NOT NULL")>  _
	Public Property Hits() As Integer
		Get
			Return Me._Hits
		End Get
		Set
			If ((Me._Hits = value)  _
						= false) Then
				Me.OnHitsChanging(value)
				Me.SendPropertyChanging
				Me._Hits = value
				Me.SendPropertyChanged("Hits")
				Me.OnHitsChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_Grades", DbType:="Decimal(3,1) NOT NULL")>  _
	Public Property Grades() As Decimal
		Get
			Return Me._Grades
		End Get
		Set
			If ((Me._Grades = value)  _
						= false) Then
				Me.OnGradesChanging(value)
				Me.SendPropertyChanging
				Me._Grades = value
				Me.SendPropertyChanged("Grades")
				Me.OnGradesChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_GradeCount", DbType:="Int NOT NULL")>  _
	Public Property GradeCount() As Integer
		Get
			Return Me._GradeCount
		End Get
		Set
			If ((Me._GradeCount = value)  _
						= false) Then
				Me.OnGradeCountChanging(value)
				Me.SendPropertyChanging
				Me._GradeCount = value
				Me.SendPropertyChanged("GradeCount")
				Me.OnGradeCountChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_OpenComment", DbType:="Bit NOT NULL")>  _
	Public Property OpenComment() As Boolean
		Get
			Return Me._OpenComment
		End Get
		Set
			If ((Me._OpenComment = value)  _
						= false) Then
				Me.OnOpenCommentChanging(value)
				Me.SendPropertyChanging
				Me._OpenComment = value
				Me.SendPropertyChanged("OpenComment")
				Me.OnOpenCommentChanged
			End If
		End Set
	End Property
	
	<Column(Storage:="_SkipURL", DbType:="NVarChar(500)")>  _
	Public Property SkipURL() As String
		Get
			Return Me._SkipURL
		End Get
		Set
			If (String.Equals(Me._SkipURL, value) = false) Then
				Me.OnSkipURLChanging(value)
				Me.SendPropertyChanging
				Me._SkipURL = value
				Me.SendPropertyChanged("SkipURL")
				Me.OnSkipURLChanged
			End If
		End Set
	End Property
	
	Public Event PropertyChanging As PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
	
	Public Event PropertyChanged As PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
	
	Protected Overridable Sub SendPropertyChanging()
		If ((Me.PropertyChangingEvent Is Nothing)  _
					= false) Then
			RaiseEvent PropertyChanging(Me, emptyChangingEventArgs)
		End If
	End Sub
	
	Protected Overridable Sub SendPropertyChanged(ByVal propertyName As [String])
		If ((Me.PropertyChangedEvent Is Nothing)  _
					= false) Then
			RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
		End If
	End Sub
End Class
