<%Session("AdminLogin") = True%>
SAYAC ISTATISTIKLERI

Günlük Hit Dökümü | Hit Gönderen Siteler | Günlük Gelen Dökümü | Ip Dökümü | Yasaklilar | Yasaklanacak Ip Ekle |

5 gün önceki ipleri sil 5 gün önceki Günlük Siteleri Sil 1 ay önceki hit gönderenleri Sil

<% Response.Buffer = True sayac=request.querystring("sayac") If sayac="" Or sayac="gunhit" Then sor="select * from say_hit order by id desc " efkan.Open sor,Sur,1,3 adet=efkan.recordcount if efkan.eof or efkan.bof then bilgiver1("Kayit Bulunamadi.") else shf = Request.QueryString("shf") if shf="" then shf=1 end If %> GÜN HITLERI <% efkan.pagesize =50 efkan.absolutepage = shf sayfa = efkan.pagecount for i=1 to efkan.pagesize if efkan.eof then exit For if renk mod 2 then bgcolor = bgcolor1 else bgcolor = bgcolor2 end If %> <% renk=renk + 1 efkan.movenext next efkan.close %>

Tarih	Tekil	Çogul
<%= efkan("gun")%>	<%= efkan("tekil")%>	<%= efkan("cogul")%>

Sayfalar : <%ssay=1 for y=1 to sayfa if ssay mod 20 = 0 then response.write "
" end If if y=cint(shf) then response.write "["&y&"]" else response.write "["&y&"]" end If ssay=ssay+1 Next end if End If '/////////////////////// HIT GÖNDERENLERIN TOPLAM SAYACI ///////////////////////// If sayac="saysite" Then sor="select * from say_site order by hit desc " efkan.Open sor,Sur,1,3 adet=efkan.recordcount if efkan.eof or efkan.bof then bilgiver1("Kayit Bulunamadi.") else shf = Request.QueryString("shf") if shf="" then shf=1 end if %> HIT GÖNDEREN SITELER <% efkan.pagesize =50 efkan.absolutepage = shf sayfa = efkan.pagecount for i=1 to efkan.pagesize if efkan.eof then exit for if renk mod 2 then bgcolor = bgcolor1 else bgcolor = bgcolor2 end If %> <% renk=renk+1 efkan.movenext next efkan.close%>

En son	Hit	Hit Gönderen
<%= efkan("gun")%>	<%= efkan("hit")%>	" target="_blank"><%= efkan("site_name")%>

Sayfalar : <%ssay=1 for y=1 to sayfa if ssay mod 20 = 0 then response.write "
" end If if y=cint(shf) then response.write "["&y&"]" else response.write "["&y&"]" end If ssay=ssay+1 Next end if End If '/////////////////////// GÜNLÜK GELENLERIN DÖKÜMÜ ///////////////////////// If sayac="gunluk" Then sor="select * from site_gel order by id desc " efkan.Open sor,Sur,1,3 adet=efkan.recordcount if efkan.eof or efkan.bof then bilgiver1("Kayit Bulunamadi.") else shf = Request.QueryString("shf") if shf="" then shf=1 end if %> GÜNLÜK HIT GÖNDERENLERIN DÖKÜMÜ <% efkan.pagesize =50 efkan.absolutepage = shf sayfa = efkan.pagecount for i=1 to efkan.pagesize if efkan.eof then exit For if renk mod 2 then bgcolor = bgcolor1 else bgcolor = bgcolor2 end If %> <% renk=renk+1 efkan.movenext next efkan.close %>

Gün	Hit	Url
<%= efkan("gun")%>	<%= efkan("hit")%>	" target="_blank"><%= efkan("site_gel")%>

Sayfalar : <%'ssay=0 for y=1 to sayfa if ssay mod 10 = 0 then response.write "
" end If if y=cint(shf) then response.write "["&y&"]" else response.write "["&y&"]" end If ssay=ssay+1 Next End If end if '/////////////////////// IP DÖKÜMÜ ///////////////////////// If sayac="ip" Then sor="select * from say_ip order by id desc " efkan.Open sor,Sur,1,3 adet=efkan.recordcount if efkan.eof or efkan.bof then bilgiver1("Kayit Bulunamadi.") else shf = Request.QueryString("shf") if shf="" then shf=1 end if %> ZIYARET EDEN IP NUMARALARI <% efkan.pagesize =50 efkan.absolutepage = shf sayfa = efkan.pagecount for i=1 to efkan.pagesize if efkan.eof then exit For if renk mod 2 then bgcolor = bgcolor1 else bgcolor = bgcolor2 end If %> <% renk=renk+1 efkan.movenext next efkan.close %>

