SiTedeKi AlTiF Kullanucular ( asP )

<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