<% dr=temizle(request.QueryString("dr")) sayfa=temizle(request.QueryString("sayfa")) select case sayfa case "" %>

<%if dr="resim" then%> <%end if%>

Resmin uzantısı GİF, JPG ve PNG olmalıdır. Resim boyut sınırı 3 MB'dır. Resim genişlik sınırı 3 MP.'dir. Resim yükseklik sınırı 3 MP.'dir. Eğer yüklemen başarısız olursa, daha küçük bir resim yüklemeyi dene.

<%case "kaydet"%> <% Set Upload = Server.CreateObject("Persits.Upload") Upload.OverwriteFiles = False Path = Server.MapPath(".") Count=UpLoad.SaveVirtual("Assets/Images/") if Count<>1 then response.Redirect("?dr=resim") end if Set File = Upload.Files(1) if File.ImageType<>"GIF" and File.ImageType<>"JPG" and File.ImageType<>"PNG" then File.Delete uzanti=uzanti+1 elseif File.Size<1024 or File.Size>3072000 then File.Delete buyukluk=buyukluk+1 elseif File.ImageWidth>3000 then File.Delete genislik=genislik+1 elseif File.ImageHeight>3000 then File.Delete yukseklik=yukseklik+1 else Set jpeg = Server.CreateObject("Persits.Jpeg") jpeg.Open( File.Path ) if jpeg.OriginalWidth>400 then jpeg.Width = 400 else jpeg.Width = jpeg.OriginalWidth end if jpeg.Height =jpeg.OriginalHeight * Jpeg.Width / jpeg.OriginalWidth Jpeg.Sharpen 1, 150 jpeg.Save Path & "\..\images\Icerik\" & File.ExtractFileName jpeg.Width = 100 if Jpeg.Height<127 then Jpeg.Height = 127 else jpeg.Height =jpeg.OriginalHeight * Jpeg.Width / jpeg.OriginalWidth end if Jpeg.Sharpen 1, 150 jpeg.Save Path & "\..\images\Icerik\s_" & File.ExtractFileName Session("KucukResim")="images/Icerik/s_"& File.ExtractFileName &"" Session("BuyukResim")="images/Icerik/"& File.ExtractFileName &"" end if if uzanti<>"" or buyukluk<>"" or genislik<>"" or yukseklik<>"" then response.Redirect("?dr=resim") else response.Redirect("tamamlandi.asp") end if %> <%end select%>