يقوم ASP بإنشاء رمز إحصائيات الوصول، مثال 1. إنشاء جدول قاعدة البيانات
اسم الجدول موجود على الإنترنت
قم بتعيين الحقول التالية
معرف "session.sessionid" يستخدم لتسجيل كل وصول
الاسم 'إذا كان زائرًا، فسيتم تسجيله كزائر.
عبر الإنترنت "إذا كان زائرًا فهو 0 وإذا كان عضوًا فهو 1."
التاريخ والوقت "أحدث وقت للنشاط."
اسم المستخدم "اسم المستخدم الخاص بتسجيل الدخول، الضيف فارغ."
ip 'سجل عنوان IP لتسجيل الدخول للزيارة
head.asp 'اكتب عدد الأشخاص المتصلين بالإنترنت في جدول قاعدة البيانات. يجب تضمين هذه الصفحة في كل صفحة ASP يتم استخدامها للتصفح.
<%
تعيين rs=Server.CreateObject(ADODB.Recordset)
إذا كانت الجلسة (اسم المستخدم) = ثم تحدد أن المستخدم لم يقوم بتسجيل الدخول
sql=select * من الإنترنت حيث id='&session.sessionid&' 'تحديد ما إذا كان معرف الجلسة هذا موجودًا في جدول قاعدة البيانات أم لا.
rs.Open SQL، كون، 1،3
إذا rs.eof ثم "الزيارة الأولى للزائر".
rs.addnew
rs(id)=session.sessionID
rs(name)=visitor
rs(online)=0 '0 يعني أن المستخدم لم يقوم بتسجيل الدخول وهو زائر.
روبية (التاريخ والوقت) = الآن ()
userip = Request.ServerVariables(HTTP_X_FORWARDED_FOR)
إذا كان userip = إذن
userip= Request.ServerVariables(REMOTE_ADDR)
نهاية إذا
rs(ip)=userip
else 'الزائر لا يتصفح للمرة الأولى
rs(datetime)=now() 'تحديث وقت النشاط
rs.update
rs. Close
نهاية إذا
آخر
sql=select * من الإنترنت حيث id=' & session.sessionID & ' أو admin='&session(username)&' 'تحديد ما إذا كان سجل معرف الجلسة أو اسم المستخدم موجودًا بالفعل في جدول البيانات.
rs.Open SQL، كون، 1،3
إذا rs.eof بعد ذلك
rs.addnew 'يدخل العضو إلى الموقع لأول مرة (يجوز له تسجيل الدخول مباشرة من الصفحة الرئيسية للموقع للدخول إلى المنتدى).
rs(id)=session.sessionID
rs(name)=session(show) 'اكتب لقب المستخدم
rs(username)=session(username) 'اكتب اسم المستخدم لتسجيل الدخول
rs(online)=1 'يشير إلى أن المستخدم قد قام بتسجيل الدخول وأنه عضو
rs(datetime)=now() 'اضبط وقت النظام الحالي على وقت تسجيل دخول المستخدم
userip = Request.ServerVariables(HTTP_X_FORWARDED_FOR)
إذا كان userip = إذن
userip= Request.ServerVariables(REMOTE_ADDR)
نهاية إذا
rs(ip)=userip
else // ليست هذه هي المرة الأولى التي يتصفح فيها العضو الموقع، ويقوم الزائر بتسجيل الدخول إلى الموقع.
rs(name)=session(show) يقوم بتحديث لقب المستخدم
rs(اسم المستخدم)=الجلسة(اسم المستخدم)
rs(online)=1 'يشير إلى أن المستخدم قد قام بتسجيل الدخول وأنه عضو
روبية (التاريخ والوقت) = الآن ()
نهاية إذا
rs.update
rs. Close
نهاية إذا
تعيين RS=لا شيء
%>
conn.execute(delete from online Where datediff('s',datetime,now())>60) 'احذف الزائرين الذين ظلوا غير نشطين لمدة 60 ثانية، ويمكن تعديل الوقت بنفسك.