Ziyaretçi kayitlari

Sitemize gelen ziyaretçilerin IP numarasi, gönderen, browser hakkinda bilgi, ziyaret tarihi ve saati bilgileri toplanacak, bir dosyaya virgülle ayrilmis olarak kayit edilecek.
Ziyaretçi ve ziyaret hakkina bilgi toplamak için sunucu çevre degiskenlerinden(environment variable) faydalanacgiz.
Request nesnesinin ServerVariables kolleksiyonunu kullanarak sunucu çevre degiskenlerine ulasabiliriz.


Ziyaretçi sayfaya nereden gönderilmis

HTTP_REFERER adli sunucu çevre degiskeni (environment variable) sayfaya gönderen url'yi verir.

gonderen = Request.ServerVariables("HTTP_REFERER")


Ziyaretçinin IP numarasi

Sitenizi ziyaret eden ziyaretçinin IP numarasini bilmek için REMOTE_HOST adli sunucu çevre degiskeninden faydalanacagiz.



ip = Request.ServerVariables("REMOTE_HOST")


Ziyaretçinin kullandigi browser

HTTP_USER_AGENT adli sunucu çevre degiskeni ziyaretçinin kullandigi browser adini verir.



browser = Request.ServerVariables("HTTP_USER_AGENT")


Gün ve Saat

VBscript time fonksyionu saati date fonksiyonu tarihi verir.
Dosyaya bir seferde yazmak için bilgileri tek degiskende topluyoruz.
Kolay okunmasi veya baska programlar tarafinda kolyaca çözümlenebilmesi için araya virgül ile ayiriyoruz.

kayit = ip & "," & browser & "," & referrer & "," & date & "," & time

..Ve dosyaya yaziyoruz

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

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

file.writeline(kayit)

file.close
set file = nothing
set Fconn = nothing