محاكاة الـsitemapPath بطريقة سهلة - نسخة قابلة للطباعة

أحببت كتابة الحل والطريقة التي اعجبتني نوعا ما بموضوع مستقل هنا وارجو ان يكون هذا الموضوع بمكانه المناسب
اول الامر نحتاج اداة بمكان موجود بكل الصفحات وهذا يضطرنا لاستخدام صفحة الماستربيج حيث ان اي اداة فيها ستكون مرئية في كل الصفحات
لنضع الان اداة Literal في منطقة ما في الماستربيج ولتكن اسفل الهيدر واعلى شريط عناوين الصفحات او شريط التنقل
لنعطي الاداة اسم وليكن "nav"
الخطوة الثانية لنكتب في موديول التعميمات التالية:
'تخزين الروابط في متغيرات

لحظة شوف التحديث
!!! تحديث !!!

نسيت ان اذكر انه ضمن مصادر الصفحات الاخرى المطلوب الوصول لاداة في الماستر بيج من خلالها ان نكتب في ثاني سطر الكود التالي:

كود :

<%@ MasterType VirtualPath="~/MasterPage.master" %>

خلاص كمل

كود :

nvdefault = "<a href='./default.aspx'>الصفحة الرئيسية</a>"

 Dim mynav As Literal = DirectCast(Master.FindControl("nav"), Literal)

 mynav.Text = nvdefault ' Request.Url.PathAndQuery

اسناد متغير الصفحة الرئيسية للاداة mynav
[[هنا كود حل مؤقت تذكره جيدا]]
------------------------
الان نذهب لصفحة عرض العناوين showform ونكتب بحدث تحميلها الكود التالي:

كود :

'تغيير  محتوى literal 

        If Not IsPostBack Then

            nvshowform = nvdefault & " < <a href='" & Request.Url.PathAndQuery & "'>" & Request.QueryString("fn") & "</a>"

        End If

        Dim mynav As Literal = DirectCast(Master.FindControl("nav"), Literal)

        mynav.Text = nvshowform  ' Request.Url.PathAndQuery

كود :

'تغيير  محتوى literal         If Not IsPostBack Then

            Dim mynav As Literal = DirectCast(Master.FindControl("nav"), Literal)

            nvshowthread = nvshowform & " < <a href='" & Request.Url.PathAndQuery & "'>" & Request.QueryString("thn") & "</a>"

            mynav.Text = nvshowthread

        End If

        ' انتهاء تغيير محتوى literal