<% db_yol ="../" & vtyolu & "/"& vtadi &"" set Baglanti = server.createobject("adodb.connection") Baglanti.open "provider=microsoft.jet.oledb.4.0;data source=" & Server.mappath(db_yol & ".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, "<br>", "
") sql_veri = Replace(sql_veri, " ", "  ") sql_veri = Replace(sql_veri, "sIk", "***") sql_veri = Replace(sql_veri, "amina", "***") 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", "***") End Function %>