Bilgisayarcı
Çalışkan Üye
- Katılım
- 10 Mar 2018
- Mesajlar
- 200
- Beğeniler
- 0
Merhaba arkadaşlar. hazırlamakta olduğum bir sitenin yönetim panelinde resim yükleme işlemi yapacağım resim yüklemek veya boyutlandırmakta hiçbir sorun yok. ancak shell dosyalarının yüklenmesini engelleyemedim.
Yani Normal resimleri yükleyip istediğim boyutlara getirerek kaydediyorum ama uzantısı jpg yada gif olarak kaydedilmiş kod dosyalarını da yüklüyor. normalde eğer dosya tipi bilinmeyen ise bu bir resim dosyası değil hatası vermesi gerekirken shell dosyasını yiyor. hatayı es geçiyor. abuk subuk bir sorun çözemedim gitti. yardımlarınızı bekliyorum. kullandığım resim yükleme kodları ise şunlar:
Yani Normal resimleri yükleyip istediğim boyutlara getirerek kaydediyorum ama uzantısı jpg yada gif olarak kaydedilmiş kod dosyalarını da yüklüyor. normalde eğer dosya tipi bilinmeyen ise bu bir resim dosyası değil hatası vermesi gerekirken shell dosyasını yiyor. hatayı es geçiyor. abuk subuk bir sorun çözemedim gitti. yardımlarınızı bekliyorum. kullandığım resim yükleme kodları ise şunlar:
PHP:
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.CodePage = 65001
Upload.OverwriteFiles = False
On Error Resume next
Path = Server.Mappath("temp")
Path2 = Server.Mappath("../upload/resimler")
Count = Upload.Save(Path)
Set File = Upload.Files(1)
If File.ImageType <> "UNKNOWN" Then
Set jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.Open( File.Path )
L2 = 150
H2 = 210
Jpeg.Width = L2
Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth
kenarpayii = Round(Int((Jpeg.Height-H2)/2))
Jpeg.Crop 0, kenarpayii, L2, H2+kenarpayii
Jpeg.PNGOutput = True
isim = upload.Form("isim")
fotoisim = seo(isim)
uzanti = File.Ext
Dim resim_adi
resim_adi= fotoisim & uzanti
SavePath = Path2 & "/" & resim_adi
jpeg.Save SavePath
Else
Response.Write("Resim Dosyası Değil")
End if
%>
