<% sifre = Request.Form("sifre") islem = Request.Querystring("islem") onay = "aspdersi.com" Set RS = Server.Createobject("ADODB.Recordset") RS.open "select * from hit where gun = " & day(date()) & " and ay = " & month(date()) &" and sene = " & year(date()) &" ",zeus,1,3 if not rs.eof then hit = rs("hit") cogul = rs("cogul") gun = rs("gun") ay = rs("ay") sene = rs("sene") else hit = 0 cogul = 0 gun = day(date()) ay = month(date()) sene = year(date()) end if rs.close set rs = nothing Set rs = zeus.execute("DELETE * from hit where sene < "&year(date())&"") Set rs = zeus.execute("DELETE * from gelen where ay < "&month(date())&"") Set rs = zeus.execute("DELETE * from browser where ay < "&month(date())&"") Set rs = zeus.execute("DELETE * from sistem where ay < "&month(date())&"") Set RS = Server.Createobject("ADODB.Recordset") RS.open "select * from hit order by idgun asc",zeus,1,3 gunbaslama = rs("gun") aybaslama = rs("ay") senebaslama = rs("sene") rs.close set rs=nothing Set RS = Server.Createobject("ADODB.Recordset") RS.open "SELECT * FROM browser where gun = " & day(date()) & " and ay = " & month(date()) &" and sene = " & year(date()) &" ORDER BY hit DESC" ,zeus,1,3 if not rs.eof then browser = rs("browser") hitbrowser = rs("hit") cogulbrowser = rs("cogul") else browser = "-" hitbrowser = 0 cogulbrowser = 0 end if rs.close set rs = nothing Set RS = Server.Createobject("ADODB.Recordset") RS.open "SELECT * FROM sistem where gun = " & day(date()) & " and ay = " & month(date()) &" and sene = " & year(date()) &" ORDER BY hit DESC" ,zeus,1,3 if not rs.eof then sistem = rs("sistem") hitsistem = rs("hit") cogulsistem = rs("cogul") else sistem = "" hitsistem = 0 cogulsistem = 0 end if rs.close set rs = nothing Set RS = Server.Createobject("ADODB.Recordset") RS.open "SELECT * FROM gelen where gun = " & day(date()) & " and ay = " & month(date()) &" and sene = " & year(date()) &" ORDER BY hit DESC" ,zeus,1,3 if not rs.eof then site = rs("site") hitsite = rs("hit") cogulsite = rs("cogul") else site = "-" hitsite = 0 cogulsite = 0 end if rs.close set rs = nothing Set rs = zeus.execute("Select sum(hit) as gelenbuguntekil, sum(cogul) as gelenbuguncogul from gelen where ay = " & ay & " and sene = " & sene & " and gun = " & gun & "") gelenbuguntekil = rs("gelenbuguntekil") gelenbuguncogul = rs("gelenbuguncogul") Set rs = zeus.execute("Select sum(cogul) as gelenbuaycogul, sum(hit) as gelenbuaytekil from gelen where ay = " & ay & " and sene = " & sene & "") gelenbuaycogul = rs("gelenbuaycogul") gelenbuaytekil = rs("gelenbuaytekil") Set rs = zeus.execute("Select sum(cogul) as browserbuaycogul, sum(hit) as browserbuaytekil from browser where sene = " & sene & "") browserbuaycogul = rs("browserbuaycogul") browserbuaytekil = rs("browserbuaytekil") Set rs = zeus.execute("Select sum(cogul) as sistembuaycogul, sum(hit) as sistembuaytekil from sistem where sene = " & sene & "") sistembuaycogul = rs("sistembuaycogul") sistembuaytekil = rs("sistembuaytekil") Set rs = zeus.execute("Select sum(cogul) as buaycogul, sum(hit) as buaytekil from hit where ay = " & ay & " and sene = " & sene & "") buaycogul = rs("buaycogul") buaytekil = rs("buaytekil") Set rs = zeus.execute("Select sum(cogul) as busenecogul, sum(hit) as busenetekil from hit where sene = " & sene & "") busenecogul=rs("busenecogul") busenetekil=rs("busenetekil") Set rs = zeus.execute("Select sum(hit) as toplamhit1, sum(cogul) as toplamcogul1 from hit") toplamhit = rs("toplamhit1") toplamcogul = rs("toplamcogul1") ay = month(date()) if ay = 1 then ayisim = "Ocak" end if if ay = 2 then ayisim = "Şubat" end if if ay = 3 then ayisim = "Mart" end if if ay = 4 then ayisim = "Nisan" end if if ay = 5 then ayisim = "Mayıs" end if if ay = 6 then ayisim = "Haziran" end if if ay = 7 then ayisim = "Temmuz" end if if ay = 8 then ayisim = "Ağustos" end if if ay = 9 then ayisim = "Eylül" end if if ay = 10 then ayisim = "Ekim" end if if ay = 11 then ayisim = "Kasım" end if if ay = 12 then ayisim = "Aralık" end if gun = day(date()) sene = year(date()) %> Sayaç
<%Yönetici Menüsü%> <% if islem = "enter" or islem = "" then orta end if if islem = "bugunhitbilgisi" then orta2 end if if islem = "bugunreferansbilgisi" then orta3 end if if islem = "bugunbrowserbilgisi" then orta4 end if if islem = "bugunsistembilgisi" then orta5 end if if islem = "buayhitbilgisi" then orta6 end if if islem = "buayreferansbilgisi" then orta7 end if if islem = "buaybrowserbilgisi" then orta8 end if if islem = "buaysistembilgisi" then orta9 end if if islem = "busenehitbilgisi" then orta10 end if %> 
İstatistikler Ana Sayfa
Bugün Hit Bilgisi
Bugün Referans Bilgisi
Bugün Browser Bilgisi
Bugün Sistem Bilgisi
Bu Ay Hit Bilgisi
Bu Ay Referans Bilgisi
Bu Ay Browser Bilgisi
Bu Ay Sistem Bilgisi
Bu Yıl Hit Bilgisi








