Det her har jeg klip/klistret fra de to tuts og tilføjet din kode:
... Upload.SetMaxSize 10048576 ' Limit files to 1MB Count = Upload.Save(Server.MapPath("/myimages")) 'Ny kode tilføjet For Each File in Upload.Files If File.ImageType <> "UNKNOWN" Then ' Create instance of AspJpeg object Set jpeg = Server.CreateObject("Persits.Jpeg") ' Open uploaded file jpeg.Open( File.Path ) ' New width L = 100 ' Resize, preserve aspect ratio Jpeg.Width = L Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth 'Path to save thumb in. Server.MapPath("/myimages") SavePath = Server.MapPath("/myimages") & "\small_" & File.ExtractFileName ' AspJpeg always generates thumbnails in JPEG format. ' If the original file was not a JPEG, append .JPG ext. If UCase(Right(SavePath, 3)) <> "JPG" Then SavePath = SavePath & ".jpg" End If jpeg.Save SavePath end if next 'Ny kode slut %>
<% If Err <> 0 Then %> ...
Synes godt om
Slettet bruger
16. november 2006 - 10:26#6
Det virker bare super fedt... Uden problemer overhovedet og laver en fin thumbnail... Kanon.. Jeg siger mange tak for hjælpen.. :-)
Hvis du lige sender svar får du point....
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.