[stNonStop]

Arkadaşlar ASP ile yazılmış basit bir countera ihtiyacım var...

[soul]

http://www.2enetworx.com/dev/projects/statcountex.asp

Bence gayet iyi bir yapım ! Basit ve tamamen ücretsiz !

[harddream]

Sayac.ASP
-----------------------

<!--#include file="baglanti.ASP"-->
<%
'||||||||||||||||||||||||||||||||||| Tarih türkçe |||||||||||||||||||||||||||||||||||

site = "siteadi"
bugun = day(date())
buay = month(date())
buyil = year(date())

'||||||||||||||||||||||||||||||||||| Tekil Ve Çoğul Hitler |||||||||||||||||||||||||||||||||||

if not session(site) = "girdi" then
set kontrol = server.createobject("adodb.recordset")
SQL="select * from hit where gun = "&bugun&" and ay = "&buay&" and yil = "&buyil&""
kontrol.open SQL,bag,1,3
if kontrol.eof then
kontrol.addnew
kontrol("gun") = bugun
kontrol("ay") = buay
kontrol("yil") = buyil
kontrol("tekil_hit") = 1
kontrol("cogul_hit") = 1
kontrol.update
else
tekil_hit = kontrol("tekil_hit") + 1
kontrol("tekil_hit") = tekil_hit
end if
kontrol.update
session(site) = "girdi"
else
set kontrol = server.createobject("adodb.recordset")
SQL="select * from hit where gun = "&bugun&" and ay = "&buay&" and yil = "&buyil&""
kontrol.open SQL,bag,1,3
cogul_hit = kontrol("cogul_hit") + 1
kontrol("cogul_hit") = cogul_hit
kontrol.update
end if

%>

Baglanti.ASP
-------------------------------
<%
Set bag = server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("say.mdb")
%>

.mdb nin içeriği
------------------------

Tabloadı : hit
fieldsler : gun - ay - yil - tekil_hit - cogul_hit


amma yazdim bea

[stNonStop]

Baba ben basit bişey istemiştim

Genede sağol üşenmeip yazmışsın teşekkür ederim...

[ZORBA]

www.aspindir.com

[harddream]

sende saol daha once yazdigim bir script idi basit birsey oldu zateb gelistirmeye vakit bulamadim