Asp
 Webmaster Forumu | forum.websitem.biz | Programlama | Programlama Dilleri | Asp
Mesaj icon Konu: Asp ile online kullanıcıları göstermek Yanıt Yaz Yeni Konu Gönder
Yazar Mesaj
Ömer YILDIRIM
Forum Yöneticisi
Forum Yöneticisi
Simge
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

Aktiflik
16%
Seviye
99%
Deneyim
60%
Alıntı Ömer YILDIRIM Cevaplabullet 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!
IP  Tesekkur Et
alenn34
Forum Üyesi
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

Aktiflik
46%
Seviye
46%
Deneyim
60%
Alıntı alenn34 Cevaplabullet Gönderim Zamanı: 16-Haziran-2013 Saat 15:46
teşekkürler güzel paylaşım
IP  Tesekkur Et
Yanıt Yaz Yeni Konu Gönder
Konuyu Yazdır Konuyu Yazdır

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

Bulletin Board Software by Web Wiz Forums version 8.03