Online uyeler

Bu uygulamada kayıtlı üyelerimizin aktif olup olmadığının nasıl gösterildiğini sıralayalım. Veritabanımızda uyeler adında tablo olsun ve id(autonumber),username(text),songiris(date/time) adında 3 tane alan adımız olsun. Üye girişi yapıldığı zaman üyemizin adını session("user") adına bağlamamız lazımki ona göre her sayfamızda güncelleme yapacağız. <% ' baglantim degiskenindeki veritabanı bağlantınız buraya Session.LCID = 1033 Set RS = Server.CreateObject("ADODB.Recordset" ) sql = "select * from uyeler where kadi = '" & user & "' " RS.Open sql,baglantim,1,3 If not RS.Eof Then RS("son_tarih" )=Now() RS.update End If RS.Close Set RS = Nothing Session.LCID = 1055 %> Kullanıcı adını session("user")'a göre seçim yapıp songiris adlı alanımızdaki tarihe şimdiki zaman'ı alıyoruz. NOT : Bu üstteki kodumuz her sayfanızın başında olmalıdı.Diğer sayfalarda olmazsa yenileme yapılamazsa kullanıcı sitede olduğu halde olmadığı gösterilir. şimdi ise online kullanıcılarımızı ekrana yazdıralım. <% Session.LCID = 1033 tarih1 = Now() tarih2 = DateAdd("n" , -5, Now()) Set RS1 = Server.CreateObject("ADODB.Recordset" ) sql2 = "select * from uyeler where songiris between #" & tarih1 & "# and #" & tarih2 & "# " RS1.Open sql2,baglantim,1,3 Do While not RS1.Eof Response.Write RS1("username" ) & ", " RS1.Movenext Loop Session.LCID = 1055 %> Bu kod ilede ekrana hangi üyelerin aktif olduğunu yansıttık. Mantığı basittir.Siz her sayfada üyenin son giriş tarihini veritabanındaki songiris adlı alan'a yazdırıyorsunuz.Sonra ekrana şimdi ile 5 dk öncesi arasındaki kullanıcıları ekrana yazdırıyorsun