DNN 研究路线图

首先我们从一个链接请求到达服务器开始讲起，来找出系统是如何处理各种要求的，从而整理出来我们需要的各个组件。

       我们首先看看在 web.config 这个网站的配置文件当中，有下面一段配置。它意味着系统在处理连接请求时首先会通过下列过滤器插件的处理。

 

 <httpModules>
      <add name="UrlRewrite" type="DotNetNuke.HttpModules.UrlRewriteModule, DotNetNuke.HttpModules.UrlRewrite" />
      <add name="Exception" type="DotNetNuke.HttpModules.ExceptionModule, DotNetNuke.HttpModules.Exception" />
      <!-- add name="Authentication" type="DotNetNuke.HttpModules.AuthenticationModule, DotNetNuke.HttpModules.Authentication" / -->
      <add name="UsersOnline" type="DotNetNuke.HttpModules.UsersOnlineModule, DotNetNuke.HttpModules.UsersOnline" />
      <add name="ProfilePrototype" type="Microsoft.ScalableHosting.Profile.ProfileModule, MemberRole, Version=1.0.0.0, Culture=neutral, PublicKeyToken=b7c773fb104e7562" />
      <add name="AnonymousIdentificationPrototype" type="Microsoft.ScalableHosting.Security.AnonymousIdentificationModule, MemberRole, Version=1.0.0.0, Culture=neutral, PublicKeyToken=b7c773fb104e7562" />
      <add name="RoleManagerPrototype" type="Microsoft.ScalableHosting.Security.RoleManagerModule, MemberRole, Version=1.0.0.0, Culture=neutral, PublicKeyToken=b7c773fb104e7562" />
      <add name="DNNMembership" type="DotNetNuke.HttpModules.DNNMembershipModule, DotNetNuke.HttpModules.DNNMembership" />
      <add name="Personalization" type="DotNetNuke.HttpModules.PersonalizationModule, DotNetNuke.HttpModules.Personalization" />
    </httpModules>

 

 

首先处理连接请求的是 UrlRewriteModule 这个过滤器处理模块。这个模块的处理功能是将 DotNetNuke 的链接形式转化为正常？+ & 的模式(DNN的鼻祖IBuySpy)。但是在这个模块当中也封装了一些其他的处理。我们来看看HttpModule.UrlRewrite 的一些功能。这个项目当中主要的结构在后面章节描述。

HttpModule.UrlRewrite 当中主要入口模块或者主要控制程序是UrlRewriteModule.vb 当中的UrlRewriteModule 类。它继承了 IHttpModule。这个类需要实现 OnBeginRequest 这个 function , 用来处理提交到服务器的链接。

Dim app As HttpApplication = CType(s, HttpApplication)
            Dim requestedPath As String = app.Request.Url.AbsoluteUri
            Dim Server As HttpServerUtility = app.Server
            Dim Request As HttpRequest = app.Request
            Dim Response As HttpResponse = app.Response

            ' URL validation 
            ' check for ".." escape characters commonly used by hackers to traverse the folder tree on the server
            ' the application should always use the exact relative location of the resource it is requesting
            'Dim strURL As String = Server.UrlDecode(Request.RawUrl)
            Dim strURL As String = Request.Url.AbsolutePath
            Dim strDoubleDecodeURL As String = Server.UrlDecode(Server.UrlDecode(Request.RawUrl))
            If strURL.IndexOf("..") <> -1 Or strDoubleDecodeURL.IndexOf("..") <> -1 Then
                Throw New HttpException(404, "Not Found")
            End If

            'fix for ASP.NET canonicalization issues http://support.microsoft.com/?kbid=887459
            If (Request.Path.IndexOf(Chr(92)) >= 0 Or System.IO.Path.GetFullPath(Request.PhysicalPath) <> Request.PhysicalPath) Then
                Throw New HttpException(404, "Not Found")
            End If

            'check if we are upgrading/installing
            If Request.Url.LocalPath.ToLower.EndsWith("install.aspx") Then
                Exit Sub
            End If

            ' Remove querystring if exists.. it gets added on later
            If (app.Request.Url.Query <> "") Then
                requestedPath = requestedPath.Replace(app.Request.Url.Query, "")
            End If

            app.Context.Items.Add("UrlRewrite:OriginalUrl", app.Request.Url.AbsoluteUri)

            Dim rules As Config.RewriterRuleCollection = Config.RewriterConfiguration.GetConfig().Rules

            For i As Integer = 0 To rules.Count - 1
                Dim lookFor As String = "^" & RewriterUtils.ResolveUrl(app.Context.Request.ApplicationPath, rules(i).LookFor) & "$"
                Dim re As Regex = New Regex(lookFor, RegexOptions.IgnoreCase)

                If (re.IsMatch(requestedPath)) Then
                    Dim sendTo As String = RewriterUtils.ResolveUrl(app.Context.Request.ApplicationPath, re.Replace(requestedPath, rules(i).SendTo))
                    Dim sesMatch As Match = re.Match(requestedPath)
                    Dim sesUrlParams As String = sesMatch.Groups(2).Value

                    If (sesUrlParams.Trim().Length > 0) Then
                        sesUrlParams = sesUrlParams.Replace("\", "/")
                        Dim urlParams As String() = sesUrlParams.Split("/"c)

                        For x As Integer = 1 To urlParams.Length - 1
                            If (urlParams(x).Trim().Length > 0 And urlParams(x).ToLower <> glbDefaultPage.ToLower) Then
                                sendTo = sendTo & "&" & urlParams(x).Replace(".aspx", "").Trim() & "="
                                If (x < (urlParams.Length - 1)) Then
                                    x += 1
                                    If (urlParams(x).Trim <> "") Then
                                        sendTo = sendTo & urlParams(x).Replace(".aspx", "")
                                    End If
                                End If
                            End If
                        Next
                    End If
                    RewriterUtils.RewriteUrl(app.Context, sendTo)
                    Exit For
                End If
            Next

            Dim TabId As Integer = -1
            Dim PortalId As Integer = -1
            Dim DomainName As String = Nothing
            Dim PortalAlias As String = Nothing
            Dim objPortalAliasInfo As PortalAliasInfo

            ' get TabId from querystring ( this is mandatory for maintaining portal context for child portals )
            If Not (Request.QueryString("tabid") Is Nothing) Then
                TabId = Int32.Parse(Request.QueryString("tabid"))
            End If
            ' get PortalId from querystring ( this is used for host menu options as well as child portal navigation )
            If Not (Request.QueryString("portalid") Is Nothing) Then
                PortalId = Int32.Parse(Request.QueryString("portalid"))
            End If

            ' alias parameter can be used to switch portals
            If Not (Request.QueryString("alias") Is Nothing) Then
                ' check if the alias is valid
                If Not PortalSettings.GetPortalAliasInfo(Request.QueryString("alias")) Is Nothing Then
                    ' check if the domain name contains the alias
                    If InStr(1, Request.QueryString("alias"), DomainName, CompareMethod.Text) = 0 Then
                        ' redirect to the url defined in the alias
                        Response.Redirect(GetPortalDomainName(Request.QueryString("alias"), Request), True)
                    Else ' the alias is the same as the current domain
                        PortalAlias = Request.QueryString("alias")
                    End If
                End If
            End If

            ' parse the Request URL into a Domain Name token 
            DomainName = GetDomainName(Request)

            ' PortalId identifies a portal when set
            If PortalAlias Is Nothing Then
                If PortalId <> -1 Then
                    PortalAlias = PortalSettings.GetPortalByID(PortalId, DomainName)
                End If
            End If

            ' TabId uniquely identifies a Portal
            If PortalAlias Is Nothing Then
                If TabId <> -1 Then
                    ' get the alias from the tabid, but only if it is for a tab in that domain
                    PortalAlias = PortalSettings.GetPortalByTab(TabId, DomainName)
                    If PortalAlias Is Nothing Or PortalAlias = "" Then
                        'if the TabId is not for the correct domain
                        'see if the correct domain can be found and redirect it 
                        objPortalAliasInfo = PortalSettings.GetPortalAliasInfo(DomainName)
                        If Not objPortalAliasInfo Is Nothing Then
                            If app.Request.Url.AbsoluteUri.ToLower.StartsWith("https://") Then
                                strURL = "https://" & objPortalAliasInfo.HTTPAlias.Replace("*.", "")
                            Else
                                strURL = "http://" & objPortalAliasInfo.HTTPAlias.Replace("*.", "")
                            End If
                            If strURL.ToLower.IndexOf(DomainName.ToLower()) = -1 Then
                                strURL += app.Request.Url.PathAndQuery
                            End If
                            Response.Redirect(strURL, True)
                        End If
                    End If
                End If
            End If

            ' else use the domain name
            If PortalAlias Is Nothing Or PortalAlias = "" Then
                PortalAlias = DomainName
            End If
            'using the DomainName above will find that alias that is the domainname portion of the Url
            'ie. dotnetnuke.com will be found even if zzz.dotnetnuke.com was entered on the Url
            objPortalAliasInfo = PortalSettings.GetPortalAliasInfo(PortalAlias)
            If Not objPortalAliasInfo Is Nothing Then
                PortalId = objPortalAliasInfo.PortalID
            End If

            ' if the portalid is not known
            If PortalId = -1 Then
                If Not Request.Url.LocalPath.ToLower.EndsWith(glbDefaultPage.ToLower) Then
                    ' allows requests for aspx pages in custom folder locations to be processed
                    Exit Sub
                Else
                    'the domain name was not found so try using the host portal's first alias
                    If Convert.ToString(HostSettings("HostPortalId")) <> "" Then
                        PortalId = Convert.ToInt32(HostSettings("HostPortalId"))
                        ' use the host portal
                        Dim objPortalAliasController As New PortalAliasController
                        Dim arrPortalAliases As ArrayList
                        arrPortalAliases = objPortalAliasController.GetPortalAliasArrayByPortalID(Integer.Parse(Convert.ToString(HostSettings("HostPortalId"))))
                        If arrPortalAliases.Count > 0 Then
                            'Get the first Alias
                            objPortalAliasInfo = CType(arrPortalAliases(0), PortalAliasInfo)
                            If app.Request.Url.AbsoluteUri.ToLower.StartsWith("https://") Then
                                strURL = "https://" & objPortalAliasInfo.HTTPAlias.Replace("*.", "")
                            Else
                                strURL = "http://" & objPortalAliasInfo.HTTPAlias.Replace("*.", "")
                            End If
                            If TabId <> -1 Then
                                strURL += app.Request.Url.Query()
                            End If
                            Response.Redirect(strURL, True)
                        End If
                    End If
                End If
            End If


            If PortalId <> -1 Then
                ' load the PortalSettings into current context
                Dim _portalSettings As PortalSettings = New PortalSettings(TabId, objPortalAliasInfo)
                app.Context.Items.Add("PortalSettings", _portalSettings)
            Else
                ' alias does not exist in database
                ' and all attempts to find another have failed
                'this should only happen if the HostPortal does not have any aliases
                Dim objStreamReader As StreamReader
                objStreamReader = File.OpenText(Server.MapPath("~/404.htm"))
                Dim strHTML As String = objStreamReader.ReadToEnd
                objStreamReader.Close()
                strHTML = Replace(strHTML, "[DOMAINNAME]", DomainName)
                Response.Write(strHTML)
                Response.End()
            End If

这一节代码有些长，需要对它进行重构。这段代码实现的主要功能有：

1、  验证 URL 正确性。

a)         检查是否有“..”这种字符的存在，防止非法访问服务器目录。

