<% Function QueryFilter(Str) Str = Replace(Str, "*", "[INJ]",1,-1,1) Str = Replace(Str, "=", "[INJ]",1,-1,1) Str = Replace(Str, "<", "[INJ]",1,-1,1) Str = Replace(Str, ">", "[INJ]",1,-1,1) Str = Replace(Str, ";", "[INJ]",1,-1,1) Str = Replace(Str, "(", "[INJ]",1,-1,1) Str = Replace(Str, ")", "[INJ]",1,-1,1) Str = Replace(Str, "+", "[INJ]",1,-1,1) Str = Replace(Str, "#", "[INJ]",1,-1,1) Str = Replace(Str, "'", "[INJ]", 1, -1, 1) Str = Replace(Str, "&", "[INJ]", 1, -1, 1) Str = Replace(Str, "%", "[INJ]", 1, -1, 1) Str = Replace(Str, "?", "[INJ]", 1, -1, 1) Str = Replace(Str, "´", "[INJ]", 1, -1, 1) Str = Replace(Str, ",", "[INJ]",1,-1,1) Str = Replace(Str, "UNION", "[INJ]",1,-1,1) Str = Replace(Str, "SELECT", "[INJ]",1,-1,1) Str = Replace(Str, "WHERE", "[INJ]",1,-1,1) Str = Replace(Str, "LIKE", "[INJ]",1,-1,1) Str = Replace(Str, "FROM", "[INJ]",1,-1,1) Str = Replace(Str, "UPDATE", "[INJ]",1,-1,1) Str = Replace(Str, "INSERT", "[INJ]",1,-1,1) Str = Replace(Str, "ORDER", "[INJ]",1,-1,1) Str = Replace(Str, "GROUP", "[INJ]",1,-1,1) Str = Replace(Str, "ALTER", "[INJ]",1,-1,1) Str = Replace(Str, "ADD", "[INJ]",1,-1,1) Str = Replace(Str, "MODIFY", "[INJ]",1,-1,1) Str = Replace(Str, "RENAME", "[INJ]",1,-1,1) Str = Replace(Str, Chr(39), "[INJ]", 1, -1, 1) If InStr(1,Str,"[INJ]",1) then Response.Redirect "Default.asp" end if QueryFilter = Str End Function %>
TOPLİST
<% ID = Temizle(B64Decode(QueryFilter(Request.QueryString("id")))) Referer = Request.ServerVariables("HTTP_REFERER") Set Hit = Bag.Execute("SELECT * FROM tblToplist WHERE fldHitTarihi='" & Year(Date) & "-" & Month(Date) & "-" & Day(Date) & "' AND fldOnay=1") If Not Hit.EOF Then 'Bugünün hitleri Call HitEkle() Call HitleriYazdir() Else 'Gün bitmiş, bilgileri yedekle ve bir sonraki güne toplisti hazırla Set Tumu = Bag.Execute("SELECT * FROM tblToplist WHERE fldOnay=1 ORDER BY fldTekil DESC, fldCogul DESC, fldToplamTekil DESC, fldToplamCogul DESC, fldAlinanHit DESC, fldHit DESC, fldToplamAlinanHit DESC, fldToplamHit DESC") If Not Tumu.EOF Then i=1 Do While Not Tumu.EOF Set Sifirla = Bag.Execute("UPDATE tblToplist SET fldSonSira=" & i & ", fldToplamHit=fldToplamHit+fldHit, fldToplamAlinanHit=fldToplamAlinanHit+fldAlinanHit, fldDunHit=fldHit, fldDunAlinanHit=fldAlinanHit, fldToplamTekil=fldToplamTekil+fldTekil, fldToplamCogul=fldToplamCogul+fldCogul, fldDunTekil=fldTekil, fldDunCogul=fldCogul, fldTekil=0, fldCogul=0, fldHit=0, fldAlinanHit=0, fldHitTarihi='" & Year(Date) & "-" & Month(Date) & "-" & Day(Date) & "', fldIP='', fldIP2='' WHERE fldID=" & Tumu("fldID")) i = i + 1: Tumu.MoveNext Loop End If Call HitEkle() Call HitleriYazdir() End If Sub HitEkle() If ID <> "" And Referer <> "" Then Bol = Split(ID,"|",-1,1) If InStr(8,Referer,"/",1) > 0 Then Referer = Left(Referer,InStr(8,Referer,"/",1)-1) Set Kontrol = Bag.Execute("SELECT * FROM tblToplist WHERE fldID=" & Bol(0) & " AND fldSiteAdresi='" & Bol(1) & "' AND fldSiteAdresi LIKE '" & Referer & "%'") If Not Kontrol.EOF Then If InStr(1,Kontrol("fldIP"),Request.ServerVariables("REMOTE_ADDR"),1) = 0 Then tmpIP = Kontrol("fldIP") & "|" & Request.ServerVariables("REMOTE_ADDR") Set Guncelle = Bag.Execute("UPDATE tblToplist SET fldAlinanHit=fldAlinanHit+1, fldIP='" & tmpIP & "' WHERE fldID=" & Kontrol("fldID")) End If End If Response.Write "" End If End Sub Sub HitleriYazdir() Set Siralama = Bag.Execute("SELECT * FROM tblToplist WHERE fldOnay=1 ORDER BY fldTekil DESC, fldCogul DESC, fldToplamTekil DESC, fldToplamCogul DESC, fldAlinanHit DESC, fldHit DESC, fldToplamAlinanHit DESC, fldToplamHit DESC") If Not Siralama.EOF Then %> <% j=1 Do While Not Siralama.EOF If j Mod 2 = 0 Then Bg = "#FFFFFF" Else Bg = "#FFFCEC" End If %> " style="display:none"> <% j=j+1: Siralama.MoveNext Loop %>
S D B Site Adı Tekil Çoğul
<%=j%>- <% If Siralama("fldSonSira") < j And Siralama("fldSonSira") <> 0 Then Response.Write "" If Siralama("fldSonSira") = j Then Response.Write "" If Siralama("fldSonSira") > j And Siralama("fldSonSira") <> 0 Then Response.Write "" If Siralama("fldSonSira") = 0 Then Response.Write "" %> " title="<%=Siralama("fldSiteAdi")%> sitesinin genel toplist bilgilerine ulaşmak için tıklayın..."> " id="Download" target="_blank" onmouseover="document.getElementById('b_<%=Siralama("fldID")%>').style.display=''" onmouseout="divGizle2('b_<%=Siralama("fldID")%>')"><%=Siralama("fldSiteAdi")%> <%=Siralama("fldTekil")%> <%=Siralama("fldCogul")%>
<%=Siralama("fldAciklama")%>
<% Else Response.Write "
Henüz veri bulunmamaktadır!

" End If End Sub %>

<%=DikeyBol%>
<%=Hr%>