اخواني اخواتي
السلام عليكم ورحمة الله وبركاته
احاول تطبيق فكرة هاك "اجبار على قراءة موضوع" وهي باضافة جدول يحتوي عمود رقم الموضوع وعمود نعم
الذي حيرني كيف اجعل العضو المسجل يعدل القيمة من نعم الى لا بحيث لاتظهر له صفحة الاجبار مرة اخرى..الذي يحصل معي انها تختفي من الجميع.
ارجو انكم عرفتم مقصدي راجيا المساعدة
السلام عليكم
عدل الجدول الى لاتي :-
رقم الموضوع رقم العموم نعم\لا رقم المستخدم
هذا اولا
ثانيا فى حدث اللود قم بالختبار الحقل بدلالة رقم المستخدم ورقم الموضوع
واتخذ القرار المناسب
تحياتى سامر عبد الله
طيب اخي الكريم
المسالة مرتبطة بالاجبار ماذا اكتب اي الاداري ماذا يرسل لهذا الجدول؟ الفكرة لدي انه يرسل رقم الموضوع فقط
معلش اخي العزيز لم افهم "رقم العموم"
ارجو المساعدة فالفكرة صعبت عليا
إقتباس : رقم العموم نعم\لا
هذا ما اقصده
طيب اخي العزيز .. لااريد ان اربط التنبيه بالموضوع برقم العضو لان التنبيه عام للكل لانه توجد تنبيهات اخرى مرتبطة بالعضو امرها بسيط اما الفكرة هذه فمعقدة.
تعبت من التفكير فيها وكل المحاولات باءت بالفشل
نحمده ونصلي على رسوله الكريم
لم لا تضيف جدول فرعي تابع لهذا الجدول، وكل عضو يغير القيمة الخاصة به (نعم/لا) من الجدول الفرعي....
إقتباس :لم لا تضيف جدول فرعي تابع لهذا الجدول، وكل عضو يغير القيمة الخاصة به (نعم/لا) من الجدول الفرعي
وكيف يكون ذلك؟؟
اتمنى احد خبير بمنتديات vbulletin يشرح لنا طريقة عمل الهاك فهو شيء رائع.
طيب اخواني اخواتي ساشرح لكم بالاكواد ماقمت به لعل وعسى احدا منكم يعرف الاشكال
اولا جدول الاجبار هو : 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