Basit Sayaç

Sayaç yapmak için, bir metin dosyasi açacagiz, mevcut sayaç bilgisini okunacak, sayaçdegeri bir arttirilacak, Ayni dosyaya kayit edilecek.

Sayaç degiskeni sayac.txt dosyasinda saklanir.

Ilk kullanimda dosya bos oldugu için herhangi bir deger okunamaz. Hata ile karsilasmamak için dosyanin sonuna gelinip gelinmedigi kontrol edilecek.

Ziyaretçilerin sayaci görmesini istemiyorsaniz response.write n satirini kaldiriniz.

Sayac.asp
<%

Dim myPath, Fconn, file, n

MYPath= server.mappath("sayac.txt")

set Fconn = server.CreateObject("Scripting.FileSystemObject")
set file = Fconn.OpenTextFile(MYPath,1,True)

 ' Dosya yeni açilmis ise herhangi bir deger okunamayacaktir.
bu durunu file.AtEndOfStream ile ile kontrol ediyoruz.

If file.AtEndOfStream Then
 ' dosya sonu ise sayacimiza 0 degeri veriyoruz
n = 0
Else
 ' dosya sonu degil ise readline dosyadan bir satir okuyoruz
n = CLng(file.readline)
End if

 ' Sayacimizi sayiyi bir arttiriyoruz
n = n + 1

 ' Ziyaretçini görmesini istersek ..
response.write n
 ' okuma amaciyla açtigimiz dosyayi kapatiyoruz.
file.close
set file = nothing


Set file = Fconn.CreateTextFile(myPath, True)
 ' dosyaya yaziyoruz.
file.Write(n)


file.Close

set file = nothing
set Fconn = nothing

%>