<% 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 %> <% On Error Resume Next ID = Temizle(QueryFilter(Request.QueryString("id"))) %>
DÜNYADAN İLGİNÇ WEB SİTELERİ
<% If r()=True Then %>
<% End If %>
<% KayitSayisi = 9 If QueryFilter(Request.QueryString("s")) <> "" Then Sayfa = CInt(QueryFilter(Request.QueryString("s"))) Else Sayfa = 1 End If Set IlgSite = Bag.Execute("SELECT * FROM tblIlgincSiteler WHERE fldDurum=1 AND fldKirik=0 ORDER BY fldID DESC LIMIT " & (KayitSayisi*Sayfa)-(KayitSayisi) & "," & KayitSayisi) Set SQLTop = Bag.Execute("SELECT COUNT(*) FROM tblIlgincSiteler Where fldDurum=1 AND fldKirik=0") TopKayit = SQLTop(0) j=0 Do While Not IlgSite.EOF If j Mod 2 = 0 Then Renk = "#F2F2F2" Else Renk = "#FFFFFF" End If %> <% j=j+1:IlgSite.MoveNext: Loop %>
<% If CInt(TopKayit) > CInt(KayitSayisi) Then SayfaSayisi = CInt(TopKayit) / CInt(KayitSayisi) If InStr(1,SayfaSayisi,",",1) > 0 Then SayfaSayisi = CInt(Left(SayfaSayisi,InStr(1,SayfaSayisi,",",1))) + 1 If SayfaSayisi > 1 Then Response.Write "Devam: " TopKayit = SayfaSayisi TopSayfa = 10 Onceki = Sayfa - (TopSayfa/2) If Onceki <= 0 Then Onceki = 1 Sonraki = Sayfa + (TopSayfa/2) If Sonraki < TopSayfa Then Sonraki = TopSayfa If Sonraki > TopKayit Then Sonraki = TopKayit If Onceki <> 1 Then Response.Write "<< İlk | " For i=Onceki To Sayfa-1 Response.Write "" & i & " - " Next Response.write "[" & Sayfa & "] " If Sayfa <> TopKayit Then Response.Write "- " For i=Sayfa+1 To Sonraki Response.Write "" & i & " " If i <> Sonraki Then Response.Write "- " Next If Sonraki <> TopKayit Then Response.Write "| Son >> " End If End If %>
<%=DikeyBol%>
SİZ DE İLGİNÇ SİTE EKLEYİN
Site Adı:

Site Adresi:

Kısa Açıklama:
D O W N L O A D
  Seçme MP3'ler
360° İstanbul      
R E K L A M L A R

<%=Hr%>