- 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>
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
Perş. Mart 28, 2013 11:45 pm tarafından layezu
» Bayrak Resimleri
Cuma Nis. 02, 2010 2:23 am tarafından Admin
» Arkadaş Resimleri = 2...
Cuma Nis. 02, 2010 2:10 am tarafından Admin
» Arkadaş Resimleri =1.....
Cuma Nis. 02, 2010 2:07 am tarafından Admin
» Msn Nick Oluşturma Modül Kodu
Cuma Nis. 02, 2010 2:04 am tarafından Admin
» Türkçe Mp3 Player Kodu
Cuma Nis. 02, 2010 2:01 am tarafından Admin
» Giriş Ekle Giriş 1 Kodu
Cuma Nis. 02, 2010 1:59 am tarafından Admin
» Belgesel Videoları Kodu
Cuma Nis. 02, 2010 1:56 am tarafından Admin
» FlasH OyuNLar EkLe
Cuma Nis. 02, 2010 1:52 am tarafından Admin
» Flash Sattler
Cuma Nis. 02, 2010 1:46 am tarafından Admin
» Sitene Peygamberler TArihi Ekle
Cuma Nis. 02, 2010 1:28 am tarafından Admin
» sitene dini sorularla cevaplar ekle
Cuma Nis. 02, 2010 1:24 am tarafından Admin
» sitene duyuru panosu ekle html kod
Cuma Nis. 02, 2010 1:19 am tarafından Admin
» sağ üst köşe reklam alanı kodu
Cuma Nis. 02, 2010 1:17 am tarafından Admin
» sitene ilahi arama motoru ekle htm kodu
Cuma Nis. 02, 2010 1:15 am tarafından Admin
» sitene ilahi mp3 çalar html kodu
Cuma Nis. 02, 2010 1:13 am tarafından Admin
» Sitene Veda Hutbesi Ekle
Cuma Nis. 02, 2010 1:07 am tarafından Admin
» Not ortalama
Cuma Nis. 02, 2010 12:41 am tarafından Admin
» Ziyaretçi selamlama
Cuma Nis. 02, 2010 12:38 am tarafından Admin
» Daktilo yazisi
Cuma Nis. 02, 2010 12:37 am tarafından Admin
» Göz kirpan yazi
Cuma Nis. 02, 2010 12:33 am tarafından Admin
» Bugunku ve toplam hit... wap siteleri icin bire bir ( PHP ) script
Cuma Nis. 02, 2010 12:31 am tarafından Admin
» Mesaj yollama......
Cuma Nis. 02, 2010 12:28 am tarafından Admin
» Harf harf reknli yazi yapmak
Cuma Nis. 02, 2010 12:26 am tarafından Admin
» Kutu içerisinde çikan yazilar
Cuma Nis. 02, 2010 12:23 am tarafından Admin
» Downloader......
Cuma Nis. 02, 2010 12:21 am tarafından Admin
» Bu kod ile sayfanızda depremler yarata bilirsiniz :d
Cuma Nis. 02, 2010 12:18 am tarafından Admin
» Ziyaretci defteri......
Cuma Nis. 02, 2010 12:16 am tarafından Admin
» Google arama
Cuma Nis. 02, 2010 12:13 am tarafından Admin
» Tehlikeli bir tiklama
Cuma Nis. 02, 2010 12:09 am tarafından Admin
» Müzk dosyalarininiin bütününü çalin
Cuma Nis. 02, 2010 12:07 am tarafından Admin
» Üye girişi
Cuma Nis. 02, 2010 12:05 am tarafından Admin
» Görüş formu
Cuma Nis. 02, 2010 12:02 am tarafından Admin
» Sitenizdeki aktif kullanicilar ( AsP)
Cuma Nis. 02, 2010 12:01 am tarafından Admin
» En güzel kayan yazı
Perş. Nis. 01, 2010 11:59 pm tarafından Admin
» En iyi konuk defteri
Perş. Nis. 01, 2010 11:56 pm tarafından Admin
» Yükleniyor
Perş. Nis. 01, 2010 11:55 pm tarafından Admin
» Kayan yazı süper birşey
Perş. Nis. 01, 2010 11:53 pm tarafından Admin
» Sayfada yagmur
Perş. Nis. 01, 2010 11:52 pm tarafından Admin
» Sitende çok süper bir saat olsun
Perş. Nis. 01, 2010 11:51 pm tarafından Admin
» Farenin etrafında ismin dönsün
Perş. Nis. 01, 2010 11:49 pm tarafından Admin
» Online ziyaretci saysini
Perş. Nis. 01, 2010 11:48 pm tarafından Admin
» Hazır index
Perş. Nis. 01, 2010 11:42 pm tarafından Admin
» Hazır site sadece kodu ekle ve farkı gör
Perş. Nis. 01, 2010 11:40 pm tarafından Admin
» . Sitende enson teknoloji haberlerini bant panel halinde görüntüle
Perş. Nis. 01, 2010 11:38 pm tarafından Admin
» Sitene kamerali sesli chat ekle super
Perş. Nis. 01, 2010 11:37 pm tarafından Admin
» Günlük gazete ekle
Perş. Nis. 01, 2010 11:36 pm tarafından Admin
» Sitene gazete 1. sayfa ekle
Perş. Nis. 01, 2010 11:34 pm tarafından Admin
» Flash mp3 player
Perş. Nis. 01, 2010 11:32 pm tarafından Admin
» Poyraz internet cafe
Perş. Nis. 01, 2010 11:29 pm tarafından Admin
» Harika bir kod
Perş. Nis. 01, 2010 11:28 pm tarafından Admin
» Üniversite not hesaplama
Perş. Nis. 01, 2010 11:26 pm tarafından Admin
» Radyo Faruki'yi günün hangi saatlerinde dinliyorsunuz?
Perş. Nis. 01, 2010 3:16 am tarafından Admin
» Doğa & Manzara
Ptsi Mart 29, 2010 6:31 pm tarafından Admin
» Doğa & Manzara
Ptsi Mart 29, 2010 6:01 pm tarafından Admin
» Doğa & Manzara
Ptsi Mart 29, 2010 5:56 pm tarafından Admin
» Peygamber Efendimizin Hicreti
Ptsi Mart 29, 2010 5:47 pm tarafından Admin
» Şakk-ı Kamer Mu'cizesi
Ptsi Mart 29, 2010 5:43 pm tarafından Admin
» İlk Müslümanlar
Ptsi Mart 29, 2010 5:39 pm tarafından Admin
» Peygamberlikten Önce Dünya
Ptsi Mart 29, 2010 5:35 pm tarafından Admin