|
Sitenizde bir üyelik sistemi kullanıyorsunuz. Ve o anda sitenizde kimlerin online olduğunu ziyaretçilerinize göstermek istiyorsunuz. Gelin hep beraber yapalım. Follow Me.
Öncelikle üye bilgilerini tuttuğunuz tabloya son_tarih isimli bir alan daha açıyoruz. Daha sonra üye giriş yaptığında girdiği anı Now() ile veritabanına kaydediyoruz. Aşağıdaki şekilde.
Üye girişi yapılan login.asp dosyamız.
<%
Veitabanına bağlanılır.rs isMINde kayıt seti açılır. Formdan gelen üye bilgileri veritabanıyla karşılaştırılır. Giriş kabul edilirse.
´Önce geçerli olan Lcid ayarını buluyoruz.
DefaultLcid = Session.LCID
´Sonra Lcid ayarını 1033´e çeviriyoruz.
Session.LCID = 1033
´Üyenin giriş yaptığı an veritabanına kaydedilir.
rs("son_tarih") = Now()
rs.UpDate
´Üye id numarasını bir değişkene atayalım ki kim için işlem yaptığımızı bilelim.
Session("UyeID") = rs("id")
´Giriş yapan üyenin online olup olmadığını anlamak içinde bir Session oluşturalım.Bu daha sonra işimize yarayacak.
Session("Giris") = "ok"
´Lcid ayarımızı eski haline çevirelim.
Session.LCID = DefaultLcid
%>
Bu şekilde üye girişini kabul ettikten sonra online olan üyelerimizi sorgulayacağımız kodumuz aşağıda. İsmine thereiswho.asp diyelim. :))
<%
´Conn isimli veritabanı bağlantısı yapılır.
´Geçerli Lcid belirlenir.
DefaultLcid = Session.LCID
´Lcid ayarı 1033´e çevrilir.
Session.LCID = 1033
´Eğer üye online ise giriş tarihini şu an olarak ayarlıyoruz. Çünkü üye hala sitede ve bizim online sayacağımız süreden daha uzun süre işlem yapmamışsa online üyeler arasında görünmez ve buda sitemizin ciddiyetini ve karizmayı yaralar.
If Session("Giris") = "ok" Then
Conn.Execute("UpDate Uyeler Set son_tarih = #"&Now()&"# Where id="&Session("UyeID")&"")
End If
´En son kaç dakika içinde siteye giren üyelerimizi online sayacağımız süreyi belirliyoruz.
NeKadar = DateAdd("n", -5, Now()) ´Son 5 dakika
´Ve artık online üyelerimizi listeliyoruz.
Set Listele = Conn.Execute("Select * From Uyeler Where son_tarih >= #"&NeKadar&"# Order By son_tarih DESC")
Do While Not Listele.Eof
Response.Write List("Uye_Adi")&"," ´Aralarına virgüls
List.MoveNext
Loop
´İşimiz bitti artık Mucitin ifadesiyle köyümüze geri dönelim. :)))
Session.LCID = DefaultLcid
%>
|
 |
