لقد وجدت للتو عداد. نظرًا لأن موقع الويب يحتوي على عدد قليل جدًا من الزيارات ، فمن المتهالك حقًا أن أضع عدادًا هناك ، لذلك لا يمكنني صنع سوى مدة بسيطة ، والتي يمكن الوصول إليها وتسجيلها مرة واحدة لدعم واجهة المتجر. اعتدت أن أحصل على واحدة ، لكنني كنت مكتئبًا لأنني لم أتمكن من العثور عليها. لقد غنيت على الإنترنت وأخيراً أنجزت. رمز البرنامج المحدد كما يلي.
رمز count.asp هو:
نسخة الكود كما يلي:
<٪
OptionExplicit
DIMFs ، اسم الملف ، txt ، المحتوى ، المجموع ، counter_lenth
counter_lenth = 1 'يعين الحد الأدنى لطول البيانات المعروضة. إذا كان أقل من الطول الفعلي ، يجب أن يسود الطول الفعلي.
setfs = server.createObject ("scripting.filesystemObject")
filename = server.mappath ("count.txt")
ifnotfs.filexists (اسم الملف) ثم
fs.createTextFileFilename ، صواب ، صحيح
Settxt = fs.OpentExtFile (اسم الملف ، 2 ، صحيح)
txt.write0'if لا يوجد ملف يحفظ البيانات وإنشاء ملف جديد واكتب البيانات 0
setfs = لا شيء
Endif
Settxt = fs.OpentExtFile (اسم الملف)
iftxt.atendofstreamthen
التطبيق ("العداد") = 0 'إذا لم يكن هناك بيانات في الملف ، يتم تهيئة قيمة التطبيق ("العداد") (لتحمل الأعطال)
آخر
التطبيق ("العداد") = txt.readline
Endif
application.lock
التطبيق ("العداد") = التطبيق ("العداد")+1
application.unlock
وظيفة العد وظيفة
setfs = server.createObject ("scripting.filesystemObject")
filename = server.mappath ("count.txt")
المحتوى = التطبيق ("العداد")
Settxt = fs.OpentExtFile (اسم الملف ، 2 ، صحيح)
txt.writeContent
setfs = لا شيء
الوظيفية
Save_'Call حفظ الوظيفة لحفظ البيانات
وظيفة DisplayDigital (Counter) 'عرض بيانات العرض
ديمي ، Mystr ، Scounter
Scounter = CSTR (عداد)
fori = 1tocounter_lenth-len (Scounter)
mystr = mystr & "0"
"mystr = mystr &" <imgsrc = قم بتغييره إلى الدليل النسبي حيث تقوم بتخزين صورتك الخاصة/0.gif> "إذا كانت هناك صور ، يمكنك الاتصال بهذا البيان
التالي