DotNetNuke的Skin.vb代码流程分析

转自:http://www.apsky.cn/article.asp?id=353

这篇随笔对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