ASP.NET Portal starter Kit 之页面配置文件

前一阵子抽了一些时间看了一下缩水版的DNN(starter kit)---- [从二十四画生那里请教的DNN的学习方法]。
其中portal的用户配置文件portalCfg.xml还有该文件的操作类portalCfg.vb是实现灵活页面布局的关键。一开始觉得写操作类的portalCfg.vb文件很难，而且那么长的代码文件差不多2k多行，仔细看portalCfg.vb文件的头部包含这样的注释：

'------------------------------------------------------------------------------

' <autogenerated>

' This code was generated by a tool.

' Runtime Version: 1.0.3705.209

' Changes to this file may cause incorrect behavior and will be lost if

' the code is regenerated.

' </autogenerated>

'------------------------------------------------------------------------------

因为对XML了解不深，查找一些资料才发现原来portalCfg.vb文件根本不用手写，用生成就可以了，无论是xml或config文件都可。
随便找简单的几行代码先试试
建立一个sample.xml 代码如下

<?xml version="1.0" encoding="utf-8" ?>

</SiteConfiguration>

然后在VS2003 里面按mouse右键 --〉生成架构你会发现项目中会多出一个 sample.xsd的文件而且你的portalCfg.xml的文件也变成如下

<?xml version="1.0" encoding="utf-8"?>

</SiteConfiguration>

portal.xsd的代码

<?xml version="1.0"?>

<xs:schema id="SiteConfiguration" targetNamespace="http://tempuri.org/sample.xsd" xmlns:mstns="http://tempuri.org/sample.xsd" xmlns="http://tempuri.org/sample.xsd" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" attributeFormDefault="qualified" elementFormDefault="qualified">

<xs:element name="SiteConfiguration" msdata:IsDataSet="true" msdata:Locale="zh-CN" msdata:EnforceConstraints="False">

<xs:complexType>

<xs:choice maxOccurs="unbounded">

<xs:element name="Module">

<xs:complexType>

<xs:attribute name="ModuleId" form="unqualified" type="xs:string" />

<xs:attribute name="ModuleTitle" form="unqualified" type="xs:string" />

<xs:attribute name="EditRoles" form="unqualified" type="xs:string" />

<xs:attribute name="ModuleDefId" form="unqualified" type="xs:string" />

<xs:attribute name="PaneName" form="unqualified" type="xs:string" />

<xs:attribute name="CacheTimeout" form="unqualified" type="xs:string" />

<xs:attribute name="ModuleOrder" form="unqualified" type="xs:string" />

<xs:attribute name="ShowMobile" form="unqualified" type="xs:string" />

</xs:complexType>

</xs:element>

</xs:choice>

</xs:complexType>

</xs:element>

</xs:schema>

然后打开sample.xsd文件 --〉在数据集模式下面按mouse右键--〉生成数据集 sample.vb代码就出来了。

'------------------------------------------------------------------------------

' <autogenerated>

' This code was generated by a tool.

' Runtime Version: 1.1.4322.573

' Changes to this file may cause incorrect behavior and will be lost if

' the code is regenerated.

' </autogenerated>

'------------------------------------------------------------------------------

Option Strict Off

Option Explicit On

Imports System

Imports System.Data

Imports System.Runtime.Serialization

Imports System.Xml

<Serializable(), _

System.ComponentModel.DesignerCategoryAttribute("code"), _

System.Diagnostics.DebuggerStepThrough(), _

System.ComponentModel.ToolboxItem(true)> _

Public Class SiteConfiguration

Inherits DataSet

Private table_Module As _ModuleDataTable

Public Sub New()

MyBase.New

Me.InitClass

Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged

AddHandler Me.Tables.CollectionChanged, schemaChangedHandler

AddHandler Me.Relations.CollectionChanged, schemaChangedHandler

End Sub

Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)

MyBase.New

Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(System.String)),String)

If (Not (strSchema) Is Nothing) Then

Dim ds As DataSet = New DataSet

ds.ReadXmlSchema(New XmlTextReader(New System.IO.StringReader(strSchema)))

If (Not (ds.Tables("Module")) Is Nothing) Then

Me.Tables.Add(New _ModuleDataTable(ds.Tables("Module")))

End If

Me.DataSetName = ds.DataSetName

