gelin sizinle ziyaretçi sayacı yapalımmm....

[ibrahimkaya396]

ilk once bi tana veri tabanı oluşturalım acces te

veri tabanının adı depo olsun
ve bunun içine sayac diye bi tana tablo oluşturalım bu tablonun içine bitane id bitande tarih bölümü acalım ve id ye otamatik sayı ve birincil anahtar verelim ve veri tabanını kayıt edip kapatalım....


sayacı eklemek istediğimiz sayfayı acalım ve komutları en üstüne ekleyelim

komutlar :

<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri_tabanlari\depo.mdb")

Set Kayit = Server.CreateObject ("ADODB.RecordSet")
Sql_Komutu = "Select * from sayac"
Kayit.Open Sql_Komutu, Baglanti, 1, 3

Kayit.AddNew

Kayit("tarih")=date()
Kayit.Update
Kayit.close
Set Kayit = Nothing
%>


ve sayacın görünmesini istediğimiz sayfayada aşagıdaki komutları ekleyelim

<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri_tabanlari/depo.mdb")

Set Kayit = Server.CreateObject("ADODB.Recordset")
Sql_Komutu = "Select * from sayac order by id desc"
Kayit.Open Sql_Komutu, Baglanti, 1, 3


%>
<font face="Tahoma" size="1">Bu güne kadar<b> <%=Kayit("id")%> </b>kez ziyaret edildik.</font>


işlem bu kadar basit

aslında tam bi sayaç olmayabilir ama ben çözümü böle buldum en azından sitenizde reklam olmayacak tamamen kendime aittir.. saygılarımla

 

[turansoylu]

Çok Basit olmasına karşın, kullanılabilecek bir şey aslında. Eline Sağlık.