[収蔵]ASP.NET Starter Kit掘宝記コラム:Portal Starter Kit写しられる宝はどこですか?

17728 ワード
.net asp.net asp vb VB.NET

ASP.NET Starter Kit掘宝記コラム:


Portal Starter Kitが写せる宝はどこですか?



作者:周世雄
2003年10月

Portal Starter Kit(ポータルサイト入門キット)写し可能な宝


プログラマーの「宝を掘る」時が来た.米マイクロソフトが開発し、無料で、オリジナルのプログラムコードを開放したPortal Starter Kit(ポータルサイト入門キット)で写せる場所はどこだろうか.写すことができる宝(場所)には、次のものが含まれています.
  • 入口サイトエンジン動作原理.
  • Context物件一時預かり入口サイト設定.
  • ASP.NET 3層アーキテクチャ.
  • サポート行動装置(ASP.NET Mobile Control)は、Pocket PCの内蔵ブラウザをサポートし、他の行動装置のWAP/WML構文を提供する.

    • 入口のウェブサイトのエンジンの動作の原理


    ポータルサイトのエンジンの動作原理は以下の通りです.
  • ポータルサイトXML設定ファイルをContext物件に読み込む:ページを読み取るたびにGlobalが実行される.asaのApplication_BeginRequestサブルーチンでは,ポータルサイトのXMLファイル設定をContext物件に格納する.ここではComponentsConfigurationと呼びます.vbのNew()、GetSiteSettings().
  • ページのチェックと各モジュールを表示する:Defaultが実行される.aspx、非行動装置はDesktopDefaultに導く.aspx.DesktopDefault.aspxはContext物件のエントリサイト設定を読み込み、ページチェックと各モジュールを表示します.

    • ポータルサイト設定XMLファイル


    ポータルサイト全体の設定はリポジトリに格納されず、XMLファイル(PortalCfg.xml)に格納される.
    例えば「従業員メッセージ」ページにPortalCfgに署名する.xmlの部分:
      <tab tabid="2" tabname="    " accessroles="All Users;" taborder="9" showmobile="true" mobiletabname="HR"><module moduleid="9" moduletitle="      " editroles="Admins;" moduledefid="2" panename="ContentPane" cachetimeout="0" moduleorder="1" showmobile="true"></module><module moduleid="10" moduletitle="       " editroles="Admins;" moduledefid="10" panename="ContentPane" cachetimeout="0" moduleorder="3" showmobile="false"></module><module moduleid="43" moduletitle="       " editroles="Admins;" moduledefid="6" panename="ContentPane" cachetimeout="0" moduleorder="5" showmobile="false"><settings><setting name="src">~/IMAGES/IMAGE19.JPG</setting><setting name="height">300</setting><setting name="width">400</setting></settings></module><module moduleid="44" moduletitle="    " editroles="Admins;" moduledefid="8" panename="ContentPane" cachetimeout="0" moduleorder="7" showmobile="false"></module></tab>

    「従業員メッセージ」ページに次の図が表示されます.
    例えば[管理者]ページにPortalCfgにサインする.xmlの部分:
      <tab tabid="6" tabname="   " accessroles="Admins;" taborder="17" showmobile="false" mobiletabname="Admin"><module moduleid="28" moduletitle="    " editroles="Admins;" moduledefid="11" panename="RightPane" cachetimeout="0" moduleorder="1" showmobile="false"></module><module moduleid="29" moduletitle="    " editroles="Admins;" moduledefid="14" panename="ContentPane" cachetimeout="0" moduleorder="1" showmobile="false"></module><module moduleid="30" moduletitle="   (Tab)" editroles="Admins;" moduledefid="13" panename="ContentPane" cachetimeout="0" moduleorder="2" showmobile="false"></module><module moduleid="31" moduletitle="    " editroles="Admins;" moduledefid="12" panename="ContentPane" cachetimeout="0" moduleorder="3" showmobile="false"></module><module moduleid="32" moduletitle="     " editroles="Admins;" moduledefid="15" panename="ContentPane" cachetimeout="0" moduleorder="4" showmobile="false"></module></tab>

    「管理者」タブには、次の各モジュールが表示されます.
    例えば、モジュールはPortalCfgに定義.xmlの部分:
      <moduledefinition friendlyname="  " mobilesourcefile="MobileModules/Announcements.ascx" desktopsourcefile="DesktopModules/Announcements.ascx" moduledefid="1"></moduledefinition><moduledefinition friendlyname="   " mobilesourcefile="MobileModules/Contacts.ascx" desktopsourcefile="DesktopModules/Contacts.ascx" moduledefid="2"></moduledefinition><moduledefinition friendlyname="   " mobilesourcefile="" desktopsourcefile="DesktopModules  /Discussion.ascx" moduledefid="3"></moduledefinition>…  <moduledefinition friendlyname="     (Admin)" mobilesourcefile="" desktopsourcefile="Admin  /SiteSettings.ascx" moduledefid="14"></moduledefinition><moduledefinition friendlyname="      (Admin)" mobilesourcefile="" desktopsourcefile="Admin  /Users.ascx" moduledefid="15"></moduledefinition><moduledefinition friendlyname="   " mobilesourcefile="DesktopModules/MyURL.ascx" desktopsourcefile="DesktopModules/MyURL.ascx" moduledefid="16"></moduledefinition>

    [管理者]ページに次の図が表示されます.

    Context物件一時預かり入口サイト設定


    ポータルサイトエンジンの動作原理の最初のステップは、ポータルサイトXMLを読み込むためにContextオブジェクトにファイルを設定する.Portal Starter Kitは、Context物件をポータルサイトに一時保存する設定を使用して、ポータルサイトの設定をXMLファイル(PortalCfg.xml)に一時保存する特殊なテクニックを採用しています.方法はGlobal.asaのApplication_BeginRequest()サブルーチンでは,エントリサイトのXMLファイル設定をContext物件に格納した後,同じRequestからのすべてのサイトにおける任意のページ,素子および制御項目をContext物件のPortalSettingsカテゴリに呼び出すことでパラメータ設定値を読み取ることができる.
    Application_BeginRequestサブルーチン:
    Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)  Dim tabIndex As Integer = 0  Dim tabId As Integer = 1  '        If Not (Request.Params("tabindex") Is Nothing) Then    tabIndex = CInt(Request.Params("tabindex"))  End If  '        If Not (Request.Params("tabid") Is Nothing) Then    tabId = CInt(Request.Params("tabid"))  End If  'HttpContext.Current.Cache cache(     )      XML     ,    Request                 '  PortalSettings  (      ) Context  cache(     ),       HttpContext.Current.Items("PortalSettings")  PortalSettings  (      )  Context.Items.Add("PortalSettings", New PortalSettings(tabIndex, tabId))  '  SiteSettings  (    ) Context  cache(     ),       HttpContext.Current.Items("SiteSettings")  SiteSettings  (    )  Dim config As Configuration = New Configuration()  Context.Items.Add("SiteSettings", config.GetSiteSettings())  Try    If Not (Request.UserLanguages Is Nothing) Then     'Request.UserLanguages(0) = "zh-tw"     Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture(Request.     UserLanguages(0))    Else     '                  Thread.CurrentThread.CurrentCulture = New CultureInfo("en-us")    End If    Thread.CurrentThread.CurrentUICulture = Thread.CurrentThread.CurrentCulture  Catch ex As Exception    Thread.CurrentThread.CurrentCulture = New CultureInfo("en-us")  End TryEnd Sub

    ここで、「Dim config As Configuration=New Configuration()」は、ComponentsConfigurationと呼びます.vbのNew()サブルーチン:
    Public Sub New(ByVal tabIndex As Integer, ByVal tabId As Integer)  '        Dim config As Configuration = New Configuration()  Dim siteSettings As SiteConfiguration = config.GetSiteSettings()  '  TabOrder             Dim tRow As SiteConfiguration.TabRow  For Each tRow In siteSettings.Tab.Select("", "TabOrder")    Dim tabDetails As New TabStripDetails()    With tabDetails     .TabId = tRow.TabId     .TabName = tRow.TabName     .TabOrder = tRow.TabOrder     .AuthorizedRoles = tRow.AccessRoles    End With    Me.DesktopTabs.Add(tabDetails)  Next  '        (PortalSettings.ActiveTab) 0,        TabID   'CType(Me.DesktopTabs(0), TabStripDetails).TabId = 1     If Me.ActiveTab.TabId = 0 Then    Me.ActiveTab.TabId = CType(Me.DesktopTabs(0), TabStripDetails).TabId  End If  '  TabOrder          (Mobile)       Dim mRow As SiteConfiguration.TabRow  For Each mRow In siteSettings.Tab.Select("ShowMobile='true'", "TabOrder")    Dim tabDetails As New TabStripDetails()    With tabdetails     .TabId = mRow.TabId     .TabName = mRow.MobileTabName     .AuthorizedRoles = mRow.AccessRoles    End With    Me.MobileTabs.Add(tabDetails)  Next  '      (Active Tab)     (Module Information)  Dim activeTab As SiteConfiguration.TabRow = siteSettings.Tab.FindByTabId(tabId)  Dim moduleRow As SiteConfiguration._ModuleRow  ' Get Modules for this Tab based on the Data Relation  For Each moduleRow In activeTab.GetModuleRows()    Dim moduleSettings As New moduleSettings()    With moduleSettings     .ModuleTitle = moduleRow.ModuleTitle     .ModuleId = moduleRow.ModuleId     .ModuleDefId = moduleRow.ModuleDefId     .ModuleOrder = moduleRow.ModuleOrder     .TabId = tabId     .PaneName = moduleRow.PaneName     .AuthorizedEditRoles = moduleRow.EditRoles     .CacheTime = moduleRow.CacheTimeout     .ShowMobile = moduleRow.ShowMobile     '        (ModuleDefinition data)     Dim modDefRow As SiteConfiguration.ModuleDefinitionRow =      siteSettings.ModuleDefinition.FindByModuleDefId(.ModuleDefId)     'URL     .DesktopSrc = modDefRow.DesktopSourceFile     .MobileSrc = modDefRow.MobileSourceFile    End With    Me.ActiveTab.Modules.Add(moduleSettings)  Next  '    (  ModuleOrder)  Me.ActiveTab.Modules.Sort()  '         Global   <global portalid="0" portalname="Portal 
  Starter Kit   " alwaysshoweditbutton="false"></global>  Dim globalSettings As SiteConfiguration.GlobalRow = siteSettings.Global.Rows(0)  '  Portal global settings   Me.PortalId = globalSettings.PortalId  Me.PortalName = globalSettings.PortalName  Me.AlwaysShowEditButton = globalSettings.AlwaysShowEditButton  Me.ActiveTab.TabIndex = tabIndex  Me.ActiveTab.TabId = tabId  Me.ActiveTab.TabOrder = activeTab.TabOrder  Me.ActiveTab.MobileTabName = activeTab.MobileTabName  Me.ActiveTab.AuthorizedRoles = activeTab.AccessRoles  Me.ActiveTab.TabName = activeTab.TabName  Me.ActiveTab.ShowMobile = activeTab.ShowMobileEnd Sub

    ここで「config.GetSiteSettings()」は「Components」と呼びます.vbのGetSiteSettings()関数式は、入口サイトXMLファイル設定ファイルを速取メモリ(cache)HttpContextに格納する.Current.Cache: 
    '      XML     Public Function GetSiteSettings() As SiteConfiguration  Dim siteSettings As SiteConfiguration = CType(HttpContext.Current.Cache("SiteSettings"),   SiteConfiguration)  ' SiteConfiguration    cache(     ),   XML     cache.  If siteSettings Is Nothing Then    '  dataset    siteSettings = New SiteConfiguration()    '  XML         ' Web.Config      configFile(<add key="configFile" value="/PortalVBVS3/PortalCfg.xml"></add>)    'ConfigurationSettings.AppSettings("configFile")	= "/PortalVBVS3/PortalCfg.xml"     'configFile = "C:\Program Files\ASP.NET Starter Kits\ASP.NET Portal     (VBVS)\PortalVBVS3\PortalCfg.xml"    Dim configFile As String =     HttpContext.Current.Server.MapPath(ConfigurationSettings.AppSettings("configFile"))    With siteSettings     '  AutoIncrement   true             .Tab.TabIdColumn.AutoIncrement = True     ._Module.ModuleIdColumn.AutoIncrement = True     .ModuleDefinition.ModuleDefIdColumn.AutoIncrement = True     '  XML   DataSet     siteSettings.ReadXml(configFile)    End With    '  dataset cache    HttpContext.Current.Cache.Insert("SiteSettings", siteSettings,     New CacheDependency(configFile))  End If  Return siteSettingsEnd Function

    Contextアイテムのテクニックを覚えましたか?

    各モジュールにチェックマークを表示


    ポータルサイトのエンジンの動作原理の2番目のステップは、ページチェックと各モジュールを表示することです.DesktopDefault.aspxは、各モジュールにラベルを表示する責任を負います.動作原理は以下の通りである.
  • 表示ページタグ:DesktopDefault.aspxに含まれるDesktopPortalBanner.ascxは表示を担当し、資料はページに署名してdatalistします.
  • 各モジュールを表示する:動作原理はWeb利用者制御項(.ascx)のモジュール,DesktopDefault.aspxは「parent.controls.Add(portalModule)」を使用してモジュールをWebページに追加します.

    • Globalを実行します.asaのApplication_BeginRequestサブプログラムの後、Defaultを実行します.aspx、非行動装置はDesktopDefaultに導く.aspx: 
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  ' Request.Browser("IsMobileDevice")     ,                   If Request.Browser("IsMobileDevice") = "true" Then  '            MobileDefault.aspx  Response.Redirect("MobileDefault.aspx")  Else  '      (      )      TimeEntry.aspx  Response.Redirect("DesktopDefault.aspx")  End IfEnd Sub

    DesktopDefault.aspxはContext物件のエントリサイト設定を読み込み、ページチェックと各モジュールを表示します.
    DesktopDefault.aspxに含まれるDesktopPortalBanner.ascxはラベルの表示を担当し、DesktopPortalBanner.ascxの関連プログラムは次のようになります.各ページタグを参照する権限があるかどうかを確認した後、資料系がページタグdatalistに結び付けられます.
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  ' Context  (HttpContext.Current.Items("PortalSettings"))  PortalSettings  (      )  Dim _portalSettings As PortalSettings = CType(HttpContext.Current.Items("PortalSettings"),   PortalSettings)  '      ,   XML <global portalid="0" portalname="Portal Starter Kit   " sitename.text="_portalSettings.PortalName" if request.isauthenticated="True" then welcomemessage.text="   " context.user.identity.name class='Accent"'>|    "    '                      If Context.User.Identity.AuthenticationType = "Forms" Then      LogoffLink = "|" &amp; ControlChars.Cr &amp; "   " &amp; ""    End If  End If  If ShowTabs = True Then    tabIndex = _portalSettings.ActiveTab.TabIndex    '          Dim authorizedTabs As New ArrayList()    Dim addedTabs As Integer = 0    Dim i As Integer    For i = 0 To _portalSettings.DesktopTabs.Count - 1      Dim tab As TabStripDetails = CType(_portalSettings.DesktopTabs(i), TabStripDetails)     '                   If PortalSecurity.IsInRoles(tab.AuthorizedRoles) Then       authorizedTabs.Add(tab)     End If     If addedTabs = tabIndex Then       tabs.SelectedIndex = addedTabs     End If     addedTabs += 1    Next i    '          tabs.DataSource = authorizedTabs    tabs.DataBind()  End IfEnd Sub</global>

    Security.vbのIsInRole()は、次のように、各ページのくじに関するプログラムを参照する権限があるかどうかを確認します.
    Public Shared Function IsInRole(ByVal role As String) As Boolean  Return HttpContext.Current.User.IsInRole(role)End Function

    次はaspxは各モジュールを表示する、ポータルサイトXMLのファイル設定に従って、この選択ページに署名するページのモジュール(.ascx)を左、中間、右のレイアウト、DesktopDefaultに追加する.aspxの関連プログラムは以下の通りです.
    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init  ' Context  (HttpContext.Current.Items("PortalSettings"))  PortalSettings  (      )  Dim _portalSettings As PortalSettings = CType(HttpContext.Current.Items("PortalSettings"),   PortalSettings)  '                   ,           AccessDenied.aspx,   _portalSettings.ActiveTab.AuthorizedRoles = "All Users;"        If PortalSecurity.IsInRoles(_portalSettings.ActiveTab.AuthorizedRoles) = False Then    Response.Redirect("~/Admin/AccessDenied.aspx")  End If  '                  (SignIn.ascx)          If Request.IsAuthenticated = False And _portalSettings.ActiveTab.TabIndex = 0 Then    LeftPane.Controls.Add(Page.LoadControl("~/DesktopModules/SignIn.ascx"))    LeftPane.Visible = True  End If  '      XML    ,                ,   ,        If _portalSettings.ActiveTab.Modules.Count > 0 Then    Dim _moduleSettings As ModuleSettings    For Each _moduleSettings In _portalSettings.ActiveTab.Modules      Dim parent As Control = Page.FindControl(_moduleSettings.PaneName)      '                  user control instance,               If _moduleSettings.CacheTime = 0 Then        Dim portalModule As PortalModuleControl = CType(Page.LoadControl        (_moduleSettings.DesktopSrc), PortalModuleControl)        portalModule.PortalId = _portalSettings.PortalId        portalModule.ModuleConfiguration = _moduleSettings        parent.Controls.Add(portalModule)      Else        Dim portalModule As New CachedPortalModuleControl()        portalModule.PortalId = _portalSettings.PortalId        portalModule.ModuleConfiguration = _moduleSettings        parent.Controls.Add(portalModule)      End If      '               parent.Controls.Add(New LiteralControl(""))      parent.Visible = True    Next _moduleSettings  End IfEnd Sub

    面白いですか?

    Portal Starter Kitダウンロード


    Portal Starter Kit英文版ソフトは、オリジナルコードhttp://www.asp.net/Default.aspx?tabindex=9&tabid=47を含む以下のサイトで無料でダウンロードおよび使用できます.

    ASP.NET Starter Kit中国語版


    ASP.NET Starter Kit中文版软体可到"MSDN下载专区",分次免费下载与使用:http://www.microsoft.com/taiwan/msdn/downloads/default.htm
    あるいはMSDN Subscriptionを介して付属する.NETエンタープライズWebサイト錦嚢は、すべての中国語版エントリースイートとアーキテクチャ白書を一度に取得します.関連項目:http://www.microsoft.com/taiwan/msdn/promo/
    ブラウザがレンダリングを解析するプロセス
    [Ext JS]コンポーネントフローティング一通(floating、alignTo)