En Son	Hit	Ip No
<%= efkan("vakit")%>	<%= efkan("hit")%>	<%= efkan("ip_number")%>

Sayfalar : <%'ssay=0 for y=1 to sayfa if ssay mod 10 = 0 then response.write "
" end If if y=cint(shf) then response.write "["&y&"]" else response.write "["&y&"]" end If ssay=ssay+1 Next End If end if If sayac="iptemizle" Then sor="SELECT * FROM say_ip " efkan.Open sor,Sur,1,3 do while not efkan.eof zaman=datediff("d",efkan("vakit"),now) if zaman > 5 then sor="DELETE from say_ip WHERE id = "&efkan("id")&" " efkan1.Open sor,Sur,1,3 end if efkan.movenext Loop efkan.Close response.redirect "sayacdefault.asp?sayac=ip" end If If sayac="gunluktemizle" Then sor="SELECT * FROM site_gel " efkan.Open sor,Sur,1,3 do while not efkan.eof zaman=datediff("d",efkan("gun"),now) ' 1 ay öncesi if zaman > 5 then sor="DELETE from site_gel WHERE id = "&efkan("id")&" " efkan1.Open sor,Sur,1,3 end if efkan.movenext Loop efkan.Close response.redirect "sayacdefault.asp?sayac=gunluk" end if If sayac="saysitetemizle" Then sor="SELECT * FROM say_site " efkan.Open sor,Sur,1,3 do while not efkan.eof zaman=datediff("m",efkan("gun"),now) ' 1 ay öncesi if zaman > 1 then sor="DELETE from say_site WHERE id = "&efkan("id")&" " efkan1.Open sor,Sur,1,3 end if efkan.movenext Loop efkan.Close response.redirect "sayacdefault.asp?sayac=saysite" end if '//////// YASAKLILAR if sayac="yasakli" then %> Yasaklanacak Ip Ekle

<% sor = "Select * from yasakli order by id desc " efkan.Open sor,Sur,1,3 adet=efkan.recordcount if efkan.eof or efkan.bof then response.write "Yasakli Yok" Else shf = Request.QueryString("shf") if shf="" then shf=1 end If %> YASAKLI IP IPLER
<% efkan.pagesize =50 efkan.absolutepage = shf sayfa = efkan.pagecount for i=1 to efkan.pagesize if efkan.eof then exit For if renk mod 2 then bgcolor = bgcolor1 else bgcolor = bgcolor2 end If %> <% renk=renk+1 efkan.movenext Next efkan.close%>

id	Tarih	Ip	Islem
<%=efkan("id")%>	<%=efkan("tarih")%>	<%=efkan("ip")%>	">Sil

Sayfalar : <%'ssay=0 for y=1 to sayfa if ssay mod 10 = 0 then response.write "
" end If if y=cint(shf) then response.write "["&y&"]" Else response.write "["&y&"]" end If ssay=ssay+1 next end if End If '////////////////////////// YASAKLI EKLE ///////////////////////////////// If sayac="yasakliekle" Then %>

Tüm Yasaklilar

Yasaklanacak Ip

<% if request.form("ip")="" then else sor = "Select * from yasakli " efkan.Open sor,Sur,1,3 efkan.AddNew efkan("ip") =Trim(request.form("ip")) efkan("tarih") =Now() efkan.Update efkan.close Response.redirect "sayacdefault.asp?sayac=yasakli" end if end if '//////////////////YASAKLI SIL if sayac="yasaklisil" then id=request.querystring("id") sor="DELETE from yasakli WHERE id = "&id&" " efkan.Open sor,sur,1,3 Response.redirect "sayacdefault.asp?sayac=yasakli" End If Set efkan1=Nothing Set efkan=Nothing %>