<% sub orta %>

Ana Sayfa

Genel İstatistikler

Bugünün Tarihi : <%=gun%>.<%=ay%>.<%=sene%>
Bugünün Tekil Hiti : <%=hit%>
Bugünün Çoğul Hiti : <%=cogul%>		 Bugünün En Çok Hit Gönderen Sitesi :
<%=site%>
Tekil Hiti : <%=hitsite%>
Çoğul Hiti : <%=cogulsite%>
Bugünün En Çok Kullanılan
Browserı : <%=browser%>
Tekil Hiti : <%=hitbrowser%>
Çoğul Hiti : <%=cogulbrowser%>
Sayacın Başlama Tarihi : <%=gunbaslama%>.<%=aybaslama%>.<%=senebaslama%>
Toplam Tekili : <%=toplamhit%>
Toplam Çoğulu : <%=toplamcogul%>

Bugünün En Çok Kullanılan
Sistemi : <%=sistem%>
Tekil Hiti : <%=hitsistem%>
Çogul Hiti : <%=cogulsistem%>

<% end sub %> <% sub orta2 %>

Bugünün Hit Bilgisi

<%=day(date())%> <%=ayisim%> <%=sene%> Tarihli Hit Bilgisi

Siteniz bu gün toplam <%=cogul%> çoğul kişi tarafından ziyaret edilmiştir. Bunlardan <%=hit%> tanesi tekil ziyaretçidir.

<% end sub %> <% sub orta3 %>

Bugünün Referans Bilgisi

<%=day(date())%> <%=ayisim%> <%=year(date())%> Tarihli Referans Bilgisi

Siteniz bu gün toplam <%=gelenbuguncogul%> çoğul kişi tarafından linklerle ziyaret edilmiştir. Bunlardan <%=gelenbuguntekil%> tanesi tekil ziyaretçidir.

