<% Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" session.LCID=1055 Session.CodePage = 1254 %> <% set cilem = server.createobject("adodb.connection") cilem.open("driver={microsoft access driver (*.mdb)}; dbq=" & Server.MapPath(""&veritabaniyolu&"")),"*****","*****" Set rs=Server.CreateObject("Adodb.Recordset") %> <%Function guvenlik(cilemnet) cilemnet = Replace (cilemnet ,"--","",1,-1,1) cilemnet = Replace (cilemnet ,"`","",1,-1,1) cilemnet = Replace (cilemnet ,"=","",1,-1,1) cilemnet = Replace (cilemnet ,"&","",1,-1,1) cilemnet = Replace (cilemnet ,"%","",1,-1,1) cilemnet = Replace (cilemnet ,"!","",1,-1,1) cilemnet = Replace (cilemnet ,"#","",1,-1,1) cilemnet = Replace (cilemnet ,"<","",1,-1,1) cilemnet = Replace (cilemnet ,">","",1,-1,1) cilemnet = Replace (cilemnet ,"*","",1,-1,1) cilemnet = Replace (cilemnet ,"'","",1,-1,1) cilemnet = Replace (cilemnet ,"Chr(34)","",1,-1,1) cilemnet = Replace (cilemnet ,"Chr(39)","",1,-1,1) cilemnet = Replace (cilemnet ,"select","",1,-1,1) cilemnet = Replace (cilemnet ,"join","",1,-1,1) cilemnet = Replace (cilemnet ,"where","",1,-1,1) cilemnet = Replace (cilemnet ,"insert","",1,-1,1) cilemnet = Replace (cilemnet ,"delete","",1,-1,1) cilemnet = Replace (cilemnet ,"update","",1,-1,1) cilemnet = Replace (cilemnet ,"like","",1,-1,1) cilemnet = Replace (cilemnet ,"drop","",1,-1,1) cilemnet = Replace (cilemnet ,"create","",1,-1,1) cilemnet = Replace (cilemnet ,"modify","",1,-1,1) cilemnet = Replace (cilemnet ,"rename","",1,-1,1) cilemnet = Replace (cilemnet ,"alter","",1,-1,1) cilemnet = Replace (cilemnet ,"cast","",1,-1,1) guvenlik=cilemnet End Function %>