www.cakal.net Forumları YabadabaDuuuee

www.cakal.net Forumları YabadabaDuuuee (https://www.cakal.net/index.php)
-   Eskiler (Arşiv) (https://www.cakal.net/forumdisplay.php?f=188)
-   -   [ASP]Sitenizdeki aktif kullanicilar (https://www.cakal.net/showthread.php?t=76715)

jockeя 07-13-2007 06:56 PM

[ASP]Sitenizdeki aktif kullanicilar
 
Aktif kullanicilar - global.asa
--------------------------------------------------
<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>

TiTaN 09-07-2007 01:02 PM

abi bunu bnm siteye yapar msn acayip derecede karışık vb.yeni vbulletin e geçtim!


Forum saati GMT +3 olarak ayarlanmıştır. Şu an saat: 10:01 AM

Yazılım: vBulletin® - Sürüm: 3.8.11   Copyright ©2000 - 2025, vBulletin Solutions, Inc.