การเขียนตัวนับรูปภาพโดยใช้ ASP

บนอินเทอร์เน็ต ตัวนับที่เขียนด้วย ASP มีอยู่ทั่วไป ฉันรู้สึกว่ามันไม่มีความหมายที่จะพูดถึงตัวนับที่เขียนด้วย ASP ที่นี่ ต่อมาฉันคิดว่าจำเป็นต้องพูดถึงเรื่องนี้ เพราะนี่ไม่ใช่แค่การเขียนตัวนับ แต่ยังแนะนำความรู้และทักษะการประยุกต์ใช้ ASP ให้กับทุกคนด้วย

รหัสดั้งเดิมของโปรแกรมมีดังนี้:
$#@60 ;%countlong=8
'countlong กำหนดจำนวนหลักที่แสดงของตัวนับเมื่อเกิดข้อผิดพลาดต่อดำเนินการต่อถัดไป
′ ละเว้นข้อผิดพลาดทั้งหมด count=server.mappath(″count.txt″)
ชุด cou = server.createobject (″scripting.filesystemobject″)
set out=cou.opentextfile(นับ,1,เท็จ,เท็จ)
counter=out.readline
ออก ปิด
′โค้ดด้านบนคือการเปิดไฟล์ count.txt และอ่านบรรทัดเพื่ออ่านค่าตัวนับปัจจุบัน ถ้า session(″in″)$#@60;$#@62;″in″ แล้ว
'ตรวจสอบว่าผู้ใช้เข้าสู่หน้าแรกเพื่อให้แน่ใจว่าตัวนับจะไม่เพิ่มขึ้น 1 เมื่อเขากดรีเฟรชหรือกลับมาที่หน้านี้อีกครั้ง
เซสชั่น(″ใน″)=″ใน″
set out = cou.createtextfile (นับ, จริง, เท็จ)
แอปพลิเคชันล็อค
เคาน์เตอร์=เคาน์เตอร์＋1
'เคาน์เตอร์บวก 1'
out.writeline (ตัวนับ)
แอปพลิเคชันปลดล็อค
ออก ปิด
'โค้ดข้างต้นคือการสร้างไฟล์ใหม่ count.txt แล้วเขียนบรรทัด เขียนค่าของตัวนับหลังจากเพิ่ม 1 ปลายถ้า
co=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 และอื่นๆ