<% Set RS = zeus.execute("Select * from gelen where ay = " & ay & " and sene = " & sene & " and gun = " & gun & " order by hit desc") Do While Not rs.eof Set AZ = zeus.execute("Select sum(hit) as gelentoplamsitehit from gelen where site = '" & rs("site") & "'") %> <% AZ.Close Set AZ = Nothing RS.Movenext Loop Set RS = Nothing %>
 Site  Tekil Hit  Çoğul Hit  Toplam Hit
 " target="_blank"><%=rs("site")%>  <%=rs("hit")%>  <%=rs("cogul")%>  <%=az("gelentoplamsitehit")%>
<% end sub %><% sub orta4 %>

Bugünün Browser Bilgisi

<%=day(date())%> <%=ayisim%> <%=year(date())%> Tarihli Browser Bilgisi

<% Set RS = zeus.execute("Select * from browser where ay = " & ay & " and sene = " & sene & " and gun = " & gun & " order by hit desc") Do While Not rs.eof Set AZ = zeus.execute("Select sum(hit) as browsertoplamsitehit from browser where browser = '" & rs("browser") & "'") %> <% AZ.Close Set AZ = Nothing RS.Movenext Loop Set RS = Nothing %>
 Browser  Tekil Hit  Çoğul Hit  Toplam Hit
 <%=rs("browser")%>  <%=rs("hit")%>  <%=rs("cogul")%>  <%=az("browsertoplamsitehit")%>
<% end sub %> <% sub orta5 %>

Bugünün Sistem Bilgisi

<%=day(date())%> <%=ayisim%> <%=year(date())%> Tarihli Sistem Bilgisi

<% Set RS = zeus.execute("Select * from sistem where ay = " & ay & " and sene = " & sene & " and gun = " & gun & " order by hit desc") Do While Not rs.eof Set AZ = zeus.execute("Select sum(hit) as sistemtoplamsitehit from sistem where sistem = '" & rs("sistem") & "'") %> <% AZ.Close Set AZ = Nothing RS.Movenext Loop Set RS = Nothing %>
 İşletim Sistemi  Tekil Hit  Çoğul Hit  Toplam Hit
 <%=rs("sistem")%>  <%=rs("hit")%>  <%=rs("cogul")%>  <%=az("sistemtoplamsitehit")%>
<% end sub %><% sub orta6 %>

Bu Ayın Hit Bilgisi

1 <%=ayisim%> - <%=day(date())%> <%=ayisim%> <%=sene%> Arası Günlere Göre Hit Bilgisi

Siteniz bu ay toplam <%=buaycogul%> çoğul kişi tarafından ziyaret edilmiştir. Bunlardan <%=buaytekil%> tanesi tekil ziyaretçidir.

<% Set RS = zeus.Execute("SELECT * FROM hit WHERE ay="&month(date())&" and sene="&year(date())&" order by gun ASC") Do While Not RS.eof yuzde = rs("hit")/(buaytekil/100) yuzdecogul = rs("cogul")/(buaycogul/100) %> <% RS.Movenext Loop Set RS = Nothing %>
Tarih Tekil Hit Çoğul Hit Tekil Yüzdesi Çoğul Yüzdesi
&ay=<%=rs("ay")%>&sene=<%=rs("sene")%>" ><%=rs("gun")%> <%=ayisim%> <%=rs("sene")%> <%=rs("hit")%> <%=rs("cogul")%>  %<%=left(yuzde,4)%>  %<%=left(yuzdecogul,4)%>
<% end sub %> <% sub orta7 %>

Bu Ayın Referans Bilgisi

1 <%=ayisim%> - <%=day(date())%> <%=ayisim%> <%=sene%> Arası Günlere Göre Referans Bilgisi

Siteniz bu ay toplam <%=gelenbuaycogul%> çoğul kişi tarafından linklerle ziyaret edilmiştir. Bunlardan <%=gelenbuaytekil%> tanesi tekil ziyaretçidir.

