هل تريد أحيانًا معرفة من يزور موقعك ومتى وعنوان IP وما إلى ذلك؟ اسمحوا لي أن أشرح لك هذه المشكلة أدناه. يستخدم هذا المثال ملفًا نصيًا لكتابة معلومات المستخدم لإنشاء ملف logfile.asp ووضعه في أعلى كل صفحة asp <!--#Include File=LogFile.asp-->عندما يقوم شخص ما بزيارة موقعك logfile.asp يكتب تلقائيًا معلوماته إلى LogFile.txt إذا كانت عناوين URL ذات الصلة هي نفسها، فلن تتم كتابة الملف.
الملف: LogFile.asp
انسخ رمز الكود كما يلي:
<%
متغير سجل Dim ValidEntry
' قم أولاً بتعيين أن هذا السجل صالح
فاليدينتري = صحيح
'إذا لم يكن تسجيل الدخول لمتغير الجلسة فارغًا
"وهذا يعني أن هذا الشخص قد تم تسجيل دخوله بالفعل
" ثم قم بتعيين ValidLog على False
إذا لم يكن IsEmpty(Session(LogIn)) ثم ValidEntry = False
'هنا يمكنك إضافة قيود مختلفة
'إذا كان عنوان URL المرجعي من نفس الموقع
لا تكتب في ملف السجل
إذا كان اليسار (Request.ServerVariables (HTTP_REFERER)، 17)
=http://vevb.com ثم
ValidEntry = خطأ
انتهي إذا
إذا كان اليسار (Request.ServerVariables (HTTP_REFERER)، 21)
=http://www.vevb.com ثم
ValidEntry = خطأ
نهاية إذا
'الآن إذا كان ValidEntry صحيحًا، فادخل إلى ملف السجل
إذا كان ValidEntry ثم
كونستفورأبندينغ = 8
إنشاء ثابت = صحيح
خافت FSO
خافت TS
DIM MyFileName
سجل خافت
MyFileName = Server.MapPath(MyLogFile.txt)
تعيين FSO = Server.CreateObject(Scripting.FileSystemObject)
تعيين TS = FSO.OpenTextFile(MyFileName، ForAppending، إنشاء)
' قم بتخزين جميع القيم المطلوبة في strLog
strLog = <br><P><B> & now & </B>
strLog = strLog & Request.ServerVariables(REMOTE_ADDR) &
strLog = strLog & Request.ServerVariables(HTTP_REFERER) &
strLog = strLog & Request.ServerVariables(HTTP_USER_AGENT) & <BR>
'اكتب المعلومات الحالية إلى ملف نصي للسجل.
TS.اكتب strLog
TS. خط الكتابة
' قم بإنشاء جلسة متغيرة للتحقق في المرة القادمة من وجود ValidEntry
الجلسة (تسجيل الدخول) = نعم
تعيين TS = لا شيء
تعيين FSO = لا شيء
نهاية إذا
%>