%
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
%>
<%
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
%>
<%
Else
Response.Write " Henüz veri bulunmamaktadır!"
End If
End Sub
%>
|
<%=DikeyBol%>
|
|
<%=Hr%>