یک شمارنده ساده یا کونتور با ASP

یک شمارنده ساده یا کونتور با ASP



این برنامه یک مثال خوب از نحوه باز کردن ، خواندن و نوشتن داخل یک فایل است که نیاز به هیچ نوع بانک اطلاعاتی هم ندارد . این فایل را با اسم counter.asp ذخیره کنید و در کنارش یک فایل متنی ساده به کمک NotePad و به نام database.inc ایجاد کنید و در سطر اولش هم عدد صفر یا هر عدد دیگری را که مایلید پیش‌فرض شمارنده شما باشد بنویسید.  فراموش نکنید که سطح دسترسی لازم برای نوشتن را نیز به این فایل بدهید . با کمی ابتکار می توان این شمارنده را به نوع گرافیکی تبدیل کرد. حتی می توانید به تعداد صفحات سایت ، فایل ایجاد کنید تا تعداد مشاهده هر صفحه را به تنهایی ردیابی کنید.
<%
Dim objFSO , objFile
set objFSO = createobject(“scripting.filesystemobject”)
set objFile = objFSO.opentextfile(server.mappath(“database.inc”))
‘get the current count and store in counter
counter = clng(objFile.readline)
‘add one to the current count
counter = counter + 1
‘close file object
objFile.close
‘write a new text object with the same name and new count
Set objFile = objFSO.CreateTextFile(server.mappath(“database.inc”), true)
objFile.writeline(counter)
‘close file object
objFile.close
‘
counter_length = len(counter)
‘loop through the hit count and display the image
for i = 1 to counter_length
%>
<%= mid(counter,i,1) %>
<%
next
%>