المشاركات : 129
المواضيع 31
الإنتساب : Sep 2012
السمعة :
3
الشكر: 0
تم شكره 15 مرات في 15 مشاركات
السلام عليكم اخوواني
انا حاليا اصمم موقع للدردشة ...
و عندما يدخل مستخدم للروم .. فان الموقع يطلب اسمه ليقوم بالمشاركة في الرووم .. و يصبح "اونلاين"
لكن المشكلة هي عندما يقوم بالخروج .. فيفرض ان يقوم الموقع بارسال بيانات للسيرفر تفيد بان هذا المستخدم اصبح الان غير متوفر و اصبح "اوفلاين"
فباختصار انا اريد تنفيذ امر عند الخروج من الصفحة .. و ارسال بيانات للسيرفر في نفس الوقت
تحياتي ....
الشمس اجمل في بلادي من سواها .. و الظلام
حتى الظلام هناك اجمل فهو يحتضن العـــراق :o
المشاركات : 102
المواضيع 3
الإنتساب : Sep 2012
السمعة :
1
الشكر: 0
تم شكره 331 مرات في 7 مشاركات
16-10-12, 01:17 AM
(آخر تعديل لهذه المشاركة : 16-10-12, 01:31 AM {2} بواسطة mmoh1983.)
اخي العزيز .. يمكنك ادراج ملف Global.asax واستخدام الـ session
Everyone is a genius. It's just that some people are too stupidto realize it
المشاركات : 129
المواضيع 31
الإنتساب : Sep 2012
السمعة :
3
الشكر: 0
تم شكره 15 مرات في 15 مشاركات
كيف اخي الغالي ؟؟ اتمنى منك ان ترفق مثال بسيط جدا .. فقط يقوم بالاتصال بالسيرفر عند الخروج
شكرا لك اخي
الشمس اجمل في بلادي من سواها .. و الظلام
حتى الظلام هناك اجمل فهو يحتضن العـــراق :o
المشاركات : 129
المواضيع 31
الإنتساب : Sep 2012
السمعة :
3
الشكر: 0
تم شكره 15 مرات في 15 مشاركات
up ...........
الشمس اجمل في بلادي من سواها .. و الظلام
حتى الظلام هناك اجمل فهو يحتضن العـــراق :o
المشاركات : 129
المواضيع 31
الإنتساب : Sep 2012
السمعة :
3
الشكر: 0
تم شكره 15 مرات في 15 مشاركات
سعود كتب :Global.asax
فيها عدة احداث حتما ان اطلعت عليها ستعرفها تلقائيا انظر للملف لدي
كود :
<%@ Application Language="VB" %>
<script runat="server">
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs on application startup
Application("activeuser") = 0
End Sub
Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs on application shutdown
End Sub
Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs when an unhandled error occurs
End Sub
Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs when a new session is started
Session("start") = DateTime.Now
Application.Lock()
Application("activeuser") = Convert.ToInt32(Application("activeuser")) + 1
Application.UnLock()
End Sub
Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs when a session ends.
' Note: The Session_End event is raised only when the sessionstate mode
' is set to InProc in the Web.config file. If session mode is set to StateServer
' or SQLServer, the event is not raised.
Application.Lock()
Application("activeuser") = Convert.ToInt32(Application("activeuser")) - 1
Application.UnLock()
End Sub
</script>
وضمن حدث تحميل الصفحة الرئيسية
كود :
If Not IsPostBack Then Dim i As Integer = Convert.ToInt32(Application("activeuser"))
' Response.Write("عدد الزوار الان: " & i.ToString())
' Application("activeuser") += 1
visit.InnerText = "عدد الزوار الان: " & i.ToString
End If
شكرا اخي العزيز سعود .. لكن المشكلة انها تنفذ فقط عند دخول المستخدم و لا يتم تنفيذ اي شيء عند خروجه
اتمنى منك ان تنظر الى المشروع و ان تقوم بالتعديل عليه اذا كنت قد اخطأت بشيء
شكرا مرة اخرى
http://vb4arb.com/vb/uploaded/65_11350468488.rar
الشمس اجمل في بلادي من سواها .. و الظلام
حتى الظلام هناك اجمل فهو يحتضن العـــراق :o
المشاركات : 129
المواضيع 31
الإنتساب : Sep 2012
السمعة :
3
الشكر: 0
تم شكره 15 مرات في 15 مشاركات
شكرا اخي لكن اين اضعها بالضبط ؟
الشمس اجمل في بلادي من سواها .. و الظلام
حتى الظلام هناك اجمل فهو يحتضن العـــراق :o
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
الرقم 10 بالدقائق قللها لترى النتيجة بشكل اسرع