<%
Response.Buffer = True
sayacgorunsun=1 ' SAYACIN GÖRÜNMESİNİ İSTİYORSANIZ 1 DEĞİLSE GİZLİ OLMASI İÇİN 0 YAPIN
banlaacik =0 ' BANLA AÇIKSA 1 DEĞİLSE 0
bansure =5 'banlama zamanı saniye
banhak =5 'banlamak için ziyaretçiye verilen hak adeti
mdbyolu ="db/sayacsayackarizmahost.mdb"
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&mdbyolu&"")
Set efkan = Server.CreateObject("ADODB.Recordset")
Set efkan1 = Server.CreateObject("ADODB.Recordset")
Set efkan2= Server.CreateObject("ADODB.Recordset")
Session.LCID = 1055
Session.CodePage = 1254
zamanmiktari=1
ip_no= Request.ServerVariables("REMOTE_ADDR")
'GELEN İP YASAKLIMI BAK
sor = "SELECT * FROM yasakli where ip='"& ip_no &"'"
efkan.open sor, sur, 1, 3
If efkan.eof Then
Else
response.redirect "sayacadmin/banla.asp?islem=banla"
Response.End
end if
efkan.close
If banlaacik=1 then
sor = "SELECT * FROM online where ipno='"& ip_no &"'"
efkan.open sor, sur, 1, 3
If efkan.eof Then
efkan.addnew
efkan("ipno")=ip_no
efkan("zaman")=Now()
Session ("hak") = 1
elseif datediff("s",efkan("zaman"),Now()) < bansure and Session ("hak") < banhak then
Session ("hak") = Session ("hak") + 1
response.redirect "sayacadmin/banla.asp?islem=uyar"
Response.End
elseif datediff("s",efkan("zaman"),Now()) < bansure and Session ("hak") => banhak then
sor = "SELECT * FROM yasakli "
efkan1.open sor, sur, 1, 3
efkan1.addnew
efkan1("ip") = ip_no
efkan1("tarih") = Now()
efkan1.update
efkan1.close
response.redirect "sayacadmin/banla.asp?islem=banla"
Response.End
else
'efkan("zaman")=now()
end if
efkan.update
efkan.Close
End if
'ONLİNE ZİYARETÇİ
zamanmiktari=1
ipno=Request.ServerVariables("REMOTE_ADDR")
sor = "SELECT * FROM online where ipno='"& ipno &"'"
efkan.open sor, sur, 1, 3
If efkan.eof Then
efkan.addnew
efkan("ipno")=ipno
efkan("zaman")=Now()
else
efkan("zaman")=Now()
end if
efkan.update
efkan.Close
sor = "SELECT * FROM online"
efkan.open sor, sur, 1, 3
Do While Not efkan.eof
zaman=datediff("n",efkan("zaman"),Now())
if zaman > zamanmiktari then
sor = "DELETE FROM online WHERE ipno = '"&efkan("ipno")&"'"
efkan1.open sor, sur, 1, 3
end if
efkan.movenext
Loop
onlineadet = efkan.RecordCount 'ONLİNE TOPLAM ZİYARETCİ
efkan.Close
'SAYAÇ BAŞLA
Dim ip_no,site_name,zaman,site_gel
ip_no= Request.ServerVariables("REMOTE_ADDR")
site_ad= Request.ServerVariables("URL")
site_gel= Request.ServerVariables("HTTP_REFERER")
if site_gel="" then
site_gel="Sayfam"
else
uzunluk=len(site_gel)
kisa=mid(site_gel,8,uzunluk)
bul=instr(kisa,"/")
if bul<>"0" then
site_gel=mid(site_gel,1,bul+6)
end if
end if
zaman= mid(now(),1,10) 'BUGUN
if session("ziyaretaa")<>"yes" then
'HİT GONDEREN SİTELERİN TOPLAM SAYACI
sor="Select * from say_site where site_name like '"&site_gel&"' "
efkan.Open sor,Sur,1,3
if efkan.eof then
efkan.AddNew
efkan("site_name")=site_gel
efkan("hit")="1"
efkan("gun")=zaman
efkan.Update
efkan.close
else
efkan("hit")=efkan("hit")+1
efkan.Update
efkan.close
end if
'HİT GONDEREN SİTELER GUNLUK SAYACI
sor="Select * from site_gel where (gun like '"&zaman&"' and site_gel like '"&site_gel&"')"
efkan.Open sor,Sur,1,3
if efkan.eof then
efkan.AddNew
efkan("site_gel")=site_gel
efkan("hit")="1"
efkan("gun")=zaman
efkan.Update
efkan.close
else
efkan("hit")=efkan("hit")+1
efkan.Update
efkan.close
end if
'EN ÇOK ZİYARET EDEN İPLER İP TOPLAM SAYACI
sor="Select * from say_ip where ip_number like '"&ip_no&"' " 'İP İLKEZ GELİYORSA
efkan.Open sor,Sur,1,3
if efkan.eof then
efkan.AddNew
efkan("ip_number")=ip_no
efkan("hit")="1"
efkan("vakit")=zaman
efkan.Update
efkan.close
tekil="ok"
else
if efkan("vakit") <> zaman then tekil="ok" else tekil="no" end if 'İP KAYITLI AMA BUGUN GELMEDİYSE T. SAY
efkan("hit")=efkan("hit")+1
efkan("vakit")=zaman
efkan.Update
efkan.close
end if
'GÜNLÜK HİTİ
Sor="Select * from say_hit where gun like '"&zaman&"'"
efkan.Open sor,Sur,1,3
if efkan.eof then
efkan.AddNew
efkan("gun")=zaman
efkan("tekil")="1"
efkan("cogul")="1"
efkan.Update
efkan.close
else
if tekil="ok" then 'EGER BUGUN GELMEDİ İSE
efkan("tekil")=efkan("tekil")+1
efkan("cogul")=efkan("cogul")+1
efkan.Update
efkan.close
else 'EĞER BUGUN ÖNCEDEN GİRİŞ YAPTISA
efkan("cogul")=efkan("cogul")+1
efkan.Update
efkan.close
end if
end if
end if
Dim gunt,gunc,topt,topc
gunt=0
gunc=0
topt=0
topc=0
Sor="Select * from say_hit"
efkan.Open sor,Sur,1,3
toplamgun=efkan.recordcount
Do while not efkan.Eof
if efkan("gun")=zaman then
gunt=efkan("tekil")
gunc=efkan("cogul")
end if
topt=efkan("tekil")+topt
topc=efkan("cogul")+topc
efkan.movenext
loop
efkan.close
gunluktekilortalama = topt / toplamgun
gunlukcogulortalama = topc / toplamgun
Session("ziyaretaa")="yes"
%>
<% If sayacgorunsun= 1 Then %>
Aktif Ziyaretci |
<%=onlineadet%> |
Bugun Tekil | <%=gunt%> |
Bugun Cogul | <%=gunc%> |
Toplam Tekil | <%=topt%> |
Toplam Cogul | <%=topc%> |
Ip <%=ip_no%> |
<% End if %>