[سعود]

النتيجة مذهلة


التحديث هو:
اكتب بموديول هذه التعميمات

كود :

'تخزين الروابط في متغيرات    Public nvdefault As String = ""
    Public nvshowform As String = ""
    Public nvshowthread As String = ""

وفي الرئيسية اكتب بحدث التحميل للصفحة

كود :

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

        If Not IsPostBack Then
            nvdefault = "<a href='./default.aspx'>الصفحة الرئيسية</a>"
        End If
        Dim mynav As Literal = DirectCast(Master.FindControl("nav"), Literal)
        mynav.Text = nvdefault ' Request.Url.PathAndQuery


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

وفي صفحة عرض قائمة المواضيع

كود :

'تغيير  محتوى 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

وفي صفحة عرض الموضوع

كود :

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

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


        End If
        Dim mynav As Literal = DirectCast(Master.FindControl("nav"), Literal)
        mynav.Text = nvshowthread  ' Request.Url.PathAndQuery


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

هذه هي القصة كلها
الحمدلله الذي بنعمته تتم الصالحات