Yığın halinde tek başlarına çalışabilen asp uygulamarımızı birbirleriyle ilişkilendirmek Application nesnesi ile mümkündür. Application nesnesi aynen session nesnesi gibi calışmaktadır. Tek farkı Application nesnesi global bir nesnedir. Bütün kullanıcılar aynı Application nesnesini kullanabilirler. Application Nesnesi global düzeyde olduğu için her zaman global.asa dosyası altında tutulur. Şimdi örnek kodumuzu inceliyelim:

Burada gösterilen kod günümüzde asp çatısı altında bulunan hemen hemen her sitede kullanılmaktadır. Sitemizde şuanda kaç kişi var?

Global.asa Dosyasının görünümü:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart

Eğer aktif bir application yoksa bu demektir ki application nesnesi ilk defa başlıyor. Buna bağlı olarak aktif kullanıcı sayımızı sıfırlıyoruz.

Application("AktifKullanici") = 0
end Sub
Sub session_OnStart

Her yeni kullanıcı için açılan session nesnesine tekil dosyalardan olduğu gibi buradanda değer verebiliriz.
session.Timeout = 20

Kullanıcının session nesnesinin değer dışı kalma süresi

session("baslangic") = Now

Örnek olarak her kullanıcının session nesnesinde baslangıç değişkenine zamanı değer olarak yazdırıyoruz.

Application.Lock
Application.Lock application nesnesini kitler. Bu işlemi yapmamızın sebebi ise application nesnesine değer atarken başka bir kullanıcının application nesnesini değiştirmemesini sağlamak.

Application("AktifKullanici") = Application("AktifKullanici ") + 1
Application.UnLock

ve tekrar UnLock ile application nesnemizi serbest birakiyoruz.

end Sub
Sub session_Onend
Application.Lock

Kullanıcının session I bittiği takdirde application nesnesini kitliyoruz ve yeni değerimizi veriyoruz.

Application("AktifKullanici") = Application("AktifKullanici") - 1>
Application.UnLock
end Sub
</SCRIPT>

Peki bunu sayfada nasıl göstereceğiz? Bunuda aynen session nesnesini kullandığımız gibi kullanıyoruz.

Örnek:
<%=Application("AktifKullanici")%> kişi şu anda sayfamızda.

İsteklerinizi Bizlere Aktarmak İçin İletişim Formunu Doldurunuz