رمز المثال لـ ASP لإنشاء ملفات السجل
يستخدم هذا المثال لإنشاء ملف سجل باستخدام 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.jzxue.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 = لا شيء
نهاية إذا
%>