[سعود]

طيب اخواني اخواتي ساشرح لكم بالاكواد ماقمت به لعل وعسى احدا منكم يعرف الاشكال
اولا جدول الاجبار هو : threadforced يحتوي الاعمدة التالي:
tid = ترقيم تلقائي ومفتاح اساسي
threadid=رقم المفتاح الاساسي للموضوع
tname = اسم المستخدم ()
myid = للترتيب رقمي.
-----------------
في صفحة ادارية:
مربعي نص واحد لكتابة رقم موضوع يختاره الاداري .. والاخر الترتيب فقط هذه المعلومات التي سيرسلها الاداري ..يعني يظل اسم المستخدم فارغ وهذا الكود:

كود :

Dim insert As New SqlCommand("insert into threadforced (threadid,myid) values(@threadid,@myid)", con)

وفي الصفحة الرئسيسة اللي هي Default.aspx في حدث تحميلها

كود :

If Session("name") <> "" Then            
Dim foo As New SqlCommand("select * from threadforced", con)
            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            Dim foodr As SqlDataReader = foo.ExecuteReader
            If foodr.Read Then
                If foodr.Item("tname").ToString.Split("#").Contains(Session("name")) = False Then
                    fom.Controls.Clear()
                    fom.InnerHtml = "<div class=warning align=center><h2>تطلب الادارة منك قراة الموضوع التالي: <br/><a href=http://" & Request.Url.Authority & Request.ApplicationPath & "/showthread.aspx?thid=" & foodr.Item("threadid") & ">انقر هنا</a></h2></div>"




                End If
            End If
        End If

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

كود :

Dim op As String = ""
        If Session("name") <> "" Then




            If Request.QueryString("thid") <> "" Then




                Dim tn As New SqlCommand("select tname from threadforced", con)
                If con.State = Data.ConnectionState.Closed Then
                    con.Open()
                End If
                Dim s As SqlDataReader = tn.ExecuteReader
                If s.Read Then
                    op &= s.Item("tname").ToString.Trim & "#"
                End If




















                Dim mdel As New SqlCommand("update threadforced set tname=@tname", con)
                If op.ToString.Contains(Session("name")) = False Then
                    mdel.Parameters.AddWithValue("@tname", SqlDbType.NText).Value = op & Session("name") & "#"
                Else
                    op = op.Replace(Session("name") & "#", Session("name") & "#")
                    mdel.Parameters.AddWithValue("@tname", SqlDbType.NText).Value = op & Session("name") & "#"




                End If




              








                If con.State = Data.ConnectionState.Closed Then
                    con.Open()
                End If




                mdel.ExecuteNonQuery()
              




            End If




        End If