Me.Prefix = ds.Prefix

Me.Namespace = ds.Namespace

Me.Locale = ds.Locale

Me.CaseSensitive = ds.CaseSensitive

Me.EnforceConstraints = ds.EnforceConstraints

Me.Merge(ds, false, System.Data.MissingSchemaAction.Add)

Me.InitVars

Else

Me.InitClass

End If

Me.GetSerializationData(info, context)

Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged

AddHandler Me.Tables.CollectionChanged, schemaChangedHandler

AddHandler Me.Relations.CollectionChanged, schemaChangedHandler

End Sub

<System.ComponentModel.Browsable(false), _

System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _

Public ReadOnly Property _Module As _ModuleDataTable

Get

Return Me.table_Module

End Get

End Property

Public Overrides Function Clone() As DataSet

Dim cln As SiteConfiguration = CType(MyBase.Clone,SiteConfiguration)

cln.InitVars

Return cln

End Function

Protected Overrides Function ShouldSerializeTables() As Boolean

Return false

End Function

Protected Overrides Function ShouldSerializeRelations() As Boolean

Return false

End Function

Protected Overrides Sub ReadXmlSerializable(ByVal reader As XmlReader)

Me.Reset

Dim ds As DataSet = New DataSet

ds.ReadXml(reader)

If (Not (ds.Tables("Module")) Is Nothing) Then

Me.Tables.Add(New _ModuleDataTable(ds.Tables("Module")))

End If

Me.DataSetName = ds.DataSetName

Me.Prefix = ds.Prefix

Me.Namespace = ds.Namespace

Me.Locale = ds.Locale

Me.CaseSensitive = ds.CaseSensitive

Me.EnforceConstraints = ds.EnforceConstraints

Me.Merge(ds, false, System.Data.MissingSchemaAction.Add)

Me.InitVars

End Sub

Protected Overrides Function GetSchemaSerializable() As System.Xml.Schema.XmlSchema

Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream

Me.WriteXmlSchema(New XmlTextWriter(stream, Nothing))

stream.Position = 0

Return System.Xml.Schema.XmlSchema.Read(New XmlTextReader(stream), Nothing)

End Function

Friend Sub InitVars()

Me.table_Module = CType(Me.Tables("Module"),_ModuleDataTable)

If (Not (Me.table_Module) Is Nothing) Then

Me.table_Module.InitVars

End If

End Sub

Private Sub InitClass()

Me.DataSetName = "SiteConfiguration"

Me.Prefix = ""

Me.Namespace = "http://tempuri.org/sample.xsd"

Me.Locale = New System.Globalization.CultureInfo("zh-CN")

Me.CaseSensitive = false

Me.EnforceConstraints = false

Me.table_Module = New _ModuleDataTable

Me.Tables.Add(Me.table_Module)

End Sub

Private Function ShouldSerialize_Module() As Boolean

Return false

End Function

Private Sub SchemaChanged(ByVal sender As Object, ByVal e As System.ComponentModel.CollectionChangeEventArgs)

If (e.Action = System.ComponentModel.CollectionChangeAction.Remove) Then

Me.InitVars

End If

End Sub

Public Delegate Sub _ModuleRowChangeEventHandler(ByVal sender As Object, ByVal e As _ModuleRowChangeEvent)

<System.Diagnostics.DebuggerStepThrough()> _

Public Class _ModuleDataTable

Inherits DataTable

Implements System.Collections.IEnumerable

Private columnModuleId As DataColumn

Private columnModuleTitle As DataColumn

Private columnEditRoles As DataColumn

Private columnModuleDefId As DataColumn

Private columnPaneName As DataColumn

Private columnCacheTimeout As DataColumn

Private columnModuleOrder As DataColumn

Private columnShowMobile As DataColumn

Friend Sub New()

MyBase.New("Module")

Me.InitClass

End Sub

Friend Sub New(ByVal table As DataTable)

MyBase.New(table.TableName)

If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then

Me.CaseSensitive = table.CaseSensitive

End If

If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then

Me.Locale = table.Locale

End If

If (table.Namespace <> table.DataSet.Namespace) Then

Me.Namespace = table.Namespace

End If

Me.Prefix = table.Prefix

Me.MinimumCapacity = table.MinimumCapacity

