Sharepoint 莫斯2007面包屑问题

我为一个行为古怪的出版网站设计了一个页面布局

假设一个发布站点（站点）有一个子站点（subsite1），该子站点具有以下页面（page1[默认设置]、page2和page3）

对于第2页和第3页，面包屑正确呈现：

site > subsite1 > page2 
site > subsite1 > page3

但是，对于默认页面，面包屑仅呈现为

site > subsite1

---

你知道如何强制它显示默认页面的标题吗？

经过多次搜索和失败后，我决定使用ajaxinclude。在有人因为我使用devils语言（VB.Net）而对我进行批评之前，我只是在其他开发人员使用和维护这段代码时才使用它，所以他们必须能够阅读它

委员会做了以下工作：

将当前url拆分为其组成部分

对于每个部分，获取Sharepoint URL和Sharepoint Web

打印sharepoint网站的标题

如果零件是一个页面，则获取页面标题并打印它

这不是最后的代码（我今晚要重构它）：

Dim lsPage=Request.Item（“当前页面”）
Dim TravelURL作为字符串=”http://site/"
Dim aryURLSections（）=lsPage.Replace（TravelUrl，“”）.Split（“/”）
作为整数的Dim i
回答。写下（“你在”）
对于i=0到（aryURLSections.Length-1）
Dim PositionString as string=aryURLSections（i）
如果PositionString.Contains（“.aspx”）则
'渲染页
作为SPSite的Dim psite=新SPSite（TravelUrl）
Dim pobjSite为SPWeb=psite.OpenWeb（）
像斯普利斯特一样暗淡
将lPage设置为splitItem
list=pobjSite.list（“页面”）
如果不是，那就什么都不是了
对于list.Items中的每个lPage
如果lsPage.ToUpper.Contains（lPage.Url.ToUpper），则
Response.Write（“&lPage.Title&”）
其他的
'Response.Write（“
”&lPage.Url&&&lsPage）
如果结束
下一个
如果结束
如果PositionString.Equals（“页面”），则为Else
“什么也不做
其他的
'渲染站点
TravelUrl=TravelUrl&PositionString&“/”
'Response.Write（TravelUrl&“>”）
作为SPSite的Dim站点=新SPSite（TravelUrl）
Dim objSite为SPWeb=site.OpenWeb（）
Dim PubWeb=PublishingWeb.GetPublishingWeb（objSite）
回答。写（“”）
如果结束
接下来我

  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