ฉันเพิ่งพบเคาน์เตอร์ เนื่องจากเว็บไซต์มีการเข้าชมน้อยเกินไปจึงเป็นเรื่องโทรมเล็กน้อยที่จะวางเคาน์เตอร์ไว้ที่นั่นดังนั้นฉันจึงสามารถสร้างแบบง่าย ๆ ซึ่งสามารถเข้าถึงและบันทึกได้หนึ่งครั้งเพื่อรองรับหน้าร้าน ฉันเคยมีหนึ่ง แต่ฉันรู้สึกหดหู่ที่ฉันหาไม่เจอ ฉันร้องเพลงออนไลน์และในที่สุดก็ทำเสร็จ รหัสโปรแกรมเฉพาะมีดังนี้
รหัสสำหรับ count.asp คือ:
การคัดลอกรหัสมีดังนี้:
-
ตัวเลือก Explicit
dimfs, ชื่อไฟล์, txt, เนื้อหา, ทั้งหมด, counter_lenth
counter_lenth = 1 'ตั้งค่าความยาวต่ำสุดของข้อมูลที่แสดง หากมีความยาวน้อยกว่าความยาวจริงความยาวที่แท้จริงจะเหนือกว่า
setfs = server.createObject ("scripting.filesystemobject")
filename = server.mappath ("count.txt")
ifnotfs.fileexists (ชื่อไฟล์) จากนั้น
fs.createtextfilefilename, true, true
settxt = fs.opentextfile (ชื่อไฟล์, 2, true)
txt.write0'if ไม่มีไฟล์ที่บันทึกข้อมูลสร้างไฟล์ใหม่และเขียนข้อมูล 0
setfs = ไม่มีอะไร
endif
settxt = fs.opentextfile (ชื่อไฟล์)
iftxt.atendofstreamthen
แอปพลิเคชัน ("ตัวนับ") = 0 'หากไม่มีข้อมูลในไฟล์ค่าของแอปพลิเคชัน ("ตัวนับ") จะเริ่มต้น (สำหรับการยอมรับความผิดพลาด)
อื่น
แอปพลิเคชัน ("ตัวนับ") = txt.readline
endif
application.lock
แอปพลิเคชัน ("เคาน์เตอร์") = แอปพลิเคชัน ("ตัวนับ")+1
application.unlock
ฟังก์ชั่น Count FunctionSave_save
setfs = server.createObject ("scripting.filesystemobject")
filename = server.mappath ("count.txt")
เนื้อหา = แอปพลิเคชัน ("ตัวนับ")
settxt = fs.opentextfile (ชื่อไฟล์, 2, true)
txt.writecontent
setfs = ไม่มีอะไร
endfunction
save_'call ฟังก์ชันการบันทึกเพื่อบันทึกข้อมูล
ฟังก์ชั่น Display FunctionDigital (ตัวนับ) '
DiMi, Mystr, scounter
scounter = cstr (เคาน์เตอร์)
fori = 1tocounter_lenth-len (scounter)
mystr = mystr & "0"
'mystr = mystr & "<imgsrc = เปลี่ยนเป็นไดเรกทอรีสัมพัทธ์ที่คุณเก็บรูปภาพของคุณเอง/0.gif>"' หากมีรูปภาพคุณสามารถเรียกคำสั่งนี้
ต่อไป