رمز الوظيفة لـ asp لقراءة السطر الأخير من الملف هو كما يلي:
الدالة FSOlastline (اسم الملف)
خافت fso،f،temparray،tempcnt
تعيين fso = server.CreateObject(scripting.filesystemobject)
إذا لم يكن fso.fileExists(server.mappath(filename)) ثم اخرج من الوظيفة
تعيين f = fso.opentextfile(server.mappath(filename),1)
إذا لم يكن f.AtEndofStream ثم
tempcnt = f.readall
f. إغلاق
تعيين و = لا شيء
temparray = سبليت (tempcnt، حقوق الإنسان (13) ولجنة حقوق الإنسان (10))
FSOlastline = temparray(ubound(temparray))
نهاية إذا
وظيفة النهاية