Çılgın Paylaşım

Türkiye'nin en çılgın paylaşım mekanı
 
AnasayfaRADYOKayıt OlGiriş yap

Paylaş | 
 

 Sitende kim var?

Aşağa gitmek 
YazarMesaj
**$ERK@N**
Admin
Admin
avatar

Erkek
Mesaj Sayısı : 910
Yaş : 27
Nerden : Bursa
Kayıt tarihi : 21/01/08

MesajKonu: Sitende kim var?   Ptsi Ocak 21, 2008 4:23 pm

<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>
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://srknweb.ueuo.com/
 
Sitende kim var?
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Çılgın Paylaşım :: Dersler :: Asp Dersleri-
Buraya geçin: