طيب اخواني اخواتي ساشرح لكم بالاكواد ماقمت به لعل وعسى احدا منكم يعرف الاشكال
اولا جدول الاجبار هو : 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
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
