<% db_veriyolu ="" & vtyolu & "/"& vtadi &"" set Baglanti = server.createobject("adodb.connection") Baglanti.open "provider=microsoft.jet.oledb.4.0;data source=" & Server.mappath(db_veriyolu & ".mdb") 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 %>