Papatyam Forum - Tekil Mesaj gösterimi - wap Online ziyaretci kodu
Konu Başlıkları: wap Online ziyaretci kodu
Tekil Mesaj gösterimi
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