b)        修改 Asp.net 中的一个漏洞。http://support.microsoft.com/?kbid=887459

c)        检查系统是是否在安装状态，这个部分我们省略掉。

2、  定义重写规则，这个部分我们在第二部分予以详细讲解。

3、  读取项目信息。这个部分原本不应该出现在重写模块。

a)         读取 TabID

b)        读取PortalId

c)        读取别称参数。别称用在在不同的 Portals 之间转换。

d)        解析域名。主要用在 Ip 地址与域名绑定上。通过这个功能实现了一个站点对应多个域名的功能。

e)         通过 tabid 取得 Portal 信息

f)         通过域名定义别称

g)        通过别称取得Portal信息

h)        通过 Portal id 获得protal信息

i)          通过上述操作，获得 Portalid 后取得 Portal 的设置信息，并且将设置信息保存在上下文当中。

关于 Portal 相关类结构我们在后面的章节进一步描述。

当 RewriterUtils 工具重写了 URL 之后，所有的请求将被传递给系统几个主要的入口页面。在 Portal 当中可以接受普通计算机发送过来的请求，但是也可以接受手机等其他特殊设备发送过来的请求。目前我们主要处理的是从普通计算机发送过来的请求。需要我们注意的有两点，第一、所有请求都有单一的页面入口处理。第二、Portal 程序都是以控件安装到我们的系统当中。

        下面，我们来看看 Default.aspx 是如何处理页面链接请求的

  1'
  2' DotNetNuke?- http://www.dotnetnuke.com
  3' Copyright (c) 2002-2006
  4' by Perpetual Motion Interactive Systems Inc. ( http://www.perpetualmotion.ca )
  5'
  6' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
  7' documentation files (the "Software"), to deal in the Software without restriction, including without limitation 
  8' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 
  9' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
 10'
 11' The above copyright notice and this permission notice shall be included in all copies or substantial portions 
 12' of the Software.
 13'
 14' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED 
 15' TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 
 16' THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF 
 17' CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 
 18' DEALINGS IN THE SOFTWARE.
 19'
 20
 21Imports System.IO
 22Imports DotNetNuke.Entities.Tabs
 23Imports DotNetNuke.UI.Skins
 24
 25Namespace DotNetNukeNamespaceNamespace DotNetNukeNamespace DotNetNuke.Framework
 26    ''' -----------------------------------------------------------------------------
 27    ''' Project     : DotNetNuke
 28    ''' Class     : CDefault
 29    ''' 
 30    ''' -----------------------------------------------------------------------------
 31    ''' <summary>
 32    ''' 
 33    ''' </summary>
 34    ''' <remarks>
 35    ''' </remarks>
 36    ''' <history>
 37    '''     [sun1]    1/19/2004    Created
 38    ''' </history>
 39    ''' -----------------------------------------------------------------------------
 40    Public MustInherit Class CDefaultClassClass CDefaultClass CDefault
 41
 42        Inherits DotNetNuke.Framework.PageBase
 43
 44        Public Comment As String = ""
 45        Public Title As String = ""
 46        Public Description As String = ""
 47        Public KeyWords As String = ""
 48        Public Copyright As String = ""
 49        Public Generator As String = ""
 50        Public Author As String = ""
 51
 52        Protected ScrollTop As System.Web.UI.HtmlControls.HtmlInputHidden
 53        Protected SkinError As System.Web.UI.WebControls.Label
 54        Protected SkinPlaceHolder As System.Web.UI.WebControls.PlaceHolder
 55
 56        Protected CSS As System.Web.UI.WebControls.PlaceHolder
 57        Protected FAVICON As System.Web.UI.WebControls.PlaceHolder
 58        Protected phDNNHead As System.Web.UI.WebControls.PlaceHolder
 59
 60Properties#Region "Properties"
 61
 62        ''' -----------------------------------------------------------------------------
 63        ''' <summary>
 64        ''' Property to allow the programmatic assigning of ScrollTop position
 65        ''' </summary>
 66        ''' <value></value>
 67        ''' <remarks>
 68        ''' </remarks>
 69        ''' <history>
 70        '''     [Jon Henning]    3/23/2005    Created
 71        ''' </history>
 72        ''' -----------------------------------------------------------------------------
 73        Public Property PageScrollTop()Property PageScrollTop()Property PageScrollTop()Property PageScrollTop() As Integer
 74            Get
 75                If ScrollTop.Value.Length > 0 AndAlso IsNumeric(ScrollTop.Value) Then
 76                    Return CInt(ScrollTop.Value)
 77                End If
 78            End Get
 79            Set(ByVal Value As Integer)
 80                ScrollTop.Value = Value.ToString
 81            End Set
 82        End Property
 83
 84#End Region
 85
 86Private Methods#Region "Private Methods"
 87
 88        ''' -----------------------------------------------------------------------------
 89        ''' <summary>
 90        ''' 
 91        ''' </summary>
 92        ''' <remarks>
 93        ''' - Obtain PortalSettings from Current Context
 94        ''' - redirect to a specific tab based on name
 95        ''' - if first time loading this page then reload to avoid caching
 96        ''' - set page title and stylesheet
 97        ''' - check to see if we should show the Assembly Version in Page Title 
 98        ''' - set the background image if there is one selected
 99        ''' - set META tags, copyright, keywords and description
100        ''' </remarks>
101        ''' <history>
102        '''     [sun1]    1/19/2004    Created
103        ''' </history>
104        ''' -----------------------------------------------------------------------------
105        Private Sub InitializePage()Sub InitializePage()Sub InitializePage()Sub InitializePage()
106
107            Dim objTabs As New TabController
108            Dim objTab As TabInfo
109
110            ' redirect to a specific tab based on name
111            If Request.QueryString("tabname") <> "" Then
112                Dim strURL As String = ""
113
114                objTab = objTabs.GetTabByName(Request.QueryString("TabName"), CType(HttpContext.Current.Items("PortalSettings"), PortalSettings).PortalId)
115                If Not objTab Is Nothing Then
116
117                    Dim actualParamCount As Integer = 0
118                    Dim params(Request.QueryString.Count - 1) As String 'maximum number of elements
119                    For intParam As Integer = 0 To Request.QueryString.Count - 1
120                        Select Case Request.QueryString.Keys(intParam).ToLower()
121                            Case "tabid", "tabname"
122                            Case Else
123                                params(actualParamCount) = Request.QueryString.Keys(intParam) + "=" + Request.QueryString(intParam)
124                                actualParamCount = actualParamCount + 1
125                        End Select
126                    Next
127                    ReDim Preserve params(actualParamCount - 1) 'redim to remove blank elements
128
129                    Response.Redirect(NavigateURL(objTab.TabID, Null.NullString, params), True)
130
131                End If
132            End If
133
134            If Request.IsAuthenticated = True Then
135                ' set client side page caching for authenticated users
136                If Convert.ToString(PortalSettings.HostSettings("AuthenticatedCacheability")) <> "" Then
137                    Select Case Convert.ToString(PortalSettings.HostSettings("AuthenticatedCacheability"))
138                        Case "0" : Response.Cache.SetCacheability(HttpCacheability.NoCache)
139                        Case "1" : Response.Cache.SetCacheability(HttpCacheability.Private)
140                        Case "2" : Response.Cache.SetCacheability(HttpCacheability.Public)
141                        Case "3" : Response.Cache.SetCacheability(HttpCacheability.Server)
142                        Case "4" : Response.Cache.SetCacheability(HttpCacheability.ServerAndNoCache)
143                        Case "5" : Response.Cache.SetCacheability(HttpCacheability.ServerAndPrivate)
144                    End Select
145                Else
146                    Response.Cache.SetCacheability(HttpCacheability.ServerAndNoCache)
147                End If
148            End If
149
150            ' page comment
151            If GetHashValue(Common.Globals.HostSettings("Copyright"), "Y") = "Y" Then
152                Comment += "<!--**********************************************************************************-->" & vbCrLf & _
153                           "<!-- DotNetNuke?- http://www.dotnetnuke.com                                          -->" & vbCrLf & _
154                           "<!-- Copyright (c) 2002-2006                                                          -->" & vbCrLf & _
155                           "<!-- by Perpetual Motion Interactive Systems Inc. ( http://www.perpetualmotion.ca )   -->" & vbCrLf & _
156                           "<!--**********************************************************************************-->" & vbCrLf
157            End If
158
159
160            If PortalSettings.ActiveTab.RefreshInterval > 0 _
161            AndAlso Request.QueryString("ctl") Is Nothing Then
162                phDNNHead.Controls.Add(New LiteralControl("<META http-equiv=""Refresh"" content=""" + PortalSettings.ActiveTab.RefreshInterval.ToString + """ >"))
163            End If
164            If PortalSettings.ActiveTab.PageHeadText <> Null.NullString Then
165                phDNNHead.Controls.Add(New LiteralControl(PortalSettings.ActiveTab.PageHeadText))
166            End If
167
168            ' set page title
169            Dim strTitle As String = PortalSettings.PortalName
170            For Each objTab In PortalSettings.ActiveTab.BreadCrumbs
171                strTitle += " > " & objTab.TabName
172            Next
173
174            ' show copyright credits?
175            If GetHashValue(Common.Globals.HostSettings("Copyright"), "Y") = "Y" Then
176                strTitle += " ( DNN " & PortalSettings.Version & " )"
177            End If
178
179            ' tab title override
180            If PortalSettings.ActiveTab.Title <> "" Then
181                strTitle = PortalSettings.ActiveTab.Title
182            End If
183            Title = strTitle
184
185            'set the background image if there is one selected
186            If Not Me.FindControl("Body") Is Nothing Then
187                If PortalSettings.BackgroundFile <> "" Then
188                    CType(Me.FindControl("Body"), HtmlGenericControl).Attributes("background") = PortalSettings.HomeDirectory & PortalSettings.BackgroundFile
189                End If
190            End If
191
192            ' META description
193            If PortalSettings.ActiveTab.Description <> "" Then
194                Description = PortalSettings.ActiveTab.Description
195            Else
196                Description = PortalSettings.Description
197            End If
198
199            ' META keywords
200            If PortalSettings.ActiveTab.KeyWords <> "" Then
201                KeyWords = PortalSettings.ActiveTab.KeyWords
202            Else
203                KeyWords = PortalSettings.KeyWords
204            End If
205            If GetHashValue(Common.Globals.HostSettings("Copyright"), "Y") = "Y" Then
206                KeyWords += ",DotNetNuke,DNN"
207            End If
208
209            ' META copyright
210            If PortalSettings.FooterText <> "" Then
211                Copyright = PortalSettings.FooterText
212            Else
213                Copyright = "Copyright (c) " & Year(Now()) & " by " & PortalSettings.PortalName
214            End If
215
216            ' META author
217            Author = PortalSettings.PortalName
218
219            ' META generator
220            If GetHashValue(Common.Globals.HostSettings("Copyright"), "Y") = "Y" Then
221                Generator = "DotNetNuke " & PortalSettings.Version
222            Else
223                Generator = ""
224            End If
225
226        End Sub
227
228        Private Function LoadSkin()Function LoadSkin()Function LoadSkin()Function LoadSkin(ByVal SkinPath As String) As UserControl
229            Dim ctlSkin As UserControl
230
231            Try
232                If SkinPath.ToLower.IndexOf(Common.Globals.ApplicationPath.ToLower) <> -1 Then
233                    SkinPath = SkinPath.Remove(0, Len(Common.Globals.ApplicationPath))
234                End If
235                ctlSkin = CType(LoadControl("~" & SkinPath), UserControl)
236                ' call databind so that any server logic in the skin is executed
237                ctlSkin.DataBind()
238            Catch exc As Exception
239                ' could not load user control
240                Dim lex As New PageLoadException("Unhandled error loading page.", exc)
241                If PortalSecurity.IsInRoles(PortalSettings.AdministratorRoleName) = True Or PortalSecurity.IsInRoles(PortalSettings.ActiveTab.AdministratorRoles.ToString) = True Then
242                    ' only display the error to administrators
243                    SkinError.Text &= "<center>Could Not Load Skin: " & SkinPath & " Error: " & Server.HtmlEncode(exc.Message) & "</center><br>"
244                    SkinError.Visible = True
245                End If
246                LogException(lex)
247                Err.Clear()
248            End Try
249
250            Return ctlSkin
251        End Function
252
253        ''' -----------------------------------------------------------------------------
254        ''' <summary>
255        ''' 
256        ''' </summary>
257        ''' <remarks>
258        ''' - manage affiliates
259        ''' - log visit to site
260        ''' </remarks>
261        ''' <history>
262        '''     [sun1]    1/19/2004    Created
263        ''' </history>
264        ''' -----------------------------------------------------------------------------
265        Private Sub ManageRequest()Sub ManageRequest()Sub ManageRequest()Sub ManageRequest()
266
267            ' affiliate processing
268            Dim AffiliateId As Integer = -1
269            If Not Request.QueryString("AffiliateId") Is Nothing Then
270                If IsNumeric(Request.QueryString("AffiliateId")) Then
271                    AffiliateId = Int32.Parse(Request.QueryString("AffiliateId"))
272                    Dim objAffiliates As New Services.Vendors.AffiliateController
273                    objAffiliates.UpdateAffiliateStats(AffiliateId, 1, 0)
274
275                    ' save the affiliateid for acquisitions
276                    If Request.Cookies("AffiliateId") Is Nothing Then       ' do not overwrite
277                        Dim objCookie As HttpCookie = New HttpCookie("AffiliateId")
278                        objCookie.Value = AffiliateId.ToString
279                        objCookie.Expires = Now.AddYears(1)       ' persist cookie for one year
280                        Response.Cookies.Add(objCookie)
281                    End If
282                End If
283            End If
284
285            ' site logging
286            If PortalSettings.SiteLogHistory <> 0 Then
287                ' get User ID
288
289                ' URL Referrer
290                Dim URLReferrer As String = ""
291                If Not Request.UrlReferrer Is Nothing Then
292                    URLReferrer = Request.UrlReferrer.ToString()
293                End If
294
295                Dim strSiteLogStorage As String = "D"
296                If Convert.ToString(Common.Globals.HostSettings("SiteLogStorage")) <> "" Then
297                    strSiteLogStorage = Convert.ToString(Common.Globals.HostSettings("SiteLogStorage"))
298                End If
299                Dim intSiteLogBuffer As Integer = 1
300                If Convert.ToString(Common.Globals.HostSettings("SiteLogBuffer")) <> "" Then
301                    intSiteLogBuffer = Integer.Parse(Convert.ToString(Common.Globals.HostSettings("SiteLogBuffer")))
302                End If
303
304                ' log visit
305                Dim objSiteLogs As New Services.Log.SiteLog.SiteLogController
306
307                Dim objUserInfo As UserInfo = UserController.GetCurrentUserInfo
308                objSiteLogs.AddSiteLog(PortalSettings.PortalId, objUserInfo.UserID, URLReferrer, Request.Url.ToString(), Request.UserAgent, Request.UserHostAddress, Request.UserHostName, PortalSettings.ActiveTab.TabID, AffiliateId, intSiteLogBuffer, strSiteLogStorage)
309            End If
310
311        End Sub
312
313        Private Sub ManageStyleSheets()Sub ManageStyleSheets()Sub ManageStyleSheets()Sub ManageStyleSheets(ByVal PortalCSS As Boolean)
314
315            ' initialize reference paths to load the cascading style sheets
316            Dim objCSS As Control = Me.FindControl("CSS")
317            Dim objLink As HtmlGenericControl
318            Dim ID As String
319
320            Dim objCSSCache As Hashtable = CType(DataCache.GetCache("CSS"), Hashtable)
321            If objCSSCache Is Nothing Then
322                objCSSCache = New Hashtable
323            End If
324
325            If Not objCSS Is Nothing Then
326                If PortalCSS = False Then
327                    ' default style sheet ( required )
328                    ID = CreateValidID(Common.Globals.HostPath)
329                    objLink = New HtmlGenericControl("LINK")
330                    objLink.ID = ID
331                    objLink.Attributes("rel") = "stylesheet"
332                    objLink.Attributes("type") = "text/css"
333                    objLink.Attributes("href") = Common.Globals.HostPath & "default.css"
334                    objCSS.Controls.Add(objLink)
335
336                    ' skin package style sheet
337                    ID = CreateValidID(PortalSettings.ActiveTab.SkinPath)
338                    If objCSSCache.ContainsKey(ID) = False Then
339                        If File.Exists(Server.MapPath(PortalSettings.ActiveTab.SkinPath) & "skin.css") Then
340                            objCSSCache(ID) = PortalSettings.ActiveTab.SkinPath & "skin.css"
341                        Else
342                            objCSSCache(ID) = ""
343                        End If
344                        If Not Common.Globals.PerformanceSetting = Common.Globals.PerformanceSettings.NoCaching Then
345                            DataCache.SetCache("CSS", objCSSCache)
346                        End If
347                    End If
348                    If objCSSCache(ID).ToString <> "" Then
349                        objLink = New HtmlGenericControl("LINK")
350                        objLink.ID = ID
351                        objLink.Attributes("rel") = "stylesheet"
352                        objLink.Attributes("type") = "text/css"
353                        objLink.Attributes("href") = objCSSCache(ID).ToString
354                        objCSS.Controls.Add(objLink)
355                    End If
356
357                    ' skin file style sheet
358                    ID = CreateValidID(Replace(PortalSettings.ActiveTab.SkinSrc, ".ascx", ".css"))
359                    If objCSSCache.ContainsKey(ID) = False Then
360                        If File.Exists(Server.MapPath(Replace(PortalSettings.ActiveTab.SkinSrc, ".ascx", ".css"))) Then
361                            objCSSCache(ID) = Replace(PortalSettings.ActiveTab.SkinSrc, ".ascx", ".css")
362                        Else
363                            objCSSCache(ID) = ""
364                        End If
365                        If Not Common.Globals.PerformanceSetting = Common.Globals.PerformanceSettings.NoCaching Then
366                            DataCache.SetCache("CSS", objCSSCache)
367                        End If
368                    End If
369                    If objCSSCache(ID).ToString <> "" Then
370                        objLink = New HtmlGenericControl("LINK")
371                        objLink.ID = ID
372                        objLink.Attributes("rel") = "stylesheet"
373                        objLink.Attributes("type") = "text/css"
374                        objLink.Attributes("href") = objCSSCache(ID).ToString
375                        objCSS.Controls.Add(objLink)
376                    End If
377                Else
378                    ' portal style sheet
379                    ID = CreateValidID(PortalSettings.HomeDirectory)
380                    objLink = New HtmlGenericControl("LINK")
381                    objLink.ID = ID
382                    objLink.Attributes("rel") = "stylesheet"
383                    objLink.Attributes("type") = "text/css"
384                    objLink.Attributes("href") = PortalSettings.HomeDirectory & "portal.css"
385                    objCSS.Controls.Add(objLink)
386                End If
387
388            End If
389
390        End Sub
391
392        Private Sub ManageFavicon()Sub ManageFavicon()Sub ManageFavicon()Sub ManageFavicon()
393            Dim strFavicon As String = CType(DataCache.GetCache("FAVICON" & PortalSettings.PortalId.ToString), String)
394            If strFavicon = "" Then
395                If File.Exists(PortalSettings.HomeDirectoryMapPath & "favicon.ico") Then
396                    strFavicon = PortalSettings.HomeDirectory & "favicon.ico"
397                    If Not Common.Globals.PerformanceSetting = Common.Globals.PerformanceSettings.NoCaching Then
398                        DataCache.SetCache("FAVICON" & PortalSettings.PortalId.ToString, strFavicon)
399                    End If
400                End If
401            End If
402            If strFavicon <> "" Then
403                Dim objLink As HtmlGenericControl = New HtmlGenericControl("LINK")
404                objLink.Attributes("rel") = "SHORTCUT ICON"
405                objLink.Attributes("href") = strFavicon
406
407                Dim ctlFavicon As Control = Me.FindControl("FAVICON")
408                ctlFavicon.Controls.Add(objLink)
409            End If
410        End Sub
411
412#End Region
413
414Protected Methods#Region "Protected Methods"
415
416        Protected Overrides Sub Finalize()Sub Finalize()Sub Finalize()Sub Finalize()
417            MyBase.Finalize()
418        End Sub
419
420#End Region
421
422Public Methods#Region "Public Methods"
423
424        ''' -----------------------------------------------------------------------------
425        ''' <summary>
426        ''' Allows the scroll position on the page to be moved to the top of the passed in control.
427        ''' </summary>
428        ''' <param name="objControl">Control to scroll to</param>
429        ''' <remarks>
430        ''' </remarks>
431        ''' <history>
432        '''     [Jon Henning]    3/30/2005    Created
433        ''' </history>
434        ''' -----------------------------------------------------------------------------
435        Public Sub ScrollToControl()Sub ScrollToControl()Sub ScrollToControl()Sub ScrollToControl(ByVal objControl As Control)
436            If DotNetNuke.UI.Utilities.ClientAPI.BrowserSupportsFunctionality(DotNetNuke.UI.Utilities.ClientAPI.ClientFunctionality.Positioning) Then
437                DotNetNuke.UI.Utilities.ClientAPI.RegisterClientReference(Me, DotNetNuke.UI.Utilities.ClientAPI.ClientNamespaceReferences.dnn_dom_positioning)    'client side needs to calculate the top of a particluar control (elementTop)
438                DotNetNuke.UI.Utilities.ClientAPI.RegisterClientVariable(Me, "ScrollToControl", objControl.ClientID, True)
439                DotNetNuke.UI.Utilities.DNNClientAPI.AddBodyOnloadEventHandler(Page, "__dnn_setScrollTop();")
440            End If
441        End Sub
442
443#End Region
444
445Event Handlers#Region "Event Handlers"
446
447        ''' -----------------------------------------------------------------------------
448        ''' <summary>
449        ''' Contains the functionality to populate the Root aspx page with controls
450        ''' </summary>
451        ''' <param name="sender"></param>
452        ''' <param name="e"></param>
453        ''' <remarks>
454        ''' - obtain PortalSettings from Current Context
455        ''' - set global page settings.
456        ''' - initialise reference paths to load the cascading style sheets
457        ''' - add skin control placeholder.  This holds all the modules and content of the page.
458        ''' </remarks>
459        ''' <history>
460        '''     [sun1]    1/19/2004    Created
461        '''        [jhenning] 8/24/2005 Added logic to look for post originating from a ClientCallback
462        ''' </history>
463        ''' -----------------------------------------------------------------------------
464        Private Sub Page_Init()Sub Page_Init()Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
465            '
466            ' CODEGEN: This call is required by the ASP.NET Web Form Designer.
467            '
468            InitializeComponent()
469
470            ' set global page settings
471            InitializePage()
472
473            ' load skin control
474            Dim ctlSkin As UserControl
475            Dim objSkins As New UI.Skins.SkinController
476
477            ' skin preview
478            If (Not Request.QueryString("SkinSrc") Is Nothing) Then
479                PortalSettings.ActiveTab.SkinSrc = objSkins.FormatSkinSrc(QueryStringDecode(Request.QueryString("SkinSrc")) & ".ascx", PortalSettings)
480                ctlSkin = LoadSkin(PortalSettings.ActiveTab.SkinSrc)
481            End If
482
483            ' load user skin ( based on cookie )
484            If ctlSkin Is Nothing Then
485                If Not Request.Cookies("_SkinSrc" & PortalSettings.PortalId.ToString) Is Nothing Then
486                    If Request.Cookies("_SkinSrc" & PortalSettings.PortalId.ToString).Value <> "" Then
487                        PortalSettings.ActiveTab.SkinSrc = objSkins.FormatSkinSrc(Request.Cookies("_SkinSrc" & PortalSettings.PortalId.ToString).Value & ".ascx", PortalSettings)
488                        ctlSkin = LoadSkin(PortalSettings.ActiveTab.SkinSrc)
489                    End If
490                End If
491            End If
492
493            ' load assigned skin
494            If ctlSkin Is Nothing Then
495                If IsAdminSkin(PortalSettings.ActiveTab.IsAdminTab) Then
496                    Dim objSkin As UI.Skins.SkinInfo
497                    objSkin = objSkins.GetSkin(SkinInfo.RootSkin, PortalSettings.PortalId, SkinType.Admin)
498                    If Not objSkin Is Nothing Then
499                        PortalSettings.ActiveTab.SkinSrc = objSkin.SkinSrc
500                    Else
501                        PortalSettings.ActiveTab.SkinSrc = ""
502                    End If
503                End If
504
505                If PortalSettings.ActiveTab.SkinSrc <> "" Then
506                    PortalSettings.ActiveTab.SkinSrc = objSkins.FormatSkinSrc(PortalSettings.ActiveTab.SkinSrc, PortalSettings)
507                    ctlSkin = LoadSkin(PortalSettings.ActiveTab.SkinSrc)
508                End If
509            End If
510
511            ' error loading skin - load default
512            If ctlSkin Is Nothing Then
513                ' could not load skin control - load default skin
514                If IsAdminSkin(PortalSettings.ActiveTab.IsAdminTab) Then
515                    PortalSettings.ActiveTab.SkinSrc = Common.Globals.HostPath & SkinInfo.RootSkin & glbDefaultSkinFolder & glbDefaultAdminSkin
516                Else
517                    PortalSettings.ActiveTab.SkinSrc = Common.Globals.HostPath & SkinInfo.RootSkin & glbDefaultSkinFolder & glbDefaultSkin
518                End If
519                ctlSkin = LoadSkin(PortalSettings.ActiveTab.SkinSrc)
520            End If
521
522            ' set skin path
523            PortalSettings.ActiveTab.SkinPath = objSkins.FormatSkinPath(PortalSettings.ActiveTab.SkinSrc)
524
525            ' set skin id to an explicit short name to reduce page payload and make it standards compliant
526            ctlSkin.ID = "dnn"
527
528            ' add CSS links
529            ManageStyleSheets(False)
530
531            ' add Favicon
532            ManageFavicon()
533
534            ' add skin to page
535            SkinPlaceHolder.Controls.Add(ctlSkin)
536
537            ' add CSS links
538            ManageStyleSheets(True)
539
540            ' ClientCallback Logic 
541            DotNetNuke.UI.Utilities.ClientAPI.HandleClientAPICallbackEvent(Me)
542
543        End Sub
544
545        ''' -----------------------------------------------------------------------------
546        ''' <summary>
547        ''' Initialize the Scrolltop html control which controls the open / closed nature of each module 
548        ''' </summary>
549        ''' <param name="sender"></param>
550        ''' <param name="e"></param>
551        ''' <remarks>
552        ''' </remarks>
553        ''' <history>
554        '''     [sun1]    1/19/2004    Created
555        '''        [jhenning] 3/23/2005 No longer passing in parameter to __dnn_setScrollTop, instead pulling value from textbox on client
556        ''' </history>
557        ''' -----------------------------------------------------------------------------
558        Private Sub Page_Load()Sub Page_Load()Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
559            Dim Scrolltop As HtmlControls.HtmlInputHidden = CType(Page.FindControl("ScrollTop"), HtmlControls.HtmlInputHidden)
560            If Scrolltop.Value <> "" Then
561                DotNetNuke.UI.Utilities.DNNClientAPI.AddBodyOnloadEventHandler(Page, "__dnn_setScrollTop();")
562                Scrolltop.Value = Scrolltop.Value
563            End If
564        End Sub
565
566        Private Sub Page_PreRender()Sub Page_PreRender()Sub Page_PreRender()Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.PreRender
567
568            ' process the current request
569            If Not IsAdminControl() Then
570                ManageRequest()
571            End If
572
573
574        End Sub
575#End Region
576
577Web Form Designer Generated Code#Region " Web Form Designer Generated Code "
578
579        'This call is required by the Web Form Designer.
580        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()Sub InitializeComponent()Sub InitializeComponent()
581
582        End Sub
583
584#End Region
585
586    End Class
587
588End Namespace
589

 

        Default.aspx.vb 文件当中DefaultPage类继承了DotNetNuke.Framework.CDefault 。主要实现了三个页面事件，4 个 sub 和一个比较主要的 function , 调用顺序如下：

 

我们首先来讲一讲 Page_Init 这个事件。

1、  调用InitializePage 功能，主要处理下列事件：

a)      从上下文获取 PortalSettings

b)      根据 Tab name 重定向到特定的 tab

c)      如果是第一访问页面，那么重载数据避免被客户端缓存。

d)      设置 page title 和 stylesheet

e)      检查是否要显示 Assembly 版本

f)      设置背景图片

g)      设置 META tags, copyright, keywords and description

2、  装载皮肤控件

a)      如果 cookie 中有记载，就根据 cookie 设置装载控件。

b)      如果被分配了皮肤控件，就装载指定的控件

c)      为活动页面设置皮肤路径

3、  将皮肤装载到页面当中。

4、  调用客户端 API

在这个类当中另外响应事件是 Page_PreRender，主要调用了 ManageRequest 方法。

这个方法主要实现了联合管理和网站访问记录，可以暂时忽略。

    在这段代码当中继续起主要作用的是 Skin 当中的控件装载。接下来我们分析一下Skin 类的装载功能。

    我们先分析一下 Page_Init 事件处理过程：

 '
            ' CODEGEN: This call is required by the ASP.NET Web Form Designer.
            '
            InitializeComponent()

            Dim objModules As New ModuleController
            Dim objModule As ModuleInfo = Nothing
            Dim ctlPane As Control
            Dim blnLayoutMode As Boolean = Common.Globals.IsLayoutMode

            Dim bSuccess As Boolean = True
            ' iterate page controls
            Dim ctlControl As Control
            Dim objHtmlControl As HtmlControl
            For Each ctlControl In Me.Controls
                ' load the skin panes,TopPanel,LeftPanel,ContentPanel,RightPanel,BottomPanel
                If TypeOf ctlControl Is HtmlControl Then
                    objHtmlControl = CType(ctlControl, HtmlControl)
                    If Not objHtmlControl.ID Is Nothing Then
                        Select Case objHtmlControl.TagName.ToUpper
                            Case "TD", "DIV", "SPAN", "P"
                                ' content pane
                                If ctlControl.ID <> "ControlPanel" Then
                                    PortalSettings.ActiveTab.Panes.Add(ctlControl.ID)
                                End If
                        End Select
                    End If
                End If
            Next

            'if querystring dnnprintmode=true, controlpanel will not be shown
            If Request.QueryString("dnnprintmode") <> "true" Then
                ' ControlPanel processing,如果是管理员角色则显示控制面板
                If (PortalSecurity.IsInRoles(PortalSettings.AdministratorRoleName.ToString) = True Or PortalSecurity.IsInRoles(PortalSettings.ActiveTab.AdministratorRoles.ToString) = True) Then
                    Dim objControlPanel As UserControl = Nothing
                    If Convert.ToString(PortalSettings.HostSettings("ControlPanel")) <> "" Then
                        ' load custom control panel
                        objControlPanel = CType(LoadControl("~/" & Convert.ToString(PortalSettings.HostSettings("ControlPanel"))), UserControl)
                    End If
                    If objControlPanel Is Nothing Then
                        ' load default control panel
                        objControlPanel = CType(LoadControl("~/" & glbDefaultControlPanel), UserControl)
                    End If
                    ' inject ControlPanel control into skin
                    ctlPane = Me.FindControl("ControlPanel")
                    If ctlPane Is Nothing Then
                        Dim objForm As HtmlForm = CType(Me.Parent.FindControl("Form"), HtmlForm)
                        objForm.Controls.AddAt(0, objControlPanel)
                    Else
                        ctlPane.Controls.Add(objControlPanel)
                    End If
                End If
            End If
            
            If Not IsAdminControl() Then    ' master module

                If PortalSecurity.IsInRoles(PortalSettings.ActiveTab.AuthorizedRoles) Then

                    ' check portal expiry date
                    Dim blnExpired As Boolean = False
                    If PortalSettings.ExpiryDate <> Null.NullDate Then
                        If Convert.ToDateTime(PortalSettings.ExpiryDate) < Now() And PortalSettings.ActiveTab.ParentId <> PortalSettings.AdminTabId And PortalSettings.ActiveTab.ParentId <> PortalSettings.SuperTabId Then
                            blnExpired = True
                        End If
                    End If
                    If Not blnExpired Then
                        If (PortalSettings.ActiveTab.StartDate < Now And PortalSettings.ActiveTab.EndDate > Now) Or blnLayoutMode = True Then
                            ' process panes
                            If blnLayoutMode Then
                                Dim strPane As String
                                For Each strPane In PortalSettings.ActiveTab.Panes
                                    ctlPane = Me.FindControl(strPane)
                                    ctlPane.Visible = True

                                    ' display pane border
                                    If TypeOf ctlPane Is HtmlContainerControl Then
                                        CType(ctlPane, HtmlContainerControl).Style("border-top") = "1px #CCCCCC dotted"
                                        CType(ctlPane, HtmlContainerControl).Style("border-bottom") = "1px #CCCCCC dotted"
                                        CType(ctlPane, HtmlContainerControl).Style("border-right") = "1px #CCCCCC dotted"
                                        CType(ctlPane, HtmlContainerControl).Style("border-left") = "1px #CCCCCC dotted"
                                    End If

                                    ' display pane name
                                    Dim ctlLabel As New Label
                                    ctlLabel.Text = "<center>" & strPane & "</center><br>"
                                    ctlLabel.CssClass = "SubHead"
                                    ctlPane.Controls.AddAt(0, ctlLabel)
                                Next
                            End If

                            ' dynamically populate the panes with modules
                            If PortalSettings.ActiveTab.Modules.Count > 0 Then

                                ' loop through each entry in the configuration system for this tab
                                For Each objModule In PortalSettings.ActiveTab.Modules

                                    ' if user is allowed to view module and module is not deleted
                                    If PortalSecurity.IsInRoles(objModule.AuthorizedViewRoles) = True And objModule.IsDeleted = False Then

                                        ' if current date is within module display schedule or user is admin
                                        If (objModule.StartDate < Now And objModule.EndDate > Now) Or blnLayoutMode = True Then

                                            ' modules which are displayed on all tabs should not be displayed on the Admin or Super tabs
                                            '如果模块不是在所有页面或超级页面显示
                                            If objModule.AllTabs = False Or PortalSettings.ActiveTab.IsAdminTab = False Then

                                                '查找模块的容器(TopPanel/LeftPanel/ContentPanel/..
                                                Dim parent As Control = Me.FindControl(objModule.PaneName)

                                                If parent Is Nothing Then
                                                    ' the pane specified in the database does not exist for this skin
                                                    ' insert the module into the default pane instead
                                                    parent = Me.FindControl(glbDefaultPane)
                                                End If

                                                If Not parent Is Nothing Then
                                                    ' try to localize admin modules
                                                    If PortalSettings.ActiveTab.IsAdminTab Then
                                                        objModule.ModuleTitle = Services.Localization.Localization.LocalizeControlTitle(objModule.ModuleTitle, objModule.ControlSrc, "")
                                                    End If

                                                    'try to inject the module into the skin
                                                    '向模块内注入皮肤
                                                    Try
                                                        InjectModule(parent, objModule, PortalSettings)
                                                    Catch ex As Exception
                                                        bSuccess = False
                                                    End Try
                                                Else             ' no ContentPane in skin
                                                    Dim lex As ModuleLoadException
                                                    lex = New ModuleLoadException(PANE_LOAD_ERROR)
                                                    Controls.Add(New ErrorContainer(PortalSettings, MODULELOAD_ERROR, lex).Container)
                                                    LogException(lex)
                                                    Err.Clear()
                                                End If

                                            End If

                                        End If

                                    End If
                                Next objModule
                            End If
                        Else
                            Skin.AddPageMessage(Me, "", TABACCESS_ERROR, UI.Skins.Controls.ModuleMessage.ModuleMessageType.YellowWarning)
                        End If
                    Else
                        Skin.AddPageMessage(Me, "", String.Format(CONTRACTEXPIRED_ERROR, PortalSettings.PortalName, GetMediumDate(PortalSettings.ExpiryDate.ToString), PortalSettings.Email), UI.Skins.Controls.ModuleMessage.ModuleMessageType.RedError)
                    End If
                Else
                    Response.Redirect(AccessDeniedURL(TABACCESS_ERROR), True)
                End If

            Else    ' slave module

                Dim ModuleId As Integer = -1
                Dim Key As String = ""

                ' get ModuleId
                If Not IsNothing(Request.QueryString("mid")) Then
                    ModuleId = Int32.Parse(Request.QueryString("mid"))
                End If

                ' get ControlKey
                If Not IsNothing(Request.QueryString("ctl")) Then
                    Key = Request.QueryString("ctl")
                End If

                ' initialize moduleid for modulesettings
                If Not IsNothing(Request.QueryString("moduleid")) And (Key.ToLower = "module" Or Key.ToLower = "help") Then
                    ModuleId = Int32.Parse(Request.QueryString("moduleid"))
                End If

                If ModuleId <> -1 Then
                    ' get master module security settings
                    objModule = objModules.GetModule(ModuleId, PortalSettings.ActiveTab.TabID)
                    If Not objModule Is Nothing Then
                        If objModule.InheritViewPermissions Then
                            objModule.AuthorizedViewRoles = PortalSettings.ActiveTab.AuthorizedRoles
                        End If
                    End If
                End If
                If objModule Is Nothing Then
                    ' initialize object not related to a module
                    objModule = New ModuleInfo
                    objModule.ModuleID = ModuleId
                    objModule.ModuleDefID = -1
                    objModule.TabID = PortalSettings.ActiveTab.TabID
                    objModule.AuthorizedEditRoles = ""
                    objModule.AuthorizedViewRoles = ""
                End If

                ' initialize moduledefid for modulesettings
                If Not IsNothing(Request.QueryString("moduleid")) And (Key.ToLower = "module" Or Key.ToLower = "help") Then
                    objModule.ModuleDefID = -1
                End If

                ' override slave module settings
                If Request.QueryString("dnnprintmode") <> "true" Then
                    objModule.ModuleTitle = ""
                End If
                objModule.Header = ""
                objModule.Footer = ""
                objModule.StartDate = DateTime.MinValue
                objModule.EndDate = DateTime.MaxValue
                objModule.PaneName = glbDefaultPane
                objModule.Visibility = VisibilityState.None
                objModule.Color = ""
                If Request.QueryString("dnnprintmode") <> "true" Then
                    objModule.Alignment = "center"
                End If
                objModule.Border = ""
                objModule.DisplayTitle = True
                objModule.DisplayPrint = False
                objModule.DisplaySyndicate = False

                ' get portal container for slave module
                Dim objSkin As SkinInfo = SkinController.GetSkin(SkinInfo.RootContainer, PortalSettings.PortalId, SkinType.Portal)
                If Not objSkin Is Nothing Then
                    objModule.ContainerSrc = objSkin.SkinSrc
                Else
                    objModule.ContainerSrc = "[G]" & SkinInfo.RootContainer & glbDefaultContainerFolder & glbDefaultContainer
                End If
                objModule.ContainerSrc = SkinController.FormatSkinSrc(objModule.ContainerSrc, PortalSettings)
                objModule.ContainerPath = SkinController.FormatSkinPath(objModule.ContainerSrc)

                ' get the pane
                Dim parent As Control = Me.FindControl(objModule.PaneName)

                ' load the controls
                Dim objModuleControls As New ModuleControlController
                Dim objModuleControl As ModuleControlInfo
                Dim intCounter As Integer

                Dim arrModuleControls As ArrayList = objModuleControls.GetModuleControlsByKey(Key, objModule.ModuleDefID)

                For intCounter = 0 To arrModuleControls.Count - 1

                    objModuleControl = CType(arrModuleControls(intCounter), ModuleControlInfo)

                    ' initialize control values
                    objModule.ModuleControlId = objModuleControl.ModuleControlID
                    objModule.ControlSrc = objModuleControl.ControlSrc
                    objModule.ControlType = objModuleControl.ControlType
                    objModule.IconFile = objModuleControl.IconFile
                    objModule.HelpUrl = objModuleControl.HelpURL

                    If Not Null.IsNull(objModuleControl.ControlTitle) Then
                        ' try to localize control title
                        objModule.ModuleTitle = Localization.LocalizeControlTitle(objModuleControl.ControlTitle, objModule.ControlSrc, Key)
                    End If

                    ' verify that the current user has access to this control
                    Dim blnAuthorized As Boolean = True
                    Select Case objModule.ControlType
                        Case SecurityAccessLevel.Anonymous        ' anonymous
                        Case SecurityAccessLevel.View        ' view
                            If PortalSecurity.IsInRole(PortalSettings.AdministratorRoleName) = False And PortalSecurity.IsInRoles(PortalSettings.ActiveTab.AdministratorRoles.ToString) = False Then
                                If Not PortalSecurity.IsInRoles(objModule.AuthorizedViewRoles) Then
                                    blnAuthorized = False
                                End If
                            End If
                        Case SecurityAccessLevel.Edit        ' edit
                            If PortalSecurity.IsInRole(PortalSettings.AdministratorRoleName) = False And PortalSecurity.IsInRoles(PortalSettings.ActiveTab.AdministratorRoles.ToString) = False Then
                                If Not PortalSecurity.IsInRoles(objModule.AuthorizedViewRoles) Then
                                    blnAuthorized = False
                                Else
                                    If Not PortalSecurity.HasEditPermissions(objModule.ModulePermissions) Then
                                        blnAuthorized = False
                                    End If
                                End If
                            End If
                        Case SecurityAccessLevel.Admin        ' admin
                            If PortalSecurity.IsInRole(PortalSettings.AdministratorRoleName) = False And PortalSecurity.IsInRoles(PortalSettings.ActiveTab.AdministratorRoles.ToString) = False Then
                                blnAuthorized = False
                            End If
                        Case SecurityAccessLevel.Host        ' host
                            Dim objUserInfo As UserInfo = UserController.GetCurrentUserInfo
                            If Not objUserInfo.IsSuperUser Then
                                blnAuthorized = False
                            End If
                    End Select

                    If blnAuthorized Then
                        'try to inject the module into the skin
                        Try
                            InjectModule(parent, objModule, PortalSettings)
                        Catch ex As Exception
                            bSuccess = False
                        End Try
                    Else
                        Response.Redirect(AccessDeniedURL(MODULEACCESS_ERROR), True)
                    End If

                Next

            End If

            If Not blnLayoutMode Then
                CollapseUnusedPanes()
            End If

            If Not Request.QueryString("error") Is Nothing Then
                Skin.AddPageMessage(Me, CRITICAL_ERROR, Server.HtmlEncode(Request.QueryString("error")), UI.Skins.Controls.ModuleMessage.ModuleMessageType.RedError)
            End If

            If Not (PortalSecurity.IsInRoles(PortalSettings.AdministratorRoleName) = True Or PortalSecurity.IsInRoles(PortalSettings.ActiveTab.AdministratorRoles.ToString) = True) Then
                ' only display the warning to non-administrators (adminsitrators will see the errors)
                If Not bSuccess Then
                    Skin.AddPageMessage(Me, MODULELOAD_WARNING, String.Format(MODULELOAD_WARNINGTEXT, PortalSettings.Email), UI.Skins.Controls.ModuleMessage.ModuleMessageType.YellowWarning)
                End If
            End If

 

1、InitializeComponent

2、迭代处理 Skin 界面当中所有的控件。因为在 Skin 界面当中会定义一些画板(画板-Pane,它分为5种画板类型TopPane,LeftPane,ContentPane,RightPane,BottomPane)，并且将画板的 ID 记录在 PortalSettings.ActiveTab.Panes 中

3、判断是否是打印模式。如果是正常模式且有管理员权限需要显示 ControlPanel ，我们暂时不考虑这个部分

4、判断是否为主要处理模式

对于每个当前页面指定的模块找到相应的 Pane ，并且在装载 Title 时考虑全球化的问题

如果装载出错，处理页面异常。

5、判断是否为次要处理模式，主要为管理模块设置。

6、判断 blnLayoutMode 模式

在整个系统当中比较核心的一个方法是 InjectModule

这个函数在处理过程当中分为下面几个步骤：

1、装载容器

2、装载模块

Portal 信息类结构设计

Tab 类簇结构设计

HttpModule.UrlRewrite

Module 类簇设计

       Module 类簇设计是整个系统当中比较复杂的一个部分。它是 DotNetNuke 框架得以迅速扩展的基础。 Module 类簇主要包括下面几个部分：

1、  DesktopModule

 

2、  ModuleAction

 

3、   ModuleControl

 

4、  Module & ModuleSetting