User Tag List

Yeni Konu Aç Cevap Yaz
9.03.2008, 00:18 1 (permalink)
SametE
SametE Üye
  • Üyelik Tarihi7.03.2008
  • Ticaret Sayısı0
  • Mesajlar154
Sitende kim var? #permalink (permalink)
Sitemde kim var? diye merak etmeyin sadece kodu ekleyin!

Kod:
<Object Runat="Server" Scope="application" ID="dOnlineUsers" ProgID="Scripting.Dictionary"></Object>

<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>
Hızlı PM Gönder
Gönder
Alıntı ile Cevapla
Yeni Konu Aç Cevap Yaz
Şu an bu konuyu okuyan kişi sayısı: 1 (0 üye ve 1 misafir)
 
Seçenekler
Yetkileriniz
Konu Acma Yetkiniz Yok Cevap Yazma Yetkiniz Yok Eklenti Yükleme Yetkiniz Yok Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık Smileler Açık [IMG] Kodları Açık HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık
Forum Kuralları
Benzer Konular
Konu Konuyu Başlatan Forum Cevap Son Mesaj
Afyondan Kim Var? MerdK Nereden 5 1.11.2011 23:20
Yurtdışı Avusturyadan kim var? sivrisinek Nereden 16 30.03.2011 17:44
Ehliyet sınavına giren kim var? Raqe Geyikhane 6 25.10.2010 10:35
paypal bozucak kim var voda Paypal, Webmoney, Ukash ve internet bankacılığı işlemleri 4 5.05.2007 17:29
Deniz Feneri Derneğinde çalışan kim var TRinsanRehberi Webmaster Genel Konular 3 26.04.2007 11:31

Forum Saati: 11:31. Zaman dilimi GMT +3 olarak ayarlanmıştır.
Powered by vBulletin™ Version 3.8.7
Copyright © 2018 vBulletin Solutions, Inc. All rights reserved.
Kilo Nasıl Verilir btcfrm sihirlibardaklar.com instagram takipçi satın al