مرجع دانلود اسکریپت

وان اسکریپت | اولین مرجع دانلود رایگان اسکریپت در ایران

خرید هاست
تبلیغات
تبلیغات

درخواست شما

اگـر به دنبال قالب و اسکریپت یا هر مطلب دیگری هستید و آن را پیدا نکرده اید ، می توانید درخواست خود را به تیم وان اسـکریپت ارسال کنید تا در کوتاه ترین زمان مطلب مورد نظر شما در سایت قـرار گیرد ! وان اسـکریپت همچنان به دنبال ارائه خدمــاتی با کیفیت بالا به کاربران خود می باشد.

آموزش 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
%>

دیدگاه خود را به اشتراک بگذارید

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

71 + = 74