wap Online ziyaretci kodu - Papatyam Forum

Papatyam Forum

Go Back   Papatyam Forum > ..::.BİLGİSAYAR & TEKNOLOJİ.::. > Web Master Kaynakları > WML

Yeni Konu aç  Cevapla
 
Seçenekler
Alt 08 February 2008, 14:58   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart wap Online ziyaretci kodu

wap Online ziyaretci kodu

Kod:
<% 
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 

%>
Alıntı ile Cevapla
Cevapla

Bookmarks

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Benzer Konular
Konu Başlıkları Konuyu Başlatan

Papatyam Forum Ana Kategori Başlıkları

Cevaplar Son Mesajlar
Standart PHP'de Ziyaretçi Defteri Hazırlayalım. agasarlinuris php 0 21 January 2009 22:41
Asal sayı bulan c++ kodu tamerr89 C++ 0 29 March 2008 18:35
Online üyelerimizden ricamızdır:) PESTEMAL Duyurular - Öneriler 5 11 March 2008 15:29
Online büyücüler PESTEMAL Teknoloji Son Haberler 2 06 November 2006 12:33
Bilgisayarınızda Virüs Var mı?Online Taratın,Bulun Mekansiz Programlar ve Anlatımlar 0 29 March 2006 11:44

Yeni Sayfa 1

www.papatyam.org Ana Sayfa

Tefekküre Davet Köşesi

Papatyam Sosyal Medya Guruplarımıza Katılın

                       Instagram         

Papatyam alemdarhost.com sunucularında barındırılmaktadır.