DotNetNuke:Skin.vb代码流程分析
http://www.cnblogs.com/cnzc/archive/2004/10/15/51553.html
DotNetNuke:Skin.vb代码流程分析[完]
这篇随笔对SKIN.VB的分析可能比较简单，但具体的流程我应该是写出来了，对于它的具体作用还是需要大家自己的分析里面的代码，毕竟我也是自己研究，对一些地方的看法也有或多或少存在错误。
一，获取当前请求的httpcontext的入口设置
Dim _portalSettings As PortalSettings = CType(HttpContext.Current.Items("PortalSettings"), PortalSettings)
二，获取模块标题为：Site Settings 的ID（存储过程GetSiteMode())，然后根据该ID获取DNN的容器
三，遍历HTML窗体的服务器控件（Me.Controls,注释：定义所有asp.net服务器控件共享的属性，方法和事件)如果它的类型是HTMLCONTROL(TypeOf ctlControl Is HtmlControl)(注释：HTML服务器控件的所通用的方法，属性和事件），进行转换，并断定它是否包含“runation=server“的属性值及对应值，只在到_portalSettings的Panes哈期表中
For Each ctlControl In Me.Controls
' load the skin panes
'载入皮肤容器
If TypeOf ctlControl Is HtmlControl Then
objHtmlControl = CType(ctlControl, HtmlControl)
If Not objHtmlControl.ID Is Nothing Then
Select Case objHtmlControl.TagName.ToUpper 'leftpane,contentpane,rightpane
Case "TD", "DIV", "SPAN", "P"
' content pane
'窗器位置
_portalSettings.Panes.Add(ctlControl.ID)
End Select
End If
End If
Next
四，根据URL的参数判断是否是管理控制，如果是，重申admin.ascx控件，并处理panes
panes:如果当我们以管理员登陆，并且这个位置是可以显示边框（位置的AuthorizedRoles＝-1)及名称的，比如默认有Home位置，它的AuthorizedRoles＝”-1;0”，就相应的显示边框，并显示panen名称（leftpane,rightpane,contextpane)
If (PortalSecurity.IsInRole(_portalSettings.AdministratorRoleId.ToString) = True Or PortalSecurity.IsInRoles(_portalSettings.ActiveTab.AdministratorRoles.ToString) = True) And blnPreview = False Then
'是以管理登陆,并且它是可以显示边框(-1) 及pane名称的，比如home,skin位置等
If IsAdminTab(_portalSettings.ActiveTab.TabId, _portalSettings.ActiveTab.ParentId) = False Then
blnLayoutMode = True
End If
End If
显示边框及名称
If blnLayoutMode Then '???管理，并且它是否是独立
Dim ctlPane As Control
Dim strPane As String
For Each strPane In _portalSettings.Panes '_portalSettings.Panes=rightpant,contentpant,rightpane
ctlPane = Me.FindControl(strPane)
ctlPane.Visible = True
' display pane border
'显示pane的边框
If TypeOf ctlPane Is HtmlTableCell Then
CType(ctlPane, HtmlTableCell).Style("border-top") = "1px #CCCCCC dotted"
CType(ctlPane, HtmlTableCell).Style("border-bottom") = "1px #CCCCCC dotted"
CType(ctlPane, HtmlTableCell).Style("border-right") = "1px #CCCCCC dotted"
CType(ctlPane, HtmlTableCell).Style("border-left") = "1px #CCCCCC dotted"
End If
' display pane name
'显示pane的名称,如leftpane,contentpane,rightpane
Dim ctlLabel As New Label
ctlLabel.Text = "<center>" & strPane & "</center><br>"
ctlLabel.CssClass = "SubHead"
ctlPane.Controls.AddAt(0, ctlLabel)
Next
End If
点击游览效果图：http://www.cnblogs.com/images/cnblogs_com/zc_net/dnn_17.gif
五，从数据库中（DNN_Modules）获取不当前位置的所有模块信息（/dotnetnuke/default.aspx?tabid=1），根据每个模块的的位置（panename)，载入到相应的位置当中(panename)
' inject the module into the skin
InjectModule(parent, _moduleSettings, _portalSettings)
InjectModule事件的简要的流程：
第一步：先载入容器（～/portal/_default/containers/_default/default.ascx）
ctlContainer = LoadContainer("~" & ModuleSettings.ContainerPath.Remove(0, Len(Global.ApplicationPath)) & ModuleSettings.ContainerSrc, objPane)
第二步：获取窗口的表格（pane)，然后在表格中载入模块
' get container pane
Dim objCell As Control = ctlContainer.FindControl(glbDefaultPane) 'glbDefaultPane="contentpane"
' create a wrapper panel control for the module content min/max
Dim objPanel As New Panel
objPanel.ID = "ModuleContent"
' module user control processing
'模块用户控制处理
If Not objPortalModuleControl Is Nothing Then
' inject the module into the panel
'objPanel=模块容器
objPanel.Controls.Add(objPortalModuleControl)
End If
' inject the panel into the container pane
'注入面板插入到容器窗框中
objCell.Controls.Add(objPanel)
第三步：在指定位置（leftpane,contentpane,rightpane)载入创建的表格
' inject the container into the page pane - this triggers the Pre_Init() event for the user control
objPane.Controls.Add(ctlContainer)
六：分析URL的地址，从数据库中的表中分析相应模块及说明,然后又执行上面的（五）步骤
Dim ModuleId As Integer = -1
Dim Key As String = ""
' get ModuleId（获取模块ID）
If Not IsNothing(Request.QueryString("mid")) Then
ModuleId = Int32.Parse(Request.QueryString("mid"))
End If
' get Key（获得关键字），动态进行装载控件
If Not IsNothing(Request.QueryString("def")) Then
Key = Request.QueryString("def") ' old syntax
End If
If Not IsNothing(Request.QueryString("ctl")) Then
Key = Request.QueryString("ctl") ' new syntax
End If
Dim arrModuleControls As ArrayList = objModuleControls.GetModuleControlsByKey(Key, _moduleSettings.ModuleDefId)
For intCounter = 0 To arrModuleControls.Count - 1
……这里执行存储过程GetModuleControlsByKey,返回列表（也就是模块信息)
next
If blnAuthorized Then
' inject the module
InjectModule(parent, _moduleSettings, _portalSettings)
Else
Skin.AddPageMessage(Me, "", "Either you are not currently logged in, or you do not have the rights to access this module within the portal.", Skins.ModuleMessage.ModuleMessageType.YellowWarning)
End If
本来昨天就要分析完的，但在重新分析这块的时候自己又出现了许多疑问，所以不得不停止写随笔。
而且今天感觉自己写的也有点匆忙，前段时间决定分析SKIN.VB，现在也差不多分析完了（以后整个DNN都会在重新分析，加深自己的理解），而下一步就是分析容器了，在分析SKIN.VB 也相应的分析过容器的代码，感觉也有点复杂……希望大家对容器有自己的看法也能告诉我一下，我也好参考：）
一，获取当前请求的httpcontext的入口设置
Dim _portalSettings As PortalSettings = CType(HttpContext.Current.Items("PortalSettings"), PortalSettings)二，获取模块标题为：Site Settings 的ID（存储过程GetSiteMode())，然后根据该ID获取DNN的容器
三，遍历HTML窗体的服务器控件（Me.Controls,注释：定义所有asp.net服务器控件共享的属性，方法和事件)如果它的类型是HTMLCONTROL(TypeOf ctlControl Is HtmlControl)(注释：HTML服务器控件的所通用的方法，属性和事件），进行转换，并断定它是否包含“runation=server“的属性值及对应值，只在到_portalSettings的Panes哈期表中
For Each ctlControl In Me.Controls ' load the skin panes '载入皮肤容器 If TypeOf ctlControl Is HtmlControl Then objHtmlControl = CType(ctlControl, HtmlControl) If Not objHtmlControl.ID Is Nothing Then Select Case objHtmlControl.TagName.ToUpper 'leftpane,contentpane,rightpane Case "TD", "DIV", "SPAN", "P" ' content pane '窗器位置 _portalSettings.Panes.Add(ctlControl.ID) End Select End If End If Next四，根据URL的参数判断是否是管理控制，如果是，重申admin.ascx控件，并处理panes
panes:如果当我们以管理员登陆，并且这个位置是可以显示边框（位置的AuthorizedRoles＝-1)及名称的，比如默认有Home位置，它的AuthorizedRoles＝”-1;0”，就相应的显示边框，并显示panen名称（leftpane,rightpane,contextpane)
If (PortalSecurity.IsInRole(_portalSettings.AdministratorRoleId.ToString) = True Or PortalSecurity.IsInRoles(_portalSettings.ActiveTab.AdministratorRoles.ToString) = True) And blnPreview = False Then '是以管理登陆,并且它是可以显示边框(-1) 及pane名称的，比如home,skin位置等 If IsAdminTab(_portalSettings.ActiveTab.TabId, _portalSettings.ActiveTab.ParentId) = False Then blnLayoutMode = True End If End If显示边框及名称
If blnLayoutMode Then '???管理，并且它是否是独立 Dim ctlPane As Control Dim strPane As String For Each strPane In _portalSettings.Panes '_portalSettings.Panes=rightpant,contentpant,rightpane ctlPane = Me.FindControl(strPane) ctlPane.Visible = True ' display pane border '显示pane的边框 If TypeOf ctlPane Is HtmlTableCell Then CType(ctlPane, HtmlTableCell).Style("border-top") = "1px #CCCCCC dotted" CType(ctlPane, HtmlTableCell).Style("border-bottom") = "1px #CCCCCC dotted" CType(ctlPane, HtmlTableCell).Style("border-right") = "1px #CCCCCC dotted" CType(ctlPane, HtmlTableCell).Style("border-left") = "1px #CCCCCC dotted" End If ' display pane name '显示pane的名称,如leftpane,contentpane,rightpane Dim ctlLabel As New Label ctlLabel.Text = "<center>" & strPane & "</center><br>" ctlLabel.CssClass = "SubHead" ctlPane.Controls.AddAt(0, ctlLabel) Next End If五，从数据库中（DNN_Modules）获取不当前位置的所有模块信息（/dotnetnuke/default.aspx?tabid=1），根据每个模块的的位置（panename)，载入到相应的位置当中(panename)
' inject the module into the skin InjectModule(parent, _moduleSettings, _portalSettings)第一步：先载入容器（～/portal/_default/containers/_default/default.ascx）
ctlContainer = LoadContainer("~" & ModuleSettings.ContainerPath.Remove(0, Len(Global.ApplicationPath)) & ModuleSettings.ContainerSrc, objPane)' get container pane Dim objCell As Control = ctlContainer.FindControl(glbDefaultPane) 'glbDefaultPane="contentpane" ' create a wrapper panel control for the module content min/max Dim objPanel As New Panel objPanel.ID = "ModuleContent" ' module user control processing '模块用户控制处理 If Not objPortalModuleControl Is Nothing Then ' inject the module into the panel 'objPanel=模块容器 objPanel.Controls.Add(objPortalModuleControl) End If ' inject the panel into the container pane '注入面板插入到容器窗框中 objCell.Controls.Add(objPanel)第三步：在指定位置（leftpane,contentpane,rightpane)载入创建的表格
' inject the container into the page pane - this triggers the Pre_Init() event for the user control objPane.Controls.Add(ctlContainer)六：分析URL的地址，从数据库中的表中分析相应模块及说明,然后又执行上面的（五）步骤
Dim ModuleId As Integer = -1 Dim Key As String = "" ' get ModuleId（获取模块ID） If Not IsNothing(Request.QueryString("mid")) Then ModuleId = Int32.Parse(Request.QueryString("mid")) End If ' get Key（获得关键字），动态进行装载控件 If Not IsNothing(Request.QueryString("def")) Then Key = Request.QueryString("def") ' old syntax End If If Not IsNothing(Request.QueryString("ctl")) Then Key = Request.QueryString("ctl") ' new syntax End If Dim arrModuleControls As ArrayList = objModuleControls.GetModuleControlsByKey(Key, _moduleSettings.ModuleDefId) For intCounter = 0 To arrModuleControls.Count - 1……这里执行存储过程GetModuleControlsByKey,返回列表（也就是模块信息)
next If blnAuthorized Then ' inject the module InjectModule(parent, _moduleSettings, _portalSettings) Else Skin.AddPageMessage(Me, "", "Either you are not currently logged in, or you do not have the rights to access this module within the portal.", Skins.ModuleMessage.ModuleMessageType.YellowWarning) End If本来昨天就要分析完的，但在重新分析这块的时候自己又出现了许多疑问，所以不得不停止写随笔。
而且今天感觉自己写的也有点匆忙，前段时间决定分析SKIN.VB，现在也差不多分析完了（以后整个DNN都会在重新分析，加深自己的理解），而下一步就是分析容器了，在分析SKIN.VB 也相应的分析过容器的代码，感觉也有点复杂……希望大家对容器有自己的看法也能告诉我一下，我也好参考：）
