Konu: KARIŞIK HTML KODLAR C.tesi Ağus. 25, 2007 4:40 am
RADYO ARKA FONDAN ÇALSIN SİTENİZE EKLEDİĞİNİZ ZAMAN GÖZÜKMEZ
border=0>
HAYAL GÖZLÜM
<TBODY>
<P></P>
</TBODY>
<TBODY>
</TBODY>
<P>
</P>
SİTERDEKİ AKTİF KULLANICILAR
<Object></Object> <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 </SCRIPT>