Merhaba, bir süredir ASP ile ilgili konular yazmadığımı farkettim ve ne yazabilirim diye düşünürken aklıma FTP vb. programları kullanmadan sunucuya nasıl dosya yükleyebileceğinizi anlatmaya karar verdim.
Bu örnekte size resim dosyası yükleme ile ilgili. Yanlız dikkat edilmesi gereken noktalardan biri sunucunuzda Persits bileşeninin bulunması gerekmektedir. Ayrıca sunucunuzda "upload" klasörünü oluşturup yazma izinlerinin verilmesi gerekmektedir.
Upload.htm
<FORM METHOD="Post" ENCTYPE="multipart/form-data" ACTION="Upload.asp">
Dosya:<INPUT NAME="file" TYPE="file" size="25"><BR>
<INPUT TYPE="submit" Value="Kaydet">
</FORM>
Set Upload = Server.CreateObject("Persits.Upload")
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Set File = Upload.Files("file")
resim_adi = "resim"& File.Ext
Jpeg.Save Server.Mappath("upload") & "" & resim_adi
File.Delete
Set Upload = Server.CreateObject("Persits.Upload")
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Set File = Upload.Files("file")
resim_adi = "resim"& File.Ext
'resmin genişliği en fazla 640px eğer genişlik 640 tan büyükse otomatik olarak küçültüyor'
If Jpeg.OriginalWidth > 640 then
Jpeg.Width = 640
Jpeg.Height = (Jpeg.OriginalHeight * 640) / Jpeg.OriginalWidth
End If
Jpeg.Quality = 70
Jpeg.Save Server.Mappath("upload") & "" & resim_adi
File.Delete