Samanalevi Netkafe Anasayfa

Sitenizdeki Aktif Ziyaretçiler

Sosyal Ağ Paylaşımı :                                

	Ekleyen : admin Zaman : 19 Haziran 2005 Okunma : 1020 Yorumlar : 0 - Yorumları Oku - Yorum Yaz

Global asa dosyasına şu kodları yazın...

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
sub Application_OnStart
application("ServerStart") = now
end sub
function Decrypt(sText)
Decrypt = sText
end function

function adZero(sText)
if isNull(sText) then exit function
adZero = string(5 - len(sText), "0") & sText
end function

Sub Session_OnStart


Session.TimeOut = 5
sAktifUsrList = application("AktifUsrList")

sNewUserName = Decrypt(request.cookies("isim")+ request.cookies("soyisim"))

if sNewUserName = "" then sNewUserName = "Ziyaretci-" & AdZero(CInt(application("Ziyaretci")))

sLastActionTime = Time

sUserInfo = sNewUserName & "<|>" & sLastActionTime & "<|>" & sLastPageViewed


dOnlineUsers.Add Session.SessionID, sUserInfo

application.lock
application("AktifUsr") = application("AktifUsr") + 1
application("Ziyaretci") = application("Ziyaretci") + 1

if application("TodaysDate") <> Date() then
application("PageViewsToday") = 0
application("ZiyaretciToday") = 0
end if
application("ZiyaretciToday") = application("ZiyaretciToday") + 1
application("TodaysDate") = Date()
application.unlock

End Sub

Sub Session_OnEnd

on error resume next
dOnlineUsers.Remove Session.SessionID

application.lock
application("AktifUsr") = application("AktifUsr") - 1
application.unlock

End Sub
</SCRIPT>

Konuya Ait Yorumlar

Şu an yorum yazılmamış!..

İlginizi Çekebilecek Konular
Başlık	Ekleyen
Windows Icon Ve Bitmaplarını Programdan Almak	seasparrow
Mp3 Player Kaynak Kodları	seasparrow
Exe Yada Dll'deki İconların Alınması	seasparrow
Dizi Değişken Fonksiyonu	seasparrow
Modemle Telefon No Çevirme	Ayhans
Tüm Yazılar Küçük Harfle Nasıl Yazılır.	beykozlu
Bilgisayar Adının Alınması	seasparrow
Eliptik Form Oluşturmak	seasparrow
Windows Lisans Bilgilerinin (isim Ve Şirket) Bulunması	seasparrow
>birden Fazla Alanda Arama Yapmak	seasparrow
Sitede Hava Durumu	admin
Ip Adreslemeye Bakış	seasparrow
Dikine Uzanan Label Nasıl Yazılır	beykozlu
Scanf İşlevi	seasparrow
Vb Temel Kavramlar	seasparrow
Tl, Kuruş Şeklindeki Sayıyı Yazıya Çevirme (vb.net)	beykozlu
Karakter Düzenleme	seasparrow
Bir Klasörün Toplam Boyutu	seasparrow
Denetim Masası Uygulamasını Çalıştırmak	seasparrow
Sitenizdeki Aktif Ziyaretçiler	admin