Sitende kim var?

Sitemde kim var? diye merak etmeyin sadece kodu ekleyin! Kod: --------- 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 ---------

Bu Kategorideki Diğer Haberler

• kadın kocası ve kaynana :)04 Aug 2008 22:06:58
• Aslan ve Tilki02 Aug 2008 15:19:02
• Büyük Yumurta02 Aug 2008 15:19:23
• Delikanlı Maymun02 Aug 2008 15:19:46
• Roman yazmiŞ02 Aug 2008 15:20:22
• Işıgı Gören Geliyor02 Aug 2008 15:27:37
• Mantıklı yasal veya tersi süper ötesi08 Jul 2008 15:25:03

• Alinin sınıfı okumayan kaçırır08 Jul 2008 15:28:53
• Subaylar calıyor08 Jul 2008 15:31:03
• Cesaret budur08 Jul 2008 15:32:50
• sütçü08 Jul 2008 15:34:37
• 3 saniyelik balik diyaloglari07 Jul 2008 14:09:38
• Öğretmen Tehditleri07 Jul 2008 14:10:37
• Osmanlıca Film İsimleri07 Jul 2008 14:11:32
• Okula Ne İçin Gidiyoruz07 Jul 2008 14:12:25
• temelin askerlik anıları 107 Jul 2008 14:14:00
• Türk sen oku :D06 Jul 2008 12:48:20
• Temel Counter Strike Oynarsa...06 Jul 2008 12:49:47
• saatler geri alınıyo06 Jul 2008 12:50:42
• 50 yıl daha06 Jul 2008 12:53:00
• Dev Fıkra Arşivi05 Jul 2008 13:03:44
• Temel Amerikaya savaş açarsa05 Jul 2008 17:07:39
• Affedersiniz Lazmısınız ?05 Jul 2008 17:08:42
• meraklı şöför05 Jul 2008 17:10:35
• Titanikte Türkler Olsaydi...05 Jul 2008 17:11:55
• rizeyle kayseri savaş yaparlarsa05 Jul 2008 17:12:53
• Öyküler,Güncel Hayattan Paylaşımlar :: RE: Aşk sessiz, sevgi19 Jun 2008 11:25:51
• Kıssadan hisseler :: Lâ Havle;Çekmek20 Jun 2008 15:22:35
• Hangi takımı tutuyosun? NEDEN ?????17 Jun 2008 16:53:43
• 30 yaşına gelmeden mutlaka yap!!!!17 Jun 2008 19:17:28