عندما لم أتمكن من الوصول إلى الإنترنت في المدرسة ، غيرت برنامج المدونة وأضفت مدونة عبر الإنترنت. قبل ذلك ، قرأت أيضًا العديد من الرموز التي تحسب المستخدمين عبر الإنترنت. شعرت أنهم لم يستوفوا متطلباتي ، لذلك كتبت بنفسي بنفسي مع برنامج المدونة وقمت بتطبيقه على مدونتي.
تم ذكر بعض طرق حساب ASP عدد المستخدمين عبر الإنترنت في مدونة FDREAM. لمزيد من التفاصيل ، يرجى الاطلاع هنا.
من أجل تحقيق التوازن بين الدقة والكفاءة ، استخدمت نهجًا سلبيًا لحساب الأشخاص عبر الإنترنت ، أي تحديث عدد الأشخاص عبر الإنترنت عندما يكون هناك زوار جدد. لا أعرف ما إذا كان أي شخص قد استخدم هذه الطريقة على الإنترنت ، لكنني أستخدمها الآن بالضبط ما أعتقد ^_ ^.
يتم استخدام الجلسة في L-Blog لتحديد ما إذا كان الزائر هو زائر جديد. يبلغ وقت المهلة للجلسة عمومًا 20 دقيقة ، والتي يمكن استخدامها لحساب عدد الأشخاص عبر الإنترنت ، أي الزوار الذين ينشطون في غضون 20 دقيقة يعتقدون أنهم متصلون بالإنترنت.
هناك الرمز التالي في المشتركة لتسجيل سجلات الوصول:
نسخة الكود كما يلي:
'Guest_ip هو IP للضيف
ifSession ("Guestip") <> Guest_ipthen
DimGuest_agent ، Guest_Refer
يجب استخدام سجلات الوصول Guest_Agent و Guest_Refer
Guest_agent = trim (request.servervariables ("http_user_agent")))
Guest_Refer = trim (request.servervariables ("http_referer")))
أضف سجل وصول
conn.execute ("insertIntoToBlog_Counter (coun_ip ، coun_agent ، coun_refer) قيم
("& guest_ip &" "،" "& guest_agent &" "،" "& guest_refer &" '))
"أضف 1 زيارة
conn.execute ("updateblog_infosetblog_visitnums = blog_visitnums1")
sqlquerynums = sqlquerynums2
"احفظ IP الضيف مع الجلسة
جلسة ("Guestip") = Guest_ip
Endif
من أجل تحقيق إحصائيات المستخدم عبر الإنترنت ، قمت بإجراء بعض التغييرات في قاعدة البيانات:
1. تمت إضافة 1 field blog_onlinenums (integer) إلى table blog_info ، لحفظ العدد الحالي للمستخدمين عبر الإنترنت للموقع.
2. الجدول المضافة blog_onine ، ويتم تعيين الحقول على: OL_ID (رقم تلقائي) ، OL_IP (حرف ، 20) ، OL_TIME (التاريخ/الوقت ، القيمة الافتراضية الآن).
رمز إحصائيات الموقع المعدل كما يلي:
نسخة الكود كما يلي:
رمز إحصائيات الموقع
ifSession ("Guestip") <> Guest_ipthen
"عداد الوصول إلى الموقع الأصلي
conn.execute ("insertIntoToBlog_Counter (coun_ip ، coun_agent ، coun_refer)
القيم ('"& guest_ip &"' ، "" & guest_agent & "" ، "& guest_refer &") ")
conn.execute ("updateblog_infosetblog_visitnums = blog_visitnums+1")
sqlquerynums = sqlquerynums+2
جلسة ("Guestip") = Guest_ip
'عدد الأشخاص على الإنترنت من الناس
فقط حدد ما إذا كان الزائر قد توقيت في القائمة عبر الإنترنت