SaNcArHaN PvP Server Admin
Kayıt tarihi : 12/11/09 Mesaj Sayısı : 4125 Teşekkür : 290 Yaş : 29 Nerden : AnKaRa
| Konu: Sitenizdeki aktif kullanicilar -HtmL Kodu Çarş. Eyl. 29, 2010 4:19 pm | |
| Sitenizdeki aktif kullanicilar - Kod:
-
<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>
| |
|
SaNcArHaN PvP Server Admin
Kayıt tarihi : 12/11/09 Mesaj Sayısı : 4125 Teşekkür : 290 Yaş : 29 Nerden : AnKaRa
| Konu: Geri: Sitenizdeki aktif kullanicilar -HtmL Kodu Çarş. Eyl. 29, 2010 4:20 pm | |
| | |
|
crazy_skull PvP Server Moderatör
Kayıt tarihi : 21/03/10 Mesaj Sayısı : 212 Teşekkür : 17 Yaş : 30 Nerden : Ankara
| Konu: Geri: Sitenizdeki aktif kullanicilar -HtmL Kodu C.tesi Ekim 02, 2010 12:17 pm | |
| | |
|