अधिक सटीक पाठ काउंटर

पर मार्च, 2009 ASP में व्यवस्थापक द्वारा पोस्ट किया 4.

यह हमारे पिछले उदाहरण के अलावा एक और अधिक सटीक काउंटर, इस उदाहरण को गिनने में केवल एक बार प्रति सत्र incremented हो जाता है. यह अगर तुम यह है कि बनना चाहते अपनी गिनती अधिक सटीक हो जाएगा मतलब है.

एक txt फ़ाइल और इसे शुरू करने में अपना नंबर डाल बनाएँ. तो फिर नीचे दिये गये कोड स्निपेट की प्रतिलिपि जहाँ आप अपने पृष्ठ पर प्रदर्शित करने के लिए काउंटर चाहिए.

यदि आप कहीं और याद txt फ़ाइल और कोड के Server.MapPath हिस्से को बदल डालने की counter.txt नीचे के उदाहरण में इस पृष्ठ के रूप में एक ही निर्देशिका में रखा है.

आगंतुक संख्या

<%
'एक FileSystemObject बना
सेट objFSO = CreateObject ( "Scripting.FileSystemObject")
'यह हमारे काउंटर फाइल करने के लिए रास्ता है
CounterFile = Server.MapPath ( "counter.txt")
सेट objCount = objFSO.OpenTextFile (CounterFile)
visitorcount = CLng (objCount.ReadLine)
अगर सत्र ( "visitorcount") = "" तो
सत्र ( "visitorcount") = visitorcount
visitorcount = visitorcount + 1
objCount.close
सेट objCount = objFSO.CreateTextFile ( "counter.txt", यह सच है)
objCount.WriteLine () visitorcount
अंत अगर
objCount.Close
'प्रदर्शन गिनती
Response.Write visitorcount
%>