Avatar billede Slettet bruger
23. oktober 2006 - 14:44 Der er 6 kommentarer

Upload billede og lave en kopi som thumbnail

Nogle der kan hjælpe med at tilføje en funktion så mit uploadscript laver en kopi af billedet jeg uploader som thumbnail?

Jeg har følgende kode:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")

Upload.OverwriteFiles = False
On Error Resume Next

Upload.SetMaxSize 10048576 ' Limit files to 1MB
Count = Upload.Save(Server.MapPath("/myimages"))
%>

<% If Err <> 0 Then %>

<H3>The following error occured while uploading:</h3>
</FONT>

<h2>"<% = Err.Description %>"</h2>
</FONT>

<FONT SIZE=2 FACE="Arial" COLOR="#0020A0">
Please <A HREF="aspupload.asp">try again</A>.
</FONT>

<% Else %>
<h2>Success! <% = Count %> file(s) have been uploaded.</h2>
</FONT>

<% For Each File in Upload.Filesfilename = File.FileName %>
<% = File.OriginalPath %></B></TD>
<% =File.Size %> bytes</TD>
<% =File.OriginalSize %> bytes</TD><TR>
%>
Avatar billede fennec Nybegynder
23. oktober 2006 - 14:54 #1
Har du adgang til et image komponent også?? Noget ala ASPImage.
Avatar billede Slettet bruger
23. oktober 2006 - 15:00 #2
Yepper.... Har Listpics, ASP upload, Asp Image, ASP Jpeg....
Avatar billede fennec Nybegynder
23. oktober 2006 - 16:02 #3
Tjek disse to tut til ASPjpeg:
http://www.aspjpeg.com/manual_02.html
http://www.aspjpeg.com/manual_03.html

De viser hvordan du laver thumbs, og hvordan du bruger det sammen med ASP upload.
Avatar billede Slettet bruger
01. november 2006 - 11:01 #4
Hey!
Nogen der kan hjælpe mig lidt mere på vej, kan ikke rigtig hitte ud af det.. :-(
Avatar billede fennec Nybegynder
01. november 2006 - 11:54 #5
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 %>
...
Avatar billede 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....
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester