MAİL
:
kocoto@gmail.com ADRES : Yeni Mah. Cami Cad. No:8
BOZÜYÜK / BİLECİK
<%
'###############################################################
'# #
'# --------------- --- --- -------- #
'# |MMMMMMMMMMMMM| |Y| |Y| |DDDDDD| #
'# |M|---|M|---|M| |Y| |Y| |D|---|D| #
'# |M| |M| |M| |Y| |Y| |D| |D| #
'# |M| |M| |M| |Y|----|Y| |D| |D| #
'# |M| |M| |M| |YYYYYYYY| |D| |D| #
'# |M| |M| |M| -------|Y| |D| |D| #
'# |M| |M| |M| |Y| |D| |D| #
'# |M| |M| |M| -------|Y| |D|---|D| #
'# |M| |M| |M| |YYYYYYYY| |DDDDDD| #
'# --- --- --- ---------- -------- #
'# #
'# #
'#######################| SAYAÇ v2.0 |##########################
'# #
'# Bu scriptin tüm hakları Murat Yavuz'a aittir. #
'# Script ile ilgili sorularınız ve önerileriniz için: #
'# #
'# http://www.mydesign.gen.tr #
'# http://www.mydesign.gen.tr/myforum #
'# mydesign@mydesign.gen.tr #
'# #
'###############################################################
%>
<%
os=request.servervariables("HTTP_USER_AGENT")
referrer=request.servervariables("HTTP_REFERER")
ip=request.servervariables("REMOTE_ADDR")
sayfa=request.servervariables("SCRIPT_NAME")
ulke=request.servervariables("HTTP_ACCEPT_LANGUAGE")
user=request.cookies("sayac")("zaman")
set baglanti=server.createobject("adodb.connection")
baglanti.open="provider=microsoft.jet.oledb.4.0;data source="& server.mappath("db/dbsayac.mdb") &";"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'SAYFALAR TABLOSUNA KAYIT BÖLÜMÜ
set kdsayfa=server.createobject("adodb.recordset")
sqlsayfa="select * from tbl_sayfalar where sayfa='"& sayfa &"'"
kdsayfa.open sqlsayfa,baglanti, 1, 3
if kdsayfa.eof then
kdsayfa.addnew
kdsayfa("sayfa")=sayfa
kdsayfa("tekil_hit")="1"
kdsayfa("cogul_hit")="1"
kdsayfa.update
else
if session("mydesign")<>"evet" then
tekil=kdsayfa("tekil_hit")
kdsayfa("tekil_hit")=tekil + 1
end if
cogul=kdsayfa("cogul_hit")
kdsayfa("cogul_hit")=cogul + 1
kdsayfa.update
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'İSTATİSTİKLERİN TUTULDUĞU TABLOYA KAYIT BÖLÜMÜ
set kdist=server.createobject("adodb.recordset")
sqlist="select * from tbl_ziyaretci"
kdist.open sqlist, baglanti, 1, 3
If Instr(os, "MSIE") Then
If Instr(os, "MSIE 6.") Then
Browser = "Microsoft Internet Explorer 6.x"
ElseIf Instr(os, "MSIE 5.") Then
Browser = "Microsoft Internet Explorer 5.x"
Elseif Instr(os, "MSIE 4.") Then
Browser = "Microsoft Internet Explorer 4.x"
Elseif Instr(os, "MSIE 3.") Then
Browser = "Microsoft Internet Explorer 3.x"
If Instr(os, "MSIE 3.02") Then
Browser = "Microsoft Internet Explorer 3.02"
End If
Else
Browser = "Microsoft Internet Explorer"
End If
ElseIf Instr(os, "Mozilla") and Instr(ua, "compatible") = 0 Then
If Instr(os, "Mozilla/4") Then
Browser = "Netscape Navigator 4.x"
Elseif Instr(os, "Mozilla/3") Then
Browser = "Netscape Navigator 3.x"
Else
Browser = "Netscape Navigator"
End If
End If
kdist.addnew
kdist("os")=browser
kdist("referrer")=referrer
kdist("ip")=ip
kdist("sayfa")=sayfa
kdist("ulke")=ulke
kdist("tarih")=NOW()
kdist.update
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'IP'LERİN TUTULDUĞU TABLOYA KAYIT BÖLÜMÜ
set kdip=server.createobject("adodb.recordset")
sqlip="select * from tbl_ip where ip='"& ip &"'"
kdip.open sqlip, baglanti, 1, 3
if kdip.eof then
kdip.addnew
kdip("ip")=ip
kdip("tekil_hit")="1"
kdip("cogul_hit")="1"
kdip.update
else
if session("mydesign")<>"evet" then
tekil=kdip("tekil_hit")
kdip("tekil_hit")=tekil + 1
end if
cogul=kdip("cogul_hit")
kdip("cogul_hit")=cogul + 1
kdip.update
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ZİYARETÇİ GÖNDERENLERİN TUTULDUĞU TABLOYA KAYIT BÖLÜMÜ
set kdreferrer=server.createobject("adodb.recordset")
sqlreferrer="select * from tbl_referrer where referrer='"& referrer &"'"
kdreferrer.open sqlreferrer, baglanti, 1, 3
if kdreferrer.eof then
kdreferrer.addnew
kdreferrer("referrer")=referrer
kdreferrer("tekil_hit")="1"
kdreferrer("cogul_hit")="1"
kdreferrer.update
else
if session("mydesign")<>"evet" then
tekil=kdreferrer("tekil_hit")
kdreferrer("tekil_hit")=tekil + 1
end if
cogul=kdreferrer("cogul_hit")
kdreferrer("cogul_hit")=cogul + 1
kdreferrer.update
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'GÜNLÜK HİTLERİN TUTULDUĞU TABLOYA KAYIT BÖLÜMÜ
tarih=date()
set kdgun=server.createobject("adodb.recordset")
sqlgun="select * from tbl_gunler where tarih like '"&tarih&"'"
kdgun.open sqlgun, baglanti, 1, 3
if kdgun.eof then
kdgun.addnew
kdgun("tarih")=tarih
kdgun("tekil_hit")="1"
kdgun("cogul_hit")="1"
kdgun.update
else
if session("mydesign")<>"evet" then
tekil=kdgun("tekil_hit")
kdgun("tekil_hit")=tekil + 1
end if
cogul=kdgun("cogul_hit")
kdgun("cogul_hit")=cogul + 1
kdgun.update
end if
set kdAyar=server.createobject("adodb.recordset")
sqlayar="select * from tbl_ayarlar"
kdayar.open sqlayar,baglanti, 1, 3
goster=kdAyar("goster")
if goster="evet" then
Toplam_tekil = kdsayfa("tekil_hit")
Bos = kdAyar("hane")-Len(Toplam_tekil)
%>
<%
end if
session("mydesign")="evet"
%>