Aspde Metin Tabanlı Basit Sayaç Yapalım

Aspye Yeni Başlayanlar İçin Öğretici Olmasını Umarım...
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

%>

kodlar bundan ibaret sitenizde kullanacaksanız bunları sayac.asp adında kaydettikten sonra
<!--#include file="sayac.asp"-->
kodlarını sayfamızda sayacın görünmesini istediğimiz yere yazıyoruz...

cakirr42

[Robot Moderatör]

       
Merhaba ziyaretçi. Öncelikle sitemize hoşgeldiniz. Ben robot moderatör olrak siteden daha fazla yararlanmanız için sitemize üye olmanızı öneririm. iyi eğlenceler.

 
Anahtar Kelimeler: Aspde Metin Tabanlı Basit Sayaç Yapalım oyunları, Aspde Metin Tabanlı Basit Sayaç Yapalım programı, Aspde Metin Tabanlı Basit Sayaç Yapalım oyunu indir, Aspde Metin Tabanlı Basit Sayaç Yapalım program yükle, Aspde Metin Tabanlı Basit Sayaç Yapalım download, Aspde Metin Tabanlı Basit Sayaç Yapalım hikayeleri, Aspde Metin Tabanlı Basit Sayaç Yapalım resimleri, Aspde Metin Tabanlı Basit Sayaç Yapalım haber, Aspde Metin Tabanlı Basit Sayaç Yapalım yükle, Aspde Metin Tabanlı Basit Sayaç Yapalım videosu, Aspde Metin Tabanlı Basit Sayaç Yapalım msn eklentisi, şarkı sözleri

[Etiket:]

Cinai Sebeke Etiketler

Aspde Metin Tabanlı Basit Sayaç Yapalım