uploade billede og gemme original og resized thumb med aspimage

Bruge Macromedia Dreamweaver , Under behavouirs....

kan man få en nærmere forklaring?

yep...har du Dreamweaver... ?

ja, men jeg skulle gerne have et eksempel hvor der ikke bruges dreamweaver. skal bare bruge noget kode...

http://www.hotscripts.com/ASP/Scripts_and_Components/Image_Galleries/index.html

det er jo ikke med aspimage vel?

Upload er en ting. Det kan du finde en del eksempler her på siten.
Jeg har tidlgier gentagne gange skrevet om, hvodan man laver en thumbnail mht. ASPImage. Der er sgu ingen grund til at gemme den thumbnail - lav den på stedet. Det er det, du skal bruge ASPImage.
Søg her på siten og du skal finde.

Henrik

kig f.eks. her

http://www.eksperten.dk/spm/295212

hvad mente du med at man skal lave thumbnailen istedet for at gemme den?

min kode er således nu, men det virker ikke...??


Dim intCount

  On Error Resume Next
  '  Object creation
  Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
  'Max størrelse i bytes
  'upload.MaxFileSize = 50000
 
  'Upload filerne til memory
  upload.Upload


  'brugernavn = upload.form("navn")
  For each file In upload.Files
    If not file.IsMissing Then
      'filnavn = "/img/img_chancer/" & brugernavn & "." & file.FileExt
           
      intCount = upload.Save("/newsite/pics/profilepics/large/")
      filnavn = file.filename
     
 
    end if
  next
 
  For each file In upload.Files
 
        ' resize billede
      ' opretter en instans af ASPImage objektet
Set Image = Server.CreateObject("AspImage.Image")

' loader billedet image.jpg fra mappen Billeder
Image.LoadImage(Server.MapPath("pics/profilepics/large/" & filnavn & ""))

'request.servervariables("APPL_PHYSICAL_PATH") & "newsite\img\asses\

' definerer sti og navn for det nye billede
strthumb = (Server.MapPath("pics/profilepics/small/" & filnavn &""))

Image.FileName= strThumb


'Dim strOriginal, strThumb, ResizedX,ResizedY
'strOriginal = strOrigImgFullPath & strOrigImg
'strThumb = strThumbFullPath & strThumbName

'load original image
'MyImage.LoadImage strOriginal


'Resize factor
ResizedX = 75
Image.GetImageFileSize strOriginal, X, Y
Image.MaxX = X
Image.MaxY = Y

'maintain aspect ratio
ResizedY = (ResizedX / Image.MaxX) * Image.MaxY
Image.ResizeR ResizedX, ResizedY


Image.SaveImage

set image = nothing   
 
next 

  '  Trap errors
  If Err Then
    Response.Write("<b>Wrong selection : </b>" & Err.description)
  End If

set upload = nothing

er løst..

Hm - hvem gider snart hjælpe. løsning finder du i det link, jeg gav dig
ASPImage force er netop, at det kan danne thumbnail on the fly og i thumbnailen lave en link til det rigtige billede.

Du skulle vel ikke ligge ind med løsningen, og smide den i denne tråd, da det er en høflighed oven for andre at smide løsningen her inde når man selv finder den, da mange andre har samme problem som dig

/cdc