Üye Kayıt Üye Giriş

Sayaç Örneği *.txt ile çalışmaktadır


 Sayaç Örneği *.txt ile çalışmaktadır


<%
'Öncelikle Notepad den counter.txt adında bir boş dosya
oluşturalım ve vermiş oldugum kodlarıda bir sayac.asp dosyasına kayıt edelim. ve sayac.asp ile counter.txt nin aynı klasorde çalıştırmaya özen gosterelim.

MyFile = Server.MapPath( "counter.txt" ) 'dosya yolu sbt kalsın!
Set FileObject = CreateObject("Scripting.FileSystemObject")

'Gelen ziyaretcileri say
Set InStream = FileObject.OpenTextFile(MyFile , 1, true)

If not InStream.atEndOfStream Then
'If file exists
total = CInt(Instream.ReadLine) + 1
else
total = 1
end if

Instream.Close
set instream = Nothing

'Ziyaretci sayıları counter.txt ye aktarıldı

'Update number of hits
Set OutStream = FileObject.OpenTextFile(MyFile , 2, true)
Outstream.WriteLine total
Outstream.Close

set OutStream= Nothing
set FileObject = Nothing

Response.Write("Bu Sayfa " & total & " kez ziyaret edilmiştir. <br>")
 

Bilgisayar Dershanesi Ders Sahibi;
Bilgisayar Dershanesi

Yorumlar

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

ETİKETLER