Haz
23Bu dersimizde ise toplam kaç kişinin sitemizi ziyaret ettiğini belirliceğiz.
Uygulamamız bir sayfadan oluşacak.Kodların yanında açıklamalar mecvcut.İşte kodlar:Ana Sayfa <br />
<%
db = Server.MapPath("db.mdb" )
Set baglanti = Server.CreateObject("ADODB.Connection" )
baglanti.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & db & ";" ' veritabanı bağlantımızı yaptık
Set Rs = Server.CreateObject("ADODB.RecordSet") 'RecordSetimizi tanımladık
Sql = "Select * from sayac" 'sql kodumuz
Rs.Open sql,baglanti,1,3
if Rs.eof then 'eğer sayac adlı tablomuzda veri yoksa
Rs.AddNew 'yeni bir veri ekle
End if ' Siz bu işlemi yapmaktansa elle bir kayıt ekleyebilirsiniz.
Rs("sayi") = Rs("sayi") + 1 'sayi adlı alanımızı bir arttırdık
Rs.Update
Response.Write " Sitemiz "&Rs("sayi")&" kere ziyaret edildi" 'Sitemizin kaç kere ziyaret edildiğini yazdırdık
%>
Uygulamanın Demosu
Dersimiz sona erdi.Kendinize iyi bakın.
5 yorum var
#319.-Yusuf-16 Eylül 2007 Pazar
çok teşekkürler ama flood yiyo
#391.-nihat-02 Kasım 2007 Cuma
bu böle kullanılmaz session kullanmanız lazım yoksa sayfayı yenilesek sayaç artar
#393.-ahmet sahin-04 Kasım 2007 Pazar
peki nasıl olacak. daha ayrıntılı anlatabilirmisiniz?
#399.-abdullah alp-12 Kasım 2007 Pazartesi
güzel bir uygulama ama her sayfa yenilendiğinde sayıda artıyor.
ip noya göre hareket ederse daha doğru bilgiler verir.
#447.-Gökhan Aygün-21 Aralık 2007 Cuma
Burda Sayfa her yenılendiğinde sayaç artar ve bu sayacda biza sanırım bize tam bi istatistiik sunmaz .Ben asp bilmem ama çözüm yolu şöle olmalıdır.
Öncelikle veritabanından ip ve tarih için alanlar olmalıdır.
Amaç kullanıcının aynı gün içinde site sayacını sadece 1 defa saydırabilmesi ... Onun içinde aynı içinde bu ip varmı yokmu onu tespit etmeliyiz sql1 .için sql2 ise kayıt .
dim sql1 = "SELECT ip FROM tablo_adi WHERE tarih #gg.aa.yyyy#"
dim sql2 = "INSERT INTO tablo_adi(ip,tarih) VALUES('İP','TARİH')"
if sql1=kullanıcı ip then response.write "Bu gün sitemizi ziyaret etmiştiniz."
else
işte şimdi yukardaki kodları entegre edebilirsiniz else den sonra ..
kolay gelsin
