كيفية جعل "زائري الإنترنت"

====== مبدأ الإنتاج======

تتمثل الطريقة في إضافة معلومات المستخدم إلى قاعدة البيانات عندما يصل المستخدم إلى صفحة الويب، أثناء الإضافة، تحقق مما إذا كان هناك سجل عبر الإنترنت للمستخدم في قاعدة البيانات لذلك، قم بتحديثه إذا كان السجل غير موجود، قم بإضافته إلى قاعدة البيانات.
واحذف السجلات عبر الإنترنت التي ليس لها أي نشاط خلال الوقت المحدد (ربما يكون هذا هو الحال!)

====== تصميم جدول البيانات ========

قم بإنشاء جدول بيانات جديد يسمى "متصل".
احذف حقل الرقم التلقائي وأنشئ الحقول التالية اسم الحقل: المعرف النوع: الرقم اسم الحقل: GUESTNAME النوع: اسم حقل النص: STATS النوع: اسم حقل النص: VISITIME النوع: التاريخ/الوقت اسم الحقل: OUTIME النوع: التاريخ/الوقت.

======================================================================================================== ====== =======

<%
sub activeonline()

dim ip

'//// احذف السجلات عبر الإنترنت غير النشطة خلال 180 ثانية.
sql="الحذف من الإنترنت حيث DATEDIFF('s',outtime,now())>180"
Conn.Execute sql

if stats = "" ثم"// إذا كانت قيمة الإحصائيات فارغة، فسيتم عرضها كـ
احصائيات = "لا أعرف ماذا تفعل؟"
آخر
stats=stats
end if

IP=replace(Request.ServerVariables("REMOTE_HOST"),"."،")'////احصل على عنوان IP وقم بإزالة "." في

IP '////تحقق مما إذا كان هذا موجودًا بالفعل سجل IP للجدول عبر الإنترنت

sql="select id from online Where id='"&ip&"'"
اضبط rs=conn.execute(sql)

إذا كان rs.eof أو rs.bof ثم'//// إذا لم يكن هناك سجل IP، أضف سجلاً عبر الإنترنت

sql = "insert into online(id,guestname,stats,visitime,outtime) ) القيم ("&ip&"،'ضيف'،'"&stats&"'،Now(),Now())"

else'////إذا كان سجل IP موجودًا بالفعل في الجدول عبر الإنترنت، فقم بتحديث السجل

sql="update مجموعة outtime عبر الإنترنت =Now(),stats='"&stats&"',guestname='guest' حيث ينتهي المعرف='"&ip&"'"

إذا
conn.execute(sql)

النهاية الفرعية
%>
=============================================================================================================================================================================================: ====
قم بتعديل الكود أعلاه وحفظه باسم "Online.asp" وقم بتضمينه في نهاية كل صفحة ويب

<%

dim conn
خافت كونستر
على خطأ استئناف المقبل
connstr="DBQ="+server.mappath("database name.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
تعيين conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
'حفظ كملف conn.asp
%>

<!--#INCLUDE FILE="conn.asp" -->
<%

dim stats

stats="عرض عبر الإنترنت"

اتصل بـ activeonline()

تعيين rs = Server.CreateObject("ADODB.Recordset")
sql="حدد المعرف، اسم الضيف، الإحصائيات، وقت الزيارة، وقت الخروج من الطلب عبر الإنترنت حسب وصف وقت الزيارة"
rs.open sql,conn,1,3

المجموع=rs.RecordCount

%>
<حدود الجدول = "1" خلية الحشو = "2" تباعد الخلايا = "0" نمط = "انهيار الحدود: طي" Bordercolor = "#111111" العرض = "100٪" الارتفاع = "53">
<تر>
<td width="20%" height="16" align="center">اللقب</td>
<td width="20%" height="16" align="center">الإجراء</td>
<td width="20%" height="16" align="center">زيارة</td>
<td width="20%" height="16" align="center">الحدث الأخير</td>
</tr>
<%افعل بينما لا rs.eof%>
<تر>
<td width="20%" height="28" align="center"><%=rs(1)%></td>
<td width="20%" height="28" align="center"><%=rs(2)%></td>
<td width="20%" height="28" align="center"><%=rs(3)%></td>
<td width="20%" height="28" align="center"><%=rs(4)%></td>
</tr>
<%
rs.movenext
حلقة
%>
</الجدول>
عدد الأشخاص المتصلين:<%=total%>
<%
rs. Close
set rs=nothing

%><!--#INCLUDE FILE="Online.asp" -->

إنها ليست مكتوبة بشكل جيد، إنها سخيفة. إذا كان لديك طريقة أفضل، يرجى إرسالها إلينا.