Merhaba Arkadaşlar
ziyarteçi sayacımda sayfayı her yenilediğimde ziyaretçi sayacı 1 artıyor, sayfayı her yenilendiğinde ziyaretçi sayacını 1 artmasını istemiyorum bunu nasıl yapabiliriz, aşağıdaki kodlama bölümünde yapamadım bana bu konuda yardımcı olabilirmisiniz. birde dünkü ziyaretçi sayısını nasıl gösterebilirim
Saygılar.
tablo
item--------------ip--------------tarih---------------ziyaret
Bugün...................................07.07.2010 ...................255
Dün
Toplam..................................07.07.2010 ..................60000
<%
bugun="BUGUN"
Set RS=server.createObject("ADODB.Recordset")
sor = "select * from ziyaretci "
RS.open sor,Bag,1,3
rs.movefirst
if rs("tarih") = date then
RS.fields("ziyaret") = rs.fields("ziyaret") + 1
saybugun=rs("ziyaret")
else
rs("tarih")=date
rs("ziyaret") = 1
saybugun=1
end if
rs.getrows(1)
rs("tarih") = date
rs("ziyaret") = rs("ziyaret") + 1
saytoplam=rs("ziyaret")
RS.update
%>
Ziyaretçi Sayacı yardım
6
●616
- 08-07-2010, 13:40:14Ziyaretçiye bir cookie göndererek kaç saat sonra tekrar hitin yazılacağını aşağıdaki bölümden ayarlayabilirsin.
("n",12,now())
<%
if request.cookies("deneme")("hit")<>"ok" then
bugun="BUGUN"
Set RS=server.createObject("ADODB.Recordset")
sor = "select * from ziyaretci "
RS.open sor,Bag,1,3
rs.movefirst
if rs("tarih") = date then
RS.fields("ziyaret") = rs.fields("ziyaret") + 1
saybugun=rs("ziyaret")
else
rs("tarih")=date
rs("ziyaret") = 1
saybugun=1
end if
rs.getrows(1)
rs("tarih") = date
rs("ziyaret") = rs("ziyaret") + 1
saytoplam=rs("ziyaret")
RS.update
Response.Cookies("deneme")("hit")="ok"
Response.Cookies("deneme").Expires=DateAdd("n",12, now())
end if
%> - 08-07-2010, 17:04:49Hocam sizin gibi, bir çok Yardım ve paylaşmayı seven Arkadaşlar bu tür konularda baya bi yardımda bulundular sizlerin sayesinde bir çok şeyler öğrenmeye çalışıyoruz. Hocam hepinizden Allah Razı Olsun, Bu aradada Miraç Kandilinizde Mübarek Olsun.
her şey için teşekkür ederim
Saygılar.