![]() |
[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> |
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.