على الإنترنت، توجد العدادات المكتوبة بلغة ASP في كل مكان، وأشعر أنه لا معنى للحديث عن العدادات المكتوبة بلغة ASP هنا. لاحقًا، اعتقدت أنه من الضروري التحدث عن ذلك، لأن الأمر لا يتعلق فقط بكتابة العدادات، ولكن أيضًا بتقديم المعرفة ومهارات التطبيق الخاصة بـ ASP للجميع.
الكود الأصلي للبرنامج هو كما يلي:
$#@60 ;%countlong=8
'countlong يحدد عدد أرقام عرض العداد عند خطأ استئناف التالي
′ تجاهل كافة الأخطاء count=server.mappath(″count.txt″)
تعيين cou = server.createobject(″scripting.filesystemobject″)
setout=cou.opentextfile(count,1,false,false)
counter=out.readline
خارج. إغلاق
`الكود أعلاه هو فتح الملف count.txt وقراءة سطر لقراءة قيمة العداد الحالية إذا كانت الجلسة(″in″)$#@60;$#@62;″in″ ثم
'تحديد ما إذا كان المستخدم قد دخل إلى الصفحة الرئيسية للتأكد من أن العداد لن يزيد بمقدار 1 عندما يضغط على تحديث أو يأتي إلى هذه الصفحة مرة أخرى.
الجلسة("في")="في"
المبينة = cou.createtextfile(count,true,false)
application.lock
عداد=عداد+1
""عداد زائد 1""
خارج.كتابة (العداد)
application.unlock
خارج. إغلاق
'الرمز أعلاه هو إنشاء ملف count.txt جديد وكتابة سطر، وكتابة قيمة العداد بعد إضافة نهاية واحدة إذا
المشارك=cstr(عداد)
يتم استخدام الدالة 'cstr لتحويل المتغيرات الرقمية إلى أنواع أحرف من i = 1 إلى countlong-len(co)
الرد.اكتب ″″
التالي
'بيان الحلقة أعلاه هو إكمال إضافة الصور 0 أمام العداد'وظيفة len(co) هي الحصول على طول المتغير co، سيحصل countlong-len(co) على رقم 0 السابق صور لـ i=1 إلى len(co)
الرد.اكتب ″″
التالي
تُستخدم الدالة ′mid(co,i,1) لقراءة الحرف % بدءًا من الموضع i للمتغير co $#@62 ؛
الجزء الأكثر نجاحًا في هذا العداد هو استخدام الجلسة لمنع المستخدمين من تحديث العداد عدة مرات، ويتم استخدام ملف نصي لتسجيل قيمة العداد، على الرغم من أن الكود أطول في الكتابة، إلا أنه أفضل بكثير من استخدام التطبيق كائن، لأنه عند إعادة تشغيل الخادم أو عند تغيير global.asa، سيتم مسح قيمة كائن التطبيق واستخدام الصور بدلاً من الأحرف، مما يبدو أكثر جمالاً!
يمكنك تصميم صورة العداد بنفسك، استخدم اسم الملف 0.gif لـ 0، و1.gif لـ 1، وهكذا.