Asp ile online kullanıcıları göstermek
Nereden Yazdırıldığı: Webmaster Forumu
Kategori: Programlama
Forum Adı: Asp
Forum Tanımlaması: .
URL: http://forum.websitem.biz/forum_posts.asp?TID=680
Tarih: 18-Nisan-2024 Saat 14:09
Program Versiyonu: Web Wiz Forums 8.03 - http://www.webwizforums.com
Konu: Asp ile online kullanıcıları göstermek
Mesajı Yazan: Ömer YILDIRIM
Konu: Asp ile online kullanıcıları göstermek
Mesaj Tarihi: 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!
|
Cevaplar:
Mesajı Yazan: alenn34
Mesaj Tarihi: 16-Haziran-2013 Saat 15:46
teşekkürler güzel paylaşım
-------------
http://www.dizaynkoltuk.org/ - dizayn koltuk , http://www.flatgaz.com - flatgaz , http://www.seouygulama.com - seo uygulama
|
|