0

奇妙な動作をする発行サイトのページ レイアウトがあります。

次のページ (page1 [デフォルト]、page2、および page3) を持つサブサイト (subsite1) を持つ発行サイト (サイト) を想像してください。

2 ページ目と 3 ページ目では、ブレッドクラムが正しくレンダリングされます。

site > subsite1 > page2 
site > subsite1 > page3

ただし、デフォルトのページの場合、ブレッドクラムは次のようにのみレンダリングされます

site > subsite1

デフォルトページのタイトルも強制的に表示する方法はありますか?

4

1 に答える 1

0

多くの検索と失敗を繰り返した後、私はAJAXインクルードを使用することにしました。誰かが私を悪魔の言語（VB.Net）を使用しているとマークする前に、私はこのコードを使用および保守している他の開発者がそれを読むことができなければならなかったので、それを使用しただけでした...

インクルードは次のことを行いました。

  1. 現在のURLを構成要素に分割します
  2. 各部分について、SharepointURLとSharepointWebを取得します
  3. SharePointWebのタイトルを印刷する
  4. パーツがページの場合は、ページタイトルを取得して印刷します

これは最終的なコードではありません（今夜リファクタリングします）：

  Dim lsPage = Request.Item("CurrentPage")
  Dim TravelURL as string = "http://site/"
  Dim aryURLSections() = lsPage.Replace(TravelUrl, "").Split("/")
  Dim i as integer

  Response.Write("<span class='breadcrumbCurrent'>You are in &gt;</span> <span class='ms-sitemapdirectional'><a href='" & TravelUrl & "' title='Home'>Home</a> &gt; </span>")

  for i = 0 to (aryURLSections.Length -1)
    Dim PositionString as string = aryURLSections(i)
    if PositionString.Contains(".aspx") then
        'Render page
        Dim psite as SPSite = new SPSite(TravelUrl)
        Dim pobjSite As SPWeb = psite.OpenWeb() 
        Dim lList as SPList
        Dim lPage As SPListItem
        lList = pobjSite.Lists("Pages")
            If Not lList Is Nothing Then
                For Each lPage In lList.Items
                IF lsPage.ToUpper.Contains(lPage.Url.ToUpper) Then
                Response.Write("<span class='breadcrumbCurrent' >" & lPage.Title & "</span>")
                Else
                'Response.Write("<br>" & lPage.Url & " " & lsPage)
                End If
            Next
        End if
    Else if PositionString.Equals("Pages")
        ' do nothing
    else
        'render site
        TravelUrl = TravelUrl & PositionString & "/"
        'Response.Write(TravelUrl & " > ")
        Dim site as SPSite = new SPSite(TravelUrl)

        Dim objSite As SPWeb = site.OpenWeb()   
        Dim PubWeb = PublishingWeb.GetPublishingWeb(objSite)

        Response.Write("<span class='ms-sitemapdirectional'><a href='" & TravelUrl & "' title='" & PubWeb.Title & "'>" & PubWeb.Title & "</a> &gt; </span>")
    End if

    Next i
于 2008-10-29T15:54:25.077 に答える