Basit bir ASP Sayac çalışması
_ Zorunluluklar
__ASP kodu çalıştırabilen bir sunucu
__Birinci satırında bir sayı olan "istatistik.txt" dosyası
____________KOD______________
Set dosya_n=Server.CreateObject("Scripting.FileSystemObject")
Set dosya=dosya_n.OpenTextFile(Server.MapPath("istatistik.txt"),1)
kalan=dosya.ReadLine
dosya.Close
kalan = kalan + 1
Response.Write(kalan)
Set dosya=dosya_n.OpenTextFile(Server.MapPath("istatistik.txt"),2)
dosya.WriteLine(kalan)
dosya.Close
Set dosya=Nothing
Set dosya_n=Nothing
kisi tarafından ziyaret edilmiştir.
________KOD SONU _____________
Not: Blog kod olarak gördüğünden ASP tag başlama - bitişleri kaldırılmıştır. Başına ve sonuna tag koymayı unutma
Merhaba,
ReplyDeleteEpey araştırmış bir türlü istediğimiz gibi bulamamıştık.
Verdiğiniz kod çok işimize yaradı.
Çok teşekkürler.
Selamlar,
Beyza Ersoy
kardes selam ip kontrolü olan bi örn war mı bu konuda bu sadece sayıyo :S
ReplyDeletemail: s_t_comandos@hot.com
23 Temmuz 2008 tarihinden itibaren
ReplyDeleteScript Başlangıç tagı
SessionIdSi = Session("SessionIdSi")
'Response.Write( " -----(" & SessionIdSi & " -- " & Session.SessionID & " )------ " )
If SessionIdSi <> Session.SessionID Then
Session("SessionIdSi") = Session.SessionID
Set dosya_n=Server.CreateObject("Scripting.FileSystemObject")
Set dosya=dosya_n.OpenTextFile(Server.MapPath("ziyaretci.txt"),1)
kalan=dosya.ReadLine
dosya.Close
kalan = kalan + 1
Session("SayacMusiri") = kalan
Set dosya=dosya_n.OpenTextFile(Server.MapPath("ziyaretci.txt"),2)
dosya.WriteLine(kalan)
dosya.Close
Set dosya=Nothing
Set dosya_n=Nothing
End If
Response.Write(Session("SayacMusiri"))
Script Bitiş tagı
kişi ziyaret etmiştir.