Programalama > ASP

Etiketler: aktif, üyeler......

Ort. 0
Puan ver:
// GLOBAL.ASA  

<SCRIPT LANGUAGE=VBScript RUNAT=Server> 
Sub Application_OnStart 
Application("Ziyaretciler") = 0 
End Sub 
Sub Session_OnStart 
Session.Timeout = 10 
Session("Start") = Now 

Session("Uye_Adi") = Request.Cookie("Snitz00User")("name") 
If Session("name") = "" Then 
Session("name") = "Misafir" 
End If 
If Not InStr(Application("Aktif_Uyeler"), Session("name")) Then 
Application.Lock 
Application("Aktif_Uyeler") = Application("Aktif_Uyeler") & Session("name") & "||" 
Application.UnLock 
End If 
Application.Lock 
Application("Ziyaretciler") = Application("Ziyaretciler") + 1 
Application.UnLock 

End Sub 

Sub Session_OnEnd 
If Len(Session("name")) > 0 Then 
Application.Lock 
Application("Aktif_Uyeler") = Replace(Application("Aktif_Uyeler"), Session("name") & "||", "") 
Application.UnLock 
End If 
Application.Lock 
Application("Ziyaretciler") = Application("Ziyaretciler") - 1 
Application.UnLock 
Session("name") = "" 
End Sub 
</SCRIPT> 

// online.asp 

<% 
arr_Uyeler = Split(Application("Aktif_Uyeler" ), "||" ) 
For i = 0 To Ubound(arr_Uyeler) - 1 
If arr_Uyeler(i) <> "Misafir" Then  
End If %> 
<table width="94%" border="0" align="center"> 
<tr>  
<td><font face="Tahoma" color="#000000" size="2"><b><li><%= arr_Uyeler(i) %>  
</b></font></td> 
</tr> 
</table> 
<% 
Next 
%>  
<br> 
<br>


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2019 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.