Sitenizdeki aktif kullanicilar

burak özkan

<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("Ziyar etci")))

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>

Bilal AKMAR

dikkatli konuş RoN@LdO

coolefes

o ne bicim nick ve niye msn bölümüne yazdın!

mehmet5128

beyler dikkattlii konuşalım