ASP ile Online Üyeler

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

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ıyorsunuz. Etiketler : Online Üyeler