<%
'***************************************************
'Redkod Web Design. Bu sitete Redkod tarafýndan Kodlanmýþtýr.
'www.REDKOD.com Bilgi@REDKOD.COM
Set conn = Server.CreateObject("adodb.connection")
conn.open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath("DBase/Redkodv3.mdb")
%>
<%
Set redkod = Server.CreateObject("Adodb.Recordset")
ESQL = "Select * From ayar"
redkod.open ESQL,conn,1,3
%>
<%
Function SQL_Koru(sql_veri)
sql_veri = Trim(sql_veri)
saldiri = Array("%27", "*", "'", "<", """", ">", "-", "%", "/", "\", "+", "-") 'SQL Korumak için gereken karakterler
For i=0 to UBound(Saldiri)
sql_veri = Replace(sql_veri, Saldiri(i), "&#" & Asc(Saldiri(i)) & ";", 1, -1, 1)
Next
sql_veri = Replace(sql_veri, vbCrLf, "
")
sql_veri = Replace(sql_veri, Chr(13), "
")
sql_veri = Replace(sql_veri, "<br>", "
")
sql_veri = Replace(sql_veri, " ", " ")
sql_veri = Replace(sql_veri, Chr("196") & Chr("159"), "&#" & Asc("ð") & ";")
sql_veri = Replace(sql_veri, Chr("196") & Chr("158"), "&#" & Asc("Ð") & ";")
sql_veri = Replace(sql_veri, Chr("195") & Chr("188"), "&#" & Asc("ü") & ";")
sql_veri = Replace(sql_veri, Chr("195") & Chr("156"), "&#" & Asc("Ü") & ";")
sql_veri = Replace(sql_veri, Chr("197") & Chr("159"), "&#" & Asc("þ") & ";")
sql_veri = Replace(sql_veri, Chr("197") & Chr("158"), "&#" & Asc("Þ") & ";")
sql_veri = Replace(sql_veri, Chr("196") & Chr("177"), "&#" & Asc("ý") & ";")
sql_veri = Replace(sql_veri, Chr("196") & Chr("176"), "&#" & Asc("Ý") & ";")
sql_veri = Replace(sql_veri, Chr("195") & Chr("182"), "&#" & Asc("ö") & ";")
sql_veri = Replace(sql_veri, "[b]", "")
sql_veri = Replace(sql_veri, "[/b]", "")
sql_veri = Replace(sql_veri, "[i]", "")
sql_veri = Replace(sql_veri, "[/i]", "")
sql_veri = Replace(sql_veri, "[u]", "")
sql_veri = Replace(sql_veri, "[/u]", "")
sql_veri = Replace(sql_veri, "[:)]", "![]()
")
sql_veri = Replace(sql_veri, "[:P]", "![]()
")
sql_veri = Replace(sql_veri, "[:(]", "![]()
")
sql_veri = Replace(sql_veri, "[:D]", "![]()
")
sql_veri = Replace(sql_veri, "[;)]", "![]()
")
sql_veri = Replace(sql_veri, "[8D]", "![]()
")
sql_veri = Replace(sql_veri, "[):)]", "![]()
")
sql_veri = Replace(sql_veri, "[:I]", "![]()
")
sql_veri = Replace(sql_veri, "[:o)]", "![]()
")
sql_veri = Replace(sql_veri, "[P(]", "![]()
")
sql_veri = Replace(sql_veri, "[8)]", "![]()
")
sql_veri = Replace(sql_veri, "[(D]", "![]()
")
sql_veri = Replace(sql_veri, "[:@]", "![]()
")
sql_veri = Replace(sql_veri, "[+P]", "![]()
")
sql_veri = Replace(sql_veri, "[:)9]", "![]()
")
sql_veri = Replace(sql_veri, "[:II]", "![]()
")
sql_veri = Replace(sql_veri, "[:(6]", "![]()
")
sql_veri = Replace(sql_veri, "[:S]", "![]()
")
sql_veri = Replace(sql_veri, "[/link]", "")
sql_veri = Replace(sql_veri, "[link=", "")
sql_veri = Replace(sql_veri, "[email=", "")
sql_veri = Replace(sql_veri, "[list]", "")
sql_veri = Replace(sql_veri, "[/list]", "")
sql_veri = Replace(sql_veri, "sik", "***")
sql_veri = Replace(sql_veri, "amýna", "***")
sql_veri = Replace(sql_veri, "piç", "***")
sql_veri = Replace(sql_veri, "ibne", "***")
sql_veri = Replace(sql_veri, "þerefsiz", "***")
sql_veri = Replace(sql_veri, "fuck", "***")
sql_veri = Replace(sql_veri, "orospu", "***")
sql_veri = Replace(sql_veri, Chr("195") & Chr("150"), "&#" & Asc("Ö") & ";")
sql_veri = Replace(sql_veri, Chr("195") & Chr("167"), "&#" & Asc("ç") & ";")
SQL_Koru = Replace(sql_veri, Chr("195") & Chr("135"), "&#" & Asc("Ç") & ";")
End Function
%>
<%
Function cevir(data)
data = Replace (data ,"http://www.youtube.com/watch?v=","",1,-1,1)
data = Replace (data ,"ý","i",1,-1,1)
data = Replace (data ,"ð","g",1,-1,1)
data = Replace (data ,"ü","u",1,-1,1)
data = Replace (data ,"þ","s",1,-1,1)
data = Replace (data ,"ö","o",1,-1,1)
data = Replace (data ,"ç","c",1,-1,1)
data = Replace (data ,"I","i",1,-1,1)
data = Replace (data ,"Ð","g",1,-1,1)
data = Replace (data ,"Ü","u",1,-1,1)
data = Replace (data ,"Þ","s",1,-1,1)
data = Replace (data ,"Ý","i",1,-1,1)
data = Replace (data ,"Ç","c",1,-1,1)
data = Replace (data ,"Ö","o",1,-1,1)
data = Replace (data ," ","-",1,-1,1)
data = Replace (data ,">","",1,-1,1)
data = Replace (data ,"<","",1,-1,1)
data = Replace (data ,"*","",1,-1,1)
data = Replace (data ,"%","",1,-1,1)
data = Replace (data ,"'","",1,-1,1)
data = Replace (data ,"/","",1,-1,1)
data = Replace (data ,"\","",1,-1,1)
data = Replace (data ,".","",1,-1,1)
data = Replace (data ,"","",1,-1,1)
data = Replace (data,",","")
data = Replace (data,"?","")
data = Replace (data,"[","")
data = Replace (data,"]","")
data = Replace (data,"!","")
data = Replace (data,"(","")
data = Replace (data,")","")
data = Replace (data,":","")
data = Replace (data ,"`","")
data = Replace (data ,"=","")
data = Replace (data ,"&","")
data = Replace (data ,"%","")
data = Replace (data ,"#","")
data = Replace (data ,"And","")
data = Replace (data ,Chr(34),"")
data = Replace (data ,Chr(39),"")
cevir=data
End Function
%>