موس 2007 التفصيلي المشكلة

Question

لدي تخطيط الصفحة من أجل نشر الموقع مع السلوك الغريب.

تخيل نشر الموقع (الموقع) مع فرعي (subsite1) الذي الصفحات التالية (page1 [افتراضي], page2, و القائمة 3)

الصفحة 2 الصفحة الثالثة التفصيلي يجعل بشكل صحيح:

site > subsite1 > page2 
site > subsite1 > page3

ومع ذلك على الصفحة الافتراضية التفصيلي إلا كما يجعل

site > subsite1

أي فكرة عن كيفية النفاذ إلى عرض عنوان الصفحة الافتراضية أيضا ؟

Answer 1

بعد الكثير من البحث و الفشل مرارا وتكرارا قررت استخدام AJAX تشمل.قبل أي شخص يمثل لي باستخدام الشياطين اللغة (VB.Net) أنا فقط استخدامه كما كان المطورين الآخرين الذين كانوا يستخدمون و استمراره هذا الرمز لذلك كان عليهم أن تكون قادرا على قراءتها...

وتشمل الخطوات التالية:

1. تقسيم url الحالي إلى الأجزاء المكونة لها
2. لكل جزء على Sharepoint URL ويب Sharepoint
3. طباعة عنوان ويب sharepoint
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