Gönderen: 11-Aralık-2012 Saat 15:02 | Kayıtlı IP

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")

%>