Me.DisplayExpression = table.DisplayExpression

End Sub

<System.ComponentModel.Browsable(false)> _

Public ReadOnly Property Count As Integer

Get

Return Me.Rows.Count

End Get

End Property

Friend ReadOnly Property ModuleIdColumn As DataColumn

Get

Return Me.columnModuleId

End Get

End Property

Friend ReadOnly Property ModuleTitleColumn As DataColumn

Get

Return Me.columnModuleTitle

End Get

End Property

Friend ReadOnly Property EditRolesColumn As DataColumn

Get

Return Me.columnEditRoles

End Get

End Property

Friend ReadOnly Property ModuleDefIdColumn As DataColumn

Get

Return Me.columnModuleDefId

End Get

End Property

Friend ReadOnly Property PaneNameColumn As DataColumn

Get

Return Me.columnPaneName

End Get

End Property

Friend ReadOnly Property CacheTimeoutColumn As DataColumn

Get

Return Me.columnCacheTimeout

End Get

End Property

Friend ReadOnly Property ModuleOrderColumn As DataColumn

Get

Return Me.columnModuleOrder

End Get

End Property

Friend ReadOnly Property ShowMobileColumn As DataColumn

Get

Return Me.columnShowMobile

End Get

End Property

Public Default ReadOnly Property Item(ByVal index As Integer) As _ModuleRow

Get

Return CType(Me.Rows(index),_ModuleRow)

End Get

End Property

Public Event _ModuleRowChanged As _ModuleRowChangeEventHandler

Public Event _ModuleRowChanging As _ModuleRowChangeEventHandler

Public Event _ModuleRowDeleted As _ModuleRowChangeEventHandler

Public Event _ModuleRowDeleting As _ModuleRowChangeEventHandler

Public Overloads Sub Add_ModuleRow(ByVal row As _ModuleRow)

Me.Rows.Add(row)

End Sub

Public Overloads Function Add_ModuleRow(ByVal ModuleId As String, ByVal ModuleTitle As String, ByVal EditRoles As String, ByVal ModuleDefId As String, ByVal PaneName As String, ByVal CacheTimeout As String, ByVal ModuleOrder As String, ByVal ShowMobile As String) As _ModuleRow

Dim row_ModuleRow As _ModuleRow = CType(Me.NewRow,_ModuleRow)

row_ModuleRow.ItemArray = New Object() {ModuleId, ModuleTitle, EditRoles, ModuleDefId, PaneName, CacheTimeout, ModuleOrder, ShowMobile}

Me.Rows.Add(row_ModuleRow)

Return row_ModuleRow

End Function

Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator

Return Me.Rows.GetEnumerator

End Function

Public Overrides Function Clone() As DataTable

Dim cln As _ModuleDataTable = CType(MyBase.Clone,_ModuleDataTable)

cln.InitVars

Return cln

End Function

Protected Overrides Function CreateInstance() As DataTable

Return New _ModuleDataTable

End Function

Friend Sub InitVars()

Me.columnModuleId = Me.Columns("ModuleId")

Me.columnModuleTitle = Me.Columns("ModuleTitle")

Me.columnEditRoles = Me.Columns("EditRoles")

Me.columnModuleDefId = Me.Columns("ModuleDefId")

Me.columnPaneName = Me.Columns("PaneName")

Me.columnCacheTimeout = Me.Columns("CacheTimeout")

Me.columnModuleOrder = Me.Columns("ModuleOrder")

Me.columnShowMobile = Me.Columns("ShowMobile")

End Sub

Private Sub InitClass()

Me.columnModuleId = New DataColumn("ModuleId", GetType(System.String), Nothing, System.Data.MappingType.Attribute)

Me.Columns.Add(Me.columnModuleId)

Me.columnModuleTitle = New DataColumn("ModuleTitle", GetType(System.String), Nothing, System.Data.MappingType.Attribute)

Me.Columns.Add(Me.columnModuleTitle)

Me.columnEditRoles = New DataColumn("EditRoles", GetType(System.String), Nothing, System.Data.MappingType.Attribute)

Me.Columns.Add(Me.columnEditRoles)

Me.columnModuleDefId = New DataColumn("ModuleDefId", GetType(System.String), Nothing, System.Data.MappingType.Attribute)

