Sitenizdeki aktif kullanicilar ( AsP)

tarafından **Admin** Cuma Nis. 02, 2010 12:01 am

Admin: Admin; Mesaj Sayısı : 260
Kayıt tarihi : 22/03/10

Post n°1

Sitenizdeki aktif kullanicilar ( AsP)

tarafından Admin Cuma Nis. 02, 2010 12:01 am

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>

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

Ptsi	Salı	Çarş.	Perş.	Cuma	C.tesi	Paz
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30

Faruki | İhvan | Forum

Giriş yap

En son konular

ONLİNE ZİYARETCİ

Arama

Tarıyıcı

Tarıyıcı

Abdullah Faruki (ks)

Farukinet

Anket

REHBER

KASET TANITIMI

Nisan 2024

Anahtar-kelime

Sitenizdeki aktif kullanicilar ( AsP)

Sitenizdeki aktif kullanicilar ( AsP)

Arama

Sonuç : Mesajlar Konular
çıkıntı araştırma