<% if Session("oturum") ="yazar" then%> <% resim=guvenlik(request("resim"))%> <% dim upload dim count dim aciklama Set Upload = Server.CreateObject("Persits.Upload") Upload.OverwriteFiles = false ' bkz : Açiklama1 Upload.SetMaxSize 500000, True Upload.Save %> <%on error resume next Count = Upload.SaveToMemory dim DUzn 'DosyaUzantisi dim SunucuYeri dim YuklenecekDosya dim File resim=upload.form("resim") Set File = Upload.Files(1) %> <% If File.ImageType = "UNKNOWN" Then Response.Write "" File.Delete Response.End ElseIf File.ImageWidth > 400 Then Response.Write "" File.Delete Response.End ElseIf File.ImageHeight > 400 Then Response.Write "" File.Delete Response.End ElseIf File.Size > 250000 Then Response.Write "" File.Delete Response.End Else End if SunucuYeri = Server.MapPath("resim\")&"\" DUzn = UCase(Right(File.ExtractFileName, 4)) dim YuklenenDosyaninIsmi dim sql YuklenecekDosya = SunucuYeri & File.FileName File.SaveAs YuklenecekDosya YuklenenDosyaninIsmi = File.FileName response.write("") 'Açiklama 1: 'yüklenecek dosya ile ayni isimde bir dosya varsa 'false = üzerine yazilmaz dosyaismi(1) biçiminde yazar 'true = üzerine yazar %><%end if%>