Ziyaretçilerimizi Sayalim!

Sitemizin ziyaretçilerini saymak için global.asa dosyasini kullanacagiz. Referans olmasi için, global.asa dosyasini sayma uygulamamizi çalistiracak sekilde basitçe yazalim.

Global.asa:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">Sub Application_OnStart        ' Sunucumuz basladiginda ziyaretçi sayimizi sifirliyoruz Application("AktifZiyaretci") = 0End SubSub Session_OnStart        ' Oturum süresini 20 dk. olarak belirliyoruz        Session.Timeout = 20        ' Oturum baslama zamanini belirliyoruz        ' Oturumu baslattigimizdan emin olmak için kullaniyoruz        Session("Start") = Now        ' Aktif ziyaretçi sayisini yeni oturum açildiginda arttiriyoruz        Application.Lock               Application("AktifZiyaretci") = Application("AktifZiyateci") + 1        Application.UnLockEnd SubSub Session_OnEnd        ' Aktif ziyaretçi sayisini oturum kapatildiginda bir azaltiyoruz        Application.Lock               Application("AktifZiyaretci") = Application("AktifZiyateci") - 1        Application.UnLockEnd Sub</SCRIPT>