<% 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 %>

RENKLERİ DÜZENLE

<% If QueryFilter(Request.QueryString("id")) = 2 Then %> İlginç Atasözleri <% ElseIf QueryFilter(Request.QueryString("id")) = 1 Then %> Bunları Biliyor muydunuz? <% End If %>

<% If QueryFilter(Request.QueryString("id")) = 2 Then %> Küçük bir delik, koca gemiyi batırır. <% ElseIf QueryFilter(Request.QueryString("id")) = 1 Then %> Dünyanın en kurak yeri Şili'dir. Yıllık ortalama yağış 0.1 mm <% End If %>

http://www.seyyahamca.com

Standart Font Rengi:

Başlık Fontu Rengi:

Tablo Arkaplan Rengi:

Hücre Arkaplan Rengi:

<% If QueryFilter(Request.QueryString("id")) = 1 Then %><script language="javascript" src="bunlari_kucuk.asp?ta=EAEAEA&ha=FBFBFB&sf=000000&bf=FF6600"></script><% ElseIf QueryFilter(Request.QueryString("id")) = 2 Then %><script language="javascript" src="atasozu_kucuk.asp?ta=EAEAEA&ha=FBFBFB&sf=000000&bf=FF6600"></script><% End If %>

<%=DikeyBol%>

ŞİFREMİ UNUTTUM

<%=YatayBol%>

R E K L A M

<%=YatayBol%>

ÜYE BİLGİLERİNİZİ GÜNCELLEYİN

<%=YatayBol%>

GÜVENLİ ÇIKIŞ

<%=Hr%>