Asp | |
Webmaster Forumu | forum.websitem.biz | Programlama | Programlama Dilleri | Asp |
Konu: Asp ile online kullanıcıları göstermek | |
Yazar | Mesaj | |||||||||||||||
Ömer YILDIRIM
Forum Yöneticisi Cahil Yönetici Kayıt Tarihi: 07-Temmuz-2012 Konum: Balıkesir Gönderilenler: 52 Tesekkür: 10 Rep: 24 Hak Puan : 30 Kidem : 9 OrtalamaHak : % 100 Itibar :5
|
Konu: Asp ile online kullanıcıları göstermek Gönderim Zamanı: 14-Temmuz-2012 Saat 14:26 |
|||||||||||||||
Merhaba arkadaşlar bugunkü asp dersimizde sizlere pek çok codere lazım olan online kullanıcı sayısını hesaplamayı yarayan kodlar yazacagım,
Öncelikle bunun için asp de 2 yöndem bulunmaktadır. 1.Global.asa Açıkcası bu yöntemin pek taraftarı değilim çünkü genelde 20 kullanıcıdan sonra büyük bir ihtimal sapıtıyor aslında ihtimal degil kesin sapıtıyor diyebiliriz.Çünkü mantık olarak kullanıcı sitenize girdigi zaman session benzeri uygulama ile server da bir oturum acılıyor site adına ve bu oturum yeni bir kullanıcı girdiginde 1 artırılıyor ve browsere kapadıgında -1 yapması gerekiyor (!) ama genelde yapmıyor ne hikmetse otomatikman 100 hit olan sitenizde 200-300 online kullanıcı olabiliyor o yüzden bu yöntem size hiç bir vakit kaybettirmeden işin erbabı olan veritabanıyla yapılan ip kontrollü yöntemi anlatacaım 2.İp ye göre veritabanı kontrollü işte benim yöntemim diyebilirim Mantık aslında çok basit şimdi bize lazım olanlar 1 adet veritabanı 1 adet asp kod sayfası önce mantık Sitemize giren kullanıcını sitemize giriş tarihi ve ip adresini kayıt ediyoruz. Daha sonra sitemize yeni bir kullanıcı girdigi zaman ip adresinin kayıtlı olup olmadıgını kontrol ediyoruz eger varsa önceki giriş tarihini update ediyoruz eger yoksa yeniden bir kayıt oluşturuyoruz mantık bu kadar Şimdi veritabanımızı oluşturulım , Veritabanımızın tablo yapısı resimdeki gibi olucaktır. veritabanımızın tablosunu aktif olarak kaydettikten sonra veritabanızı sayaç olarak kayıt ediyoruz.Şimdi gelelim 2.kısmına yani kod kısmına aşagıdaki kodları online.asp olarak kayıt ediyoruz <% BU KOD WWW.SANALDATA.COM TARAFINDAN HAZIRLANMIŞTIR Set sur = Server.CreateObject("ADODB.Connection") sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sayac.mdb") ip=Request.ServerVariables("REMOTE_ADDR") Set sanaldata = Server.Createobject("ADODB.Recordset") sql = "SELECT * FROM aktif where ip= "& ip &" " sanaldata.open sql, sur, 1, 3 If sanaldata.eof Then sanaldata.addnew sanaldata("ip")=ip sanaldata("hareket")=now else sanaldata("hareket")=now end if sanaldata.update sanaldata.Close Set sanaldata = Nothing %> <% Session.LCID = 1033 tarih1 = now() tarih2 = DateAdd("n" , -10, Now()) set onlineuyek = server.createobject("ADODB.Recordset") sanaldata2 = "select * from aktif where hareket between #" & tarih1 & "# and #" & tarih2 & "# " onlineuyek.open sanaldata2,sur,1,3 %> <%Set sayc = sur.execute("SELECT COUNT(id) from aktif where hareket between #" & tarih1 & "# and #" & tarih2 & "#") %> <%=sayc(0)%> ve hepsi bu kadar . |
||||||||||||||||
Hazır Profesyonel Web Site Paketleri WebSitem!
|
||||||||||||||||
alenn34
Forum Üyesi Kayıt Tarihi: 26-Nisan-2013 Gönderilenler: 351 Tesekkür: 0 Rep: 0 Hak Puan : 0 Kidem : 5 OrtalamaHak : % 0 Itibar :0
|
Gönderim Zamanı: 16-Haziran-2013 Saat 15:46 | |||||||||||||||
teşekkürler güzel paylaşım
|
||||||||||||||||
Forum Atla |
Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |