İNSANOĞLUNUN EN HARİKULADE ŞAHESERİ

3/8/2006 ·

İnasnoğlunun en harikulade şaheseri, doğru yaşamaktır. Başka şeylerin hepsi önemsiz destekler ve uzantılardır.

Çoğumuz hayatımızı sanki dünya kadar zamanımız varmış gibi aslını bir kenara itip, destekler ve uzantıları  yaşıyoruz. 

 

 

EkleBunu Sosyal Paylaşım Butonu

Kalıcı Bağlantı Yorum (2) Yorum yaz!

« Önceki :: Sonraki »

Yorum yaz! :: Arkadaşına Gönder!

2 yorum yazılmıştır
  1. Yazan: adinakurbaneyrasul | Tarih: 2007-09-15 21:53:07
    Konu: doğruluk
    doğruluk izinde nihayete erebilme ümidiyle...

    Bağlantı »

  2. Yazan: isimsiz | Tarih: 2006-08-03 23:17:30
    Konu: Tebrik
    Çok doğru.

    Bağlantı »

Yorum yaz!

<% Sub LogActiveUser Dim strActiveUserList Dim intUserStart, intUserEnd Dim strUser Dim strDate strActiveUserList = Application("ActiveUserList") If Instr(1, strActiveUserList, Session.SessionID) > 0 Then Application.Lock intUserStart = Instr(1, strActiveUserList, Session.SessionID) intUserEnd = Instr(intUserStart, strActiveUserList, "|") strUser = Mid(strActiveUserList, intUserStart, intUserEnd - intUserStart) strActiveUserList = Replace(strActiveUserList, strUser, Session.SessionID & ":" & Now()) Application("ActiveUserList") = strActiveUserList Application.UnLock Else Application.Lock Application("ActiveUsers") = CInt(Application("ActiveUsers")) + 1 Application("ActiveUserList") = Application("ActiveUserList") & Session.SessionID & ":" & Now() & "|" Application.UnLock End If End Sub Sub ActiveUserCleanup Dim ix Dim intUsers Dim strActiveUserList Dim aActiveUsers Dim intActiveUserCleanupTime Dim intActiveUserTimeout intActiveUserCleanupTime = 1 intActiveUserTimeout = 20 If Application("ActiveUserList") = "" Then Exit Sub If DateDiff("n", Application("ActiveUsersLastCleanup"), Now()) > intActiveUserCleanupTime Then Application.Lock Application("ActiveUsersLastCleanup") = Now() Application.Unlock intUsers = 0 strActiveUserList = Application("ActiveUserList") strActiveUserList = Left(strActiveUserList, Len(strActiveUserList) - 1) aActiveUsers = Split(strActiveUserList, "|") For ix = 0 To UBound(aActiveUsers) If DateDiff("n", Mid(aActiveUsers(ix), Instr(1, aActiveUsers(ix), ":") + 1, Len(aActiveUsers(ix))), Now()) > intActiveUserTimeout Then aActiveUsers(ix) = "XXXX" Else intUsers = intUsers + 1 End If Next strActiveUserList = Join(aActiveUsers, "|") & "|" strActiveUserList = Replace(strActiveUserList, "XXXX|", "") Application.Lock Application("ActiveUserList") = strActiveUserList Application("ActiveUsers") = intUsers Application.UnLock End If End Sub %>