استخدم Asp لإنشاء ملف سجل يستخدم هذا المثال ملفًا نصيًا لكتابة معلومات المستخدم. قم بإنشاء ملف 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://jzxue.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 = لا شيء
نهاية إذا
%>