Me.Columns.Add(Me.columnModuleDefId)

Me.columnPaneName = New DataColumn("PaneName", GetType(System.String), Nothing, System.Data.MappingType.Attribute)

Me.Columns.Add(Me.columnPaneName)

Me.columnCacheTimeout = New DataColumn("CacheTimeout", GetType(System.String), Nothing, System.Data.MappingType.Attribute)

Me.Columns.Add(Me.columnCacheTimeout)

Me.columnModuleOrder = New DataColumn("ModuleOrder", GetType(System.String), Nothing, System.Data.MappingType.Attribute)

Me.Columns.Add(Me.columnModuleOrder)

Me.columnShowMobile = New DataColumn("ShowMobile", GetType(System.String), Nothing, System.Data.MappingType.Attribute)

Me.Columns.Add(Me.columnShowMobile)

Me.columnModuleId.Namespace = ""

Me.columnModuleTitle.Namespace = ""

Me.columnEditRoles.Namespace = ""

Me.columnModuleDefId.Namespace = ""

Me.columnPaneName.Namespace = ""

Me.columnCacheTimeout.Namespace = ""

Me.columnModuleOrder.Namespace = ""

Me.columnShowMobile.Namespace = ""

End Sub

Public Function New_ModuleRow() As _ModuleRow

Return CType(Me.NewRow,_ModuleRow)

End Function

Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow

Return New _ModuleRow(builder)

End Function

Protected Overrides Function GetRowType() As System.Type

Return GetType(_ModuleRow)

End Function

Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)

MyBase.OnRowChanged(e)

If (Not (Me._ModuleRowChangedEvent) Is Nothing) Then

RaiseEvent _ModuleRowChanged(Me, New _ModuleRowChangeEvent(CType(e.Row,_ModuleRow), e.Action))

End If

End Sub

Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)

MyBase.OnRowChanging(e)

If (Not (Me._ModuleRowChangingEvent) Is Nothing) Then

RaiseEvent _ModuleRowChanging(Me, New _ModuleRowChangeEvent(CType(e.Row,_ModuleRow), e.Action))

End If

End Sub

Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)

MyBase.OnRowDeleted(e)

If (Not (Me._ModuleRowDeletedEvent) Is Nothing) Then

RaiseEvent _ModuleRowDeleted(Me, New _ModuleRowChangeEvent(CType(e.Row,_ModuleRow), e.Action))

End If

End Sub

Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)

MyBase.OnRowDeleting(e)

If (Not (Me._ModuleRowDeletingEvent) Is Nothing) Then

RaiseEvent _ModuleRowDeleting(Me, New _ModuleRowChangeEvent(CType(e.Row,_ModuleRow), e.Action))

End If

End Sub

Public Sub Remove_ModuleRow(ByVal row As _ModuleRow)

Me.Rows.Remove(row)

End Sub

End Class

<System.Diagnostics.DebuggerStepThrough()> _

Public Class _ModuleRow

Inherits DataRow

Private table_Module As _ModuleDataTable

Friend Sub New(ByVal rb As DataRowBuilder)

MyBase.New(rb)

Me.table_Module = CType(Me.Table,_ModuleDataTable)

End Sub

Public Property ModuleId As String

Get

Try

Return CType(Me(Me.table_Module.ModuleIdColumn),String)

Catch e As InvalidCastException

Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)

End Try

End Get

Set

Me(Me.table_Module.ModuleIdColumn) = value

End Set

End Property

Public Property ModuleTitle As String

Get

Try

Return CType(Me(Me.table_Module.ModuleTitleColumn),String)

Catch e As InvalidCastException

Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)

End Try

End Get

Set

Me(Me.table_Module.ModuleTitleColumn) = value

End Set

End Property

Public Property EditRoles As String

Get

Try

Return CType(Me(Me.table_Module.EditRolesColumn),String)

Catch e As InvalidCastException

Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)

End Try

End Get

Set

Me(Me.table_Module.EditRolesColumn) = value

End Set

End Property

Public Property ModuleDefId As String

Get

Try

Return CType(Me(Me.table_Module.ModuleDefIdColumn),String)

Catch e As InvalidCastException

Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)

End Try

End Get

Set

Me(Me.table_Module.ModuleDefIdColumn) = value

End Set

End Property

