Sitende kim var?

Sitemde kim var? diye merak etmeyin sadece kodu ekleyin!


Hepsini Seç



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

emeqe sayqı !