طيب اخواني اخواتي ساشرح لكم بالاكواد ماقمت به لعل وعسى احدا منكم يعرف الاشكال
اولا جدول الاجبار هو : 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