+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم برمجة وتطوير المواقع (http://vb4arb.com/vb/forumdisplay.php?fid=51)
+--- قسم : قسم ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=52)
+---- قسم : قسم اسئلة ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=53)
+---- الموضوع : فكرة اجبار على قراءة موضوع" لم استطع تطبيقها (/showthread.php?tid=8500)
الصفحات:
1
2
فكرة اجبار على قراءة موضوع" لم استطع تطبيقها - سعود - 16-04-13
اخواني اخواتي
السلام عليكم ورحمة الله وبركاته
احاول تطبيق فكرة هاك "اجبار على قراءة موضوع" وهي باضافة جدول يحتوي عمود رقم الموضوع وعمود نعم
الذي حيرني كيف اجعل العضو المسجل يعدل القيمة من نعم الى لا بحيث لاتظهر له صفحة الاجبار مرة اخرى..الذي يحصل معي انها تختفي من الجميع.
ارجو انكم عرفتم مقصدي راجيا المساعدة
فكرة اجبار على قراءة موضوع" لم استطع تطبيقها - smss - 16-04-13
السلام عليكم
عدل الجدول الى لاتي :-
رقم الموضوع رقم العموم نعم\لا رقم المستخدم
هذا اولا
ثانيا فى حدث اللود قم بالختبار الحقل بدلالة رقم المستخدم ورقم الموضوع
واتخذ القرار المناسب
تحياتى سامر عبد الله
فكرة اجبار على قراءة موضوع" لم استطع تطبيقها - سعود - 16-04-13
طيب اخي الكريم
المسالة مرتبطة بالاجبار ماذا اكتب اي الاداري ماذا يرسل لهذا الجدول؟ الفكرة لدي انه يرسل رقم الموضوع فقط
فكرة اجبار على قراءة موضوع" لم استطع تطبيقها - سعود - 16-04-13
معلش اخي العزيز لم افهم "رقم العموم"
فكرة اجبار على قراءة موضوع" لم استطع تطبيقها - سعود - 16-04-13
ارجو المساعدة فالفكرة صعبت عليا
فكرة اجبار على قراءة موضوع" لم استطع تطبيقها - smss - 16-04-13
إقتباس :هذا ما اقصدهرقم العموم نعم\لا
فكرة اجبار على قراءة موضوع" لم استطع تطبيقها - سعود - 16-04-13
طيب اخي العزيز .. لااريد ان اربط التنبيه بالموضوع برقم العضو لان التنبيه عام للكل لانه توجد تنبيهات اخرى مرتبطة بالعضو امرها بسيط اما الفكرة هذه فمعقدة.
تعبت من التفكير فيها وكل المحاولات باءت بالفشل
فكرة اجبار على قراءة موضوع" لم استطع تطبيقها - ربيع - 17-04-13
نحمده ونصلي على رسوله الكريم
لم لا تضيف جدول فرعي تابع لهذا الجدول، وكل عضو يغير القيمة الخاصة به (نعم/لا) من الجدول الفرعي....
فكرة اجبار على قراءة موضوع" لم استطع تطبيقها - سعود - 17-04-13
إقتباس :وكيف يكون ذلك؟؟لم لا تضيف جدول فرعي تابع لهذا الجدول، وكل عضو يغير القيمة الخاصة به (نعم/لا) من الجدول الفرعي
اتمنى احد خبير بمنتديات vbulletin يشرح لنا طريقة عمل الهاك فهو شيء رائع.
فكرة اجبار على قراءة موضوع" لم استطع تطبيقها - سعود - 17-04-13
طيب اخواني اخواتي ساشرح لكم بالاكواد ماقمت به لعل وعسى احدا منكم يعرف الاشكال
اولا جدول الاجبار هو : threadforced يحتوي الاعمدة التالي:
tid = ترقيم تلقائي ومفتاح اساسي
threadid=رقم المفتاح الاساسي للموضوع
tname = اسم المستخدم ()
myid = للترتيب رقمي.
-----------------
في صفحة ادارية:
مربعي نص واحد لكتابة رقم موضوع يختاره الاداري .. والاخر الترتيب فقط هذه المعلومات التي سيرسلها الاداري ..يعني يظل اسم المستخدم فارغ وهذا الكود:
كود :
Dim insert As New SqlCommand("insert into threadforced (threadid,myid) values(@threadid,@myid)", con)كود :
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