<% Set RS = zeus.Execute("SELECT * FROM gelen WHERE ay="&month(date())&" and sene="&year(date())&" order by gun asc") Do while not rs.eof if not guntarih = rs("gun") then guntarih = rs("gun") Set az = zeus.Execute("SELECT sum(hit) as gungelentoplamhit, sum(cogul) as gungelentoplamcogul FROM gelen WHERE gun="&guntarih&" and ay="&month(date())&" and sene="&year(date())&"") yuzdetekil = az("gungelentoplamhit")/(gelenbuaytekil/100) yuzdecogul = az("gungelentoplamcogul")/(gelenbuaycogul/100) %> <% az.close set az = nothing end if rs.movenext loop rs.close set rs=nothing %>
Tarih Tekil Gelen Çoğul Gelen Tekil Yüzdesi Çoğul Yüzdesi
&ay=<%=rs("ay")%>&sene=<%=rs("sene")%>" ><%=rs("gun")%> <%=ayisim%> <%=rs("sene")%> <%=az("gungelentoplamhit")%> <%=az("gungelentoplamcogul")%> %<%=left(yuzdetekil,4)%> %<%=left(yuzdecogul,4)%>
<% end sub %> <% sub orta8 %>

Bu Ayın Browser Bilgisi

1 <%=ayisim%> - <%=day(date())%> <%=ayisim%> <%=sene%> Arası Günlere Göre Browser Bilgisi

Siteniz bu ay toplam <%=browserbuaycogul%> çoğul browserla ziyaret edilmiştir. Bunlardan <%=browserbuaytekil%> tanesi tekil browserdır.

<% Set RS = zeus.execute("Select DISTINCT browser from browser where ay = " & ay & " and sene = " & sene & "") Do While Not rs.eof Set TR = zeus.execute("Select * from browser where ay = " & ay & " and sene = " & sene & " and browser = '"&rs("browser")&"' order by hit desc") Set AZ = zeus.execute("Select sum(hit) as browsertoplamsitehit from browser where browser = '"&rs("browser")&"'") %> <% AZ.Close Set AZ = Nothing RS.Movenext Loop Set RS = Nothing %>
 Browser  Tekil Hit  Çoğul Hit  Toplam Hit
 <%=rs("browser")%>  <%=tr("hit")%>  <%=tr("cogul")%>  <%=az("browsertoplamsitehit")%>


<% Set RS = zeus.Execute("SELECT * FROM browser WHERE ay="&month(date())&" and sene="&year(date())&" order by gun asc") Do while not rs.eof if not guntarih = rs("gun") then guntarih = rs("gun") Set az = zeus.Execute("SELECT sum(hit) as gunbrowsertoplamhit, sum(cogul) as gunbrowsertoplamcogul FROM browser WHERE gun="&guntarih&" and ay="&month(date())&" and sene="&year(date())&"") yuzdetekil = az("gunbrowsertoplamhit")/(browserbuaytekil/100) yuzdecogul = az("gunbrowsertoplamcogul")/(browserbuaycogul/100) %> <% az.close set az = nothing end if rs.movenext loop rs.close set rs=nothing %>
Tarih Tekil Hit Çoğul Hit Tekil Yüzdesi Çoğul Yüzdesi
&ay=<%=rs("ay")%>&sene=<%=rs("sene")%>" target="_blank"><%=rs("gun")%> <%=ayisim%> <%=rs("sene")%> <%=az("gunbrowsertoplamhit")%> <%=az("gunbrowsertoplamcogul")%> %<%=left(yuzdetekil,4)%> %<%=left(yuzdecogul,4)%>
<% end sub %> <% sub orta9 %>

Bu Ayın Sistem Bilgisi

1 <%=ayisim%> - <%=day(date())%> <%=ayisim%> <%=sene%> Arası Günlere Göre Sistem Bilgisi

Siteniz bu ay toplam <%=sistembuaycogul%> çoğul sistem sahibi ziyaret etmiştir. Bunlardan <%=sistembuaytekil%> tanesi tekil sistemdir.

