ASP Sitedeki Üyeler ve Misafirler

10.05.2011 tarihinde , Espiar tarafından yazılmış ve 255 kere okunmuş.

Sitedekileri ister global.asa ile, isterseniz de global asa kullanmadan sayın. Farketmez. Ben burada global.asa ile yapacağım (ne yapalım, gülü seven dikenine katlanır). Bir de sitenizdeki üyelik sisteminin cookie kullanıyor olması gerekiyor. Önce global.asa İle Ziyaretçi Sayma uygulamasını okuyun. Sonra tekrar dönüp bu uygulamayı okumaya devam edebilirsiniz. Şimdi o uygulamadaki global.asa dosyasına bazı eklentiler yapacağız. Açalım global.asa dosyamızı ve yazalım eklentileri; global.asa <SCRIPT LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart   Application("Ziyaretciler") = 0 End Sub Sub Session_OnStart   Session.Timeout = 20   Session("Start") = Now   Session("Uye_Adi") = Request.Cookies("cookie")("uye_ismi")   If Session("Uye_Adi") = "" Then     Session("Uye_Adi") = "Misafir"   End If   If Not InStr(Application("Aktif_Uyeler"), Session("Uye_Adi")) Then     Application.Lock     Application("Aktif_Uyeler") = Application("Aktif_Uyeler") & Session("Uye_Adi") & "||"     Application.UnLock   End If   Application.Lock   Application("Ziyaretciler") = Application("Ziyaretciler") + 1   Application.UnLock End Sub Sub Session_OnEnd   If Len(Session("Uye_Adi")) > 0 Then     Application.Lock     Application("Aktif_Uyeler") = Replace(Application("Aktif_Uyeler"), Session("Uye_Adi") & "||", "")     Application.UnLock   End If   Application.Lock   Application("Ziyaretciler") = Application("Ziyaretciler") - 1   Application.UnLock   Session("Uye_Adi") = "" End Sub </SCRIPT> İşte yukarıdaki kodlar, global.asa dosyamızın en son hali. Burada yaptığımız tek şey; o anda sitede bulunan üyelerin isimlerini bir dizi, yani Application("Aktif_Uyeler") içinde saklamak. Siteye üye girdiği zaman, ismi bu değişken içine alınacak. Eğer siteye giren kişi üye değil de sadece bir ziyaretçi ise, bu durumda ona Misafir damgası vurulacak. Üyeleri || işaretleriyle ayırıyoruz. Application("Aktif_Uyeler") değişkeninin içeriği yaklaşık şöyle olacak; uye1||uye2||uye3||uye4|| Şimdi gelelim bunları sayfaya yazmaya. Hangi sayfaya ve neresine yazacaksak aşağıdaki kodları oraya koyabiliriz. <% Response.Write "Şu anda sitede " & Application("Ziyaretciler") & " kişi var.<BR>" arr_Uyeler = Split(Application("Aktif_Uyeler"), "||") For i = 0 To UBound(arr_Uyeler) - 1   If arr_Uyeler(i) <> "Misafir" Then     Response.Write "| " & arr_Uyeler(i) & " |<BR>"   End If Next %> Yukarıdaki kodlar, öncelikle sitedeki ziyaretçilerin toplam sayısını (misafir + üyeler) yazıyor. Sonra bir başka dizi değişkene, Application("Aktif_Uyeler") değişkeninin içindeki isimleri alıyoruz. Daha önce üyeleri || işaretleriyle ayırarak değişken içine kaydetmiştik. Şimdi yine bu işaretle onları ayıralım. arr_Uyeler = Split(Application("Aktif_Uyeler"), "||") Sonra da dizinin boyutu kadar bir döngü içinde üye mi, misafir mi kontrolü yapalım. For i = 0 To UBound(arr_Uyeler) - 1   If arr_Uyeler(i) <> "Misafir" Then     Response.Write "| " & arr_Uyeler(i) & " |<BR>"   End If Next Ve gereken yere bunu yazalım. Bundan sonra kodlar üzerinde istediğimiz gibi oynayabiliriz. İsterseniz, site sahibi olarak sizin listede görünmemenizi sağlayabiliriz (nasıl mı? Biraz kasın bakalım). Ya da kaç tane misafir olduğunu da yazabiliriz Etiketler : Sitedeki Üyeler ve Misafirler