Public Property PaneName As String

Get

Try

Return CType(Me(Me.table_Module.PaneNameColumn),String)

Catch e As InvalidCastException

Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)

End Try

End Get

Set

Me(Me.table_Module.PaneNameColumn) = value

End Set

End Property

Public Property CacheTimeout As String

Get

Try

Return CType(Me(Me.table_Module.CacheTimeoutColumn),String)

Catch e As InvalidCastException

Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)

End Try

End Get

Set

Me(Me.table_Module.CacheTimeoutColumn) = value

End Set

End Property

Public Property ModuleOrder As String

Get

Try

Return CType(Me(Me.table_Module.ModuleOrderColumn),String)

Catch e As InvalidCastException

Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)

End Try

End Get

Set

Me(Me.table_Module.ModuleOrderColumn) = value

End Set

End Property

Public Property ShowMobile As String

Get

Try

Return CType(Me(Me.table_Module.ShowMobileColumn),String)

Catch e As InvalidCastException

Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)

End Try

End Get

Set

Me(Me.table_Module.ShowMobileColumn) = value

End Set

End Property

Public Function IsModuleIdNull() As Boolean

Return Me.IsNull(Me.table_Module.ModuleIdColumn)

End Function

Public Sub SetModuleIdNull()

Me(Me.table_Module.ModuleIdColumn) = System.Convert.DBNull

End Sub

Public Function IsModuleTitleNull() As Boolean

Return Me.IsNull(Me.table_Module.ModuleTitleColumn)

End Function

Public Sub SetModuleTitleNull()

Me(Me.table_Module.ModuleTitleColumn) = System.Convert.DBNull

End Sub

Public Function IsEditRolesNull() As Boolean

Return Me.IsNull(Me.table_Module.EditRolesColumn)

End Function

Public Sub SetEditRolesNull()

Me(Me.table_Module.EditRolesColumn) = System.Convert.DBNull

End Sub

Public Function IsModuleDefIdNull() As Boolean

Return Me.IsNull(Me.table_Module.ModuleDefIdColumn)

End Function

Public Sub SetModuleDefIdNull()

Me(Me.table_Module.ModuleDefIdColumn) = System.Convert.DBNull

End Sub

Public Function IsPaneNameNull() As Boolean

Return Me.IsNull(Me.table_Module.PaneNameColumn)

End Function

Public Sub SetPaneNameNull()

Me(Me.table_Module.PaneNameColumn) = System.Convert.DBNull

End Sub

Public Function IsCacheTimeoutNull() As Boolean

Return Me.IsNull(Me.table_Module.CacheTimeoutColumn)

End Function

Public Sub SetCacheTimeoutNull()

Me(Me.table_Module.CacheTimeoutColumn) = System.Convert.DBNull

End Sub

Public Function IsModuleOrderNull() As Boolean

Return Me.IsNull(Me.table_Module.ModuleOrderColumn)

End Function

Public Sub SetModuleOrderNull()

Me(Me.table_Module.ModuleOrderColumn) = System.Convert.DBNull

End Sub

Public Function IsShowMobileNull() As Boolean

Return Me.IsNull(Me.table_Module.ShowMobileColumn)

End Function

Public Sub SetShowMobileNull()

Me(Me.table_Module.ShowMobileColumn) = System.Convert.DBNull

End Sub

End Class

<System.Diagnostics.DebuggerStepThrough()> _

Public Class _ModuleRowChangeEvent

Inherits EventArgs

Private eventRow As _ModuleRow

Private eventAction As DataRowAction

Public Sub New(ByVal row As _ModuleRow, ByVal action As DataRowAction)

MyBase.New

Me.eventRow = row

Me.eventAction = action

End Sub

Public ReadOnly Property Row As _ModuleRow

Get

Return Me.eventRow

End Get

End Property

Public ReadOnly Property Action As DataRowAction

Get

Return Me.eventAction

End Get

End Property

End Class

这样的话就方便了。用这种方法重新生成portalCfg.vb 发现生成的代码也只比原来的少了几个简单的方法而已。好了也算是学习DNN的一个小小的收获。贴出来如有不妥请大家指教。

相关链接:
ASP.NET Portal starter Kit ----重构DAL

asp.net Portal Starter kit----改造Portal的Html文本编辑器