<% Set RS = zeus.execute("Select DISTINCT sistem from sistem where ay = " & ay & " and sene = " & sene & "") Do While Not rs.eof Set TR = zeus.execute("Select * from sistem where ay = " & ay & " and sene = " & sene & " and sistem = '"&rs("sistem")&"' order by hit desc") Set AZ = zeus.execute("Select sum(hit) as sistemtoplamsitehit from sistem where sistem = '"&rs("sistem")&"' ") %> <% AZ.Close Set AZ = Nothing RS.Movenext Loop Set RS = Nothing %>
 Sistem  Tekil Hit  Çoğul Hit  Toplam Hit
 <%=rs("sistem")%>  <%=tr("hit")%>  <%=tr("cogul")%>  <%=az("sistemtoplamsitehit")%>


<% Set RS = zeus.Execute("SELECT * FROM sistem WHERE ay="&month(date())&" and sene="&year(date())&" order by gun asc") Do while not rs.eof if not guntarih = rs("gun") then guntarih = rs("gun") Set az = zeus.Execute("SELECT sum(hit) as gunsistemtoplamhit, sum(cogul) as gunsistemtoplamcogul FROM sistem WHERE gun="&guntarih&" and ay="&month(date())&" and sene="&year(date())&"") yuzdetekil = az("gunsistemtoplamhit")/(sistembuaytekil/100) yuzdecogul = az("gunsistemtoplamcogul")/(sistembuaycogul/100) %> <% az.close set az = nothing end if rs.movenext loop rs.close set rs=nothing %>
Tarih Tekil Hit Çoğul Hit Tekil Yüzdesi Çoğul Yüzdesi
&ay=<%=rs("ay")%>&sene=<%=rs("sene")%>" target="_blank"><%=rs("gun")%> <%=ayisim%> <%=rs("sene")%> <%=az("gunsistemtoplamhit")%> <%=az("gunsistemtoplamcogul")%> %<%=left(yuzdetekil,4)%> %<%=left(yuzdecogul,4)%>
<% end sub %> <% sub orta10 %>

Bu Yılın Hit Bilgisi

<%=year(date())-1%> - <%=year(date())%> Arası Aylara Göre Hit Bilgisi

Siteniz bu yıl toplam <%=busenecogul%> çoğul kişi tarafından ziyaret edilmiştir. Bunlardan <%=busenetekil%> tanesi tekil ziyaretçidir.

<% Set RS = zeus.Execute("SELECT * FROM hit order by ay asc") Do While Not RS.eof if not aybaglan = rs("ay") then aybaglan = rs("ay") if aybaglan = 1 then ayisim = "Ocak" end if if aybaglan = 2 then ayisim = "Şubat" end if if aybaglan = 3 then ayisim = "Mart" end if if aybaglan = 4 then ayisim = "Nisan" end if if aybaglan = 5 then ayisim = "Mayıs" end if if aybaglan = 6 then ayisim = "Haziran" end if if aybaglan = 7 then ayisim = "Temmuz" end if if aybaglan = 8 then ayisim = "Ağustos" end if if aybaglan = 9 then ayisim = "Eylül" end if if aybaglan = 10 then ayisim = "Ekim" end if if aybaglan = 11 then ayisim = "Kasım" end if if aybaglan = 12 then ayisim = "Aralık" end if Set AZ = Server.Createobject("ADODB.Recordset") AZ.open "SELECT sum(hit) as ayhittoplam , sum(cogul) as aycogultoplam FROM hit where ay="& aybaglan &" " ,zeus,1,3 yuzde = az("ayhittoplam")/(busenetekil/100) yuzdecogul = az("aycogultoplam")/(busenecogul/100) ayhittoplam = az("ayhittoplam") aycogultoplam = az("aycogultoplam") %> <% AZ.Close Set AZ = Nothing end if RS.Movenext Loop RS.Close Set RS = Nothing %>
 Ay  Tekil Hit  Çoğul Hit  Tekil Yüzdesi  Çoğul Yüzdesi
 <%=ayisim%>  <%=ayhittoplam%>  <%=aycogultoplam%>  %<%=left(yuzde,4)%>  %<%=left(yuzdecogul,4)%>
<% end sub %>