implant


  Aktif KonularAktif Konular  Forum Üyelerini GösterÜye Listesi  Forumu AraArama  YardımYardım
  Kayıt OlKayıt Ol  GirişGiriş
ASP / ASP.NET
 ASPTurkiye.com Forum : ASP / ASP.NET
Konu Konu: Upload problemi Yanıt YazYeni Konu Gönder
Yazanlarda
Mesaj << Önceki Konu | Sonraki Konu >>
intrudercan
Yeni Üye
Yeni Üye


Kayıt Tarihi: 11-Aralık-2012
Gönderilenler: 1
Gönderen: 11-Aralık-2012 Saat 15:02 | Kayıtlı IP Alıntı intrudercan

Merhabalar

sorunum 2 farklı boyutta resim göendermek istiyorum.gönerceğim klasörde küçük resimler "_t" uzantılı kaydedilecek ve büyük resimler"B" isimli klasöre kaydedilecek ..Büyük boyutlu resimde bir problem yok fakat küçük boyutlu (_t) resimleri atamıyorum ..Nerede hata yapıyorum bir türlü çözemedim..Lütfen yardımcı olurmusunuz??

 

<%

 xpath = trim(request.querystring("path"))
 imgpath= "../galeri/"&xpath&"/b/"
 tnpath= "../galeri/"&xpath&"/"
 tn1 = imgid&"_t"

 On Error Resume Next
 Dim mySmartUpload
 Dim intCount
 
 Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
 mySmartUpload.AllowedFilesList = "jpg,jpe,gif,bmp,jpeg,BMP,JPG,JPE,GIF,JPEG"
 mySmartUpload.DenyPhysicalPath = True
 mySmartUpload.MaxFileSize = 2000000
 mySmartUpload.Upload
 if not mySmartUpload.Files("picture1").Ismissing then
  test = mySmartUpload.Files("picture1").filename
  if trim(test)<>"" then
'   response.write "test : " & test & "<br>boþ"
   imgid = replace(replace(replace(test," ",""),"_",""),"%20","")
'   response.write  "imgid : " & imgid & "<br>"
   imgid = mid(imgid,1,len(imgid) - 4)
'   response.write  "imgid : " & imgid & "<br>"
   orgimage = imgpath & imgid
   tn1 = imgid&"_t"
'   response.write  "orgimage : " & orgimage & "<br>"
'   response.write  "tn1 : " & tn1 & "<br>"

'   response.end
   mySmartUpload.Files("picture1").SaveAs(org image&".jpg")
  end if
   if instr(err.description,"Error 1015") then
'    errMsg="The extension of the file is not allowed to be uploaded."
    errMsg="Bu dosyayý yükleyemezsiniz. Dosya uzantýsý hatalý."
   elseif  instr(err.description,"Error 1105") or instr(err.description,"Error 1110") then
'    errMsg = "The maximum size by file is exceeded"
   elseif  instr(err.description,"Error 1205") then
'    errMsg = "Files' name is invalid or does not exist."
    errmsg = "Yüklemeye çalýþtýðýnýz dosya hatalý yada dosya seçilmemiþ."
   elseif instr(err.description,"Error 1010") then  
'    errMsg="The extension of the file is not allowed to be uploaded."
    errmsg="Bu dosyayý yükleyemezsiniz. Dosya uzantýsý hatalý."
   elseif err.description <> "" then
'    errMsg="There is a problem with the file. Please try again.<br>"&err.description
    errmsg ="Dosya ile ilgili bir hata oluþtu. Lütfen yeniden deneyiniz."
   else
'    errMsg = "Files Copied. "
    errmsg = "Dosya Kopyalandý."
    durum="ok"
   end if

'Thumbnail
  if durum = "ok" then
   x = Server.MapPath(orgimage&".jpg")
'   response.write x & "<br>"
'   response.end

   Set FSO = server.createobject("Scripting.FileSystemObject")
   if FSO.FileExists(x) then
    Set Jpeg = Server.CreateObject("Persits.Jpeg")
    Jpeg.Open x
    if Jpeg.OriginalHeight > 1024 or Jpeg.OriginalWidth > 1024 then
'     errMsg = "File not Copied. Please Check resolution. Maximum 1024x1024 files accepted."
     errmsg = "Dosya kopyalanamadý. Dosya boyutlarýný kontrol ediniz. Maksimum boyut : 1024x1024 pixeldir."
     result = false
    elseif Jpeg.Originalformat <>"JPG" and Jpeg.Originalformat<>"GIF" and Jpeg.Originalformat<>"PNG" and Jpeg.Originalformat<>"BMP" and Jpeg.Originalformat<>"TIF" then
'     errMsg = "File not Copied. This type of file is not allowed."
     errmsg = "Dosya kopyalanamadý. Bu dosya tipini kullanamazsýnýz."
     result = false
    else
     L = 340
     H = 225
     Jpeg.Width = L
     Jpeg.Height = H
     Jpeg.save server.mappath(orgimage&".jpg")
     result = true
    end if
    Jpeg.Open x
    L = 40
    H = 30
    Jpeg.Width = L
    Jpeg.Height = H
    Jpeg.save server.mappath(tnpath)& "/"&tn1 & ".jpg"
    result = true
    errmsg = "Dosya baþarýyla kopyalandý."
   else
'    errMsg = "File is not Copied."
    errmsg = "Dosya kopyalanamadý."
   end if
  end if
 end if
 session("errmsg") = errmsg
 response.redirect("imagegalery.asp")

%>

Yukarı Dön Göster intrudercan's Özellikler Diğer Mesajlarını Ara: intrudercan
 

Eğer Bu Konuya Cevap Yazmak İstiyorsanız İlk Önce Giriş
Eğer Kayıtlı Bir Kullanıcı Değilseniz İlk Önce Kayıt Olmalısınız

  Yanıt YazYeni Konu Gönder
Yazıcı Sürümü Yazıcı Sürümü

Forum Atla
Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Açık Forumda Anketlerde Oy Kullanma

Powered by Web Wiz Forums version 7.91
Copyright ©2001-2004 Web Wiz Guide

Bu Sayfa 0,1084 Saniyede Yüklendi.