لنقم أولاً بإنشاء قاعدة بيانات ACCESS جديدة
المحتوى هو
اسم الجدول: زاي
الحقول هي
1.ip
2. الوقت
إنشاء ملف باسم Index.asp
ثم اتبع الإجراء أدناه!
<%
'======================================================================== ================================================================================================= =
'
'************************ برنامج Bingling Online لإحصاء الأشخاص V2.0 ***************** *** **********
'
'تم إنتاج برنامج هذا الموقع بشكل مستقل بواسطة "Bingling Studio" - مبارز الآيس كريم! يرجى احترام ثمار عملك
'
""Bingling Studio" ─━╃→اصنع شخصية قوية
'
'* المؤلف: مبارز الآيس كريم
'* الموقع الإلكتروني: http://www.blbcn.com
'* البريد الإلكتروني: [email protected]
'* س:68156987
'* العنوان: وشى، جيانغسو
'********************************************************************************************************************************************************************************* * ******************************
'
'حقوق الطبع والنشر · سيتم التحقيق في الانتحال والاختلاس
'
'======================================================================== ================================================================================================= =
'---------تعريف المتغيرات
باهتة
خافت
مهلة خافتة
خافت ×
كون خافت
com.dimdbpath
'---------نهاية تعريف المتغيرات
'---------رابط قاعدة البيانات المقترح
تعيين conn=server.createobject(adodb.connection)
DBPath = Server.MapPath(zai.mdb)
conn.Open driver={Microsoft Access Driver (*.mdb)};dbq= & DBPath
'---------اكتمل إنشاء رابط قاعدة البيانات
'---------إنشاء كائن RS لقاعدة البيانات الجديدة
مجموعة rs = server.createobject(adodb.recordset)
'---------اكتمل إنشاء كائن RS لقاعدة البيانات
'---------اقرأ عنوان IP للعميل
ip = Request.ServerVariables(HTTP_X_FORWARDED_FOR) 'إذا كان الطرف الآخر يستخدم خادمًا وكيلاً للوصول إلى الإنترنت، فاستخدم Request.ServerVariables(HTTP_X_FORWARDED_FOR) للحصول على عنوان IP الحقيقي للطرف الآخر إذا لم يصل الطرف الآخر إلى الإنترنت من خلال خادم وكيل ، قيمة IP فارغة.
إذا كان ip = إذن ip = Request.ServerVariables(REMOTE_ADDR) 'إذا كانت قيمة IP فارغة، فاحصل على عنوان العميل المحلي الخاص به
'---------اكتملت قراءة IP
'---------اقرأ عدد المحتوى الجديد الذي تمت إضافته في قاعدة البيانات خلال العشرين دقيقة الماضية، وقيم المجموعة حسب IP-table IP هي نفسها 1
sql=select ip from zai حيث الوقت >= dateadd('n',-20,now()) group by ip
rs.Open SQL، كون، 1،1
zai=rs.RecordCount
إغلاق
'---------احصل على عدد الأشخاص المتصلين بالإنترنت
'---------تحقق مما إذا كانت هناك بالفعل نفس القيمة في قاعدة البيانات، إذا لم يكن الأمر كذلك، x=نعم، إذا لم يكن الأمر كذلك، x=no
sql=اختر ip من zai حيث ip=' & ip & '
rs.Open SQL، كون، 1،1
إذا rs.eof وrs.bof ذلك الحين
س = نعم
آخر
س=لا
نهاية إذا
rs. Close
«--------انتهى الحكم
'--------إذا لم تكن هناك نفس القيمة في قاعدة البيانات، أضف قيمة جديدة
إذا x=yes، إذا لم يكن هناك عنوان IP مماثل، فأضف سجلاً
sql=اختر أعلى 1 * من zai
rs.Open SQL، كون، 1،3
rs.AddNew
rs(ip)=ip
روبية (الوقت) = الآن ()
rs.update
rs. Close
آخر 'إذا كان هناك عنوان IP هذا، قم بتغيير الوقت إلى الوقت الحالي
sql=select * من zai حيث ip=' & ip & '
rs.Open SQL، كون، 1،3
روبية (الوقت) = الآن ()
rs.update
rs. Close
نهاية إذا
'--------الحكم على أن الانضمام كامل
'--------حذف القيمة المضافة منذ 20 دقيقة
المهلة = dateadd(n, -20, now())
sql=delete * من zai حيث الوقت < # & timeout & #
كون.تنفيذ SQL
'--------اكتمل الحذف
'--------أغلق كائن البيانات
تعيين RS=لا شيء
conn.Close
تعيين كون = لا شيء
%>
document.write(إجمالي <%=zai%> من الأشخاص المتصلين بالإنترنت)
نعم!
منتهي!