ASP İLE ONLINE ZIYARETÇİLER

byburcuva · Yeni Üye Kayıt: 24 Ekm 2008 Mesajlar: 21

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application("Aktif") = 0
End Sub

Sub Session_OnStart
Application.Lock
Application("Aktif") = Application("Aktif") + 1
Application.Unlock
End Sub

Sub Session_OnEnd
Application.Lock
Application("Aktif") = Application("Aktif") - 1
Application.Unlock
End Sub
</SCRIPT>


Yukaridaki kodları global.asa uzantisina çevirip ftp de ana dizine atıyoruz ve daha sonra

<%= Application("Aktif") %> bu şekilde online ziyaretçileri ekrana yazdırıyoruz..