ASP Persits ile Dosya Yukleme
Merhaba, bir suredir ASP ile ilgili konular yazmadigimi farkettim ve ne yazabilirim diye dusunurken aklima FTP vb. programlari kullanmadan sunucuya nasil dosya yukleyebileceginizi anlatmaya karar verdim.
Bu ornekte size resim dosyasi yukleme ile ilgili. Yanliz dikkat edilmesi gereken noktalardan biri sunucunuzda Persits bileseninin bulunmasi gerekmektedir. Ayrica sunucunuzda "upload" klasorunu olusturup 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>
Dosya:<INPUT NAME="file" TYPE="file" size="25"><BR>
<INPUT TYPE="submit" Value="Kaydet">
</FORM>
Upload.asp
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
Resim Boyutlarini degistirmek isteyenler icin: Upload.asp
Set Upload = Server.CreateObject("Persits.Upload")
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Set File = Upload.Files("file")
resim_adi = "resim"& File.Ext
'resmin genisligi en fazla 640px eger genislik 640 tan buyukse otomatik olarak kucultuyor'
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
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Set File = Upload.Files("file")
resim_adi = "resim"& File.Ext
'resmin genisligi en fazla 640px eger genislik 640 tan buyukse otomatik olarak kucultuyor'
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
- personAyberk Atasay
- calendar_monthNovember 24, 2008
- categoryASP
- sharepaylaş
