Billede størrelse med AspImage

Sagtens:

Set Image=Server.CreateObject("AspImage.Image")
Image.LoadImage "billede.jpg"
Image.Resize intImgWidth,intImgHeight
Image.JPEGQuality="90"
Image.ImageFormat=1
Image.FileName="billedeny.jpg"
Image.SaveImage

Hmmmmmmmmmmm prøver med:
<% For Each File in Upload.Files
filename = File.FileName %>
<TD><B><% = File.OriginalPath %></B></TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.Size %> bytes</TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.OriginalSize %> bytes</TD><TR>

<%
Set Image=Server.CreateObject("AspImage.Image")
Image.LoadImage "images/"&filename
intYSize = (intXSize / Image.MaxX) * Image.MaxY
  Image.ResizeR intXSize, intYSize

'Image.Resize intImgWidth,intImgHeight
Image.JPEGQuality="90"
Image.ImageFormat=1
Image.FileName = "lille"& filename
Image.SaveImage "Images/"
Next %>
Billedet bliver uploadet men ellers sker der ikke en ski'''''''
ikke engang en fejl.

Nu er jeg kommet så langt at jeg har fat i billedet
kan jeg se med response.write
men den vil stadig ikke gemme billedet gør nok noget forkert:

Set Image=Server.CreateObject("AspImage.Image")
Image.LoadImage Server.MapPath("Images/" & Filename)
intXsize = (Image.MaxX / 2)
intYSize = (intXSize / Image.MaxX) * Image.MaxY
  Image.ResizeR intXSize, intYSize
Response.Write "Image Height = " & Image.MaxY & " - Image Width = " & Image.MaxX
Image.Resize intImgWidth,intImgHeight
Image.JPEGQuality="90"
Image.ImageFormat=1
Image.FileName = "lille"& filename
response.write Image.Filename
Image.SaveImage %>
<img src="<%="Images/"& Image.Filename %>">

Hvorfor absolut gemme en thumbnaiul. Brug dog aspimage til at danne en thumbnail 'on the fly':
se her mt eks.

http://web4it.dk/aspimage/

Henrik

Når du skriver Image.SaveImage "Images/" angiver du kun mappen, du skal også angive filnavnet (til hvis det nu skulle gemmes under et nyt navn). Men det er altså obligatorisk.

Til Hnteknik kan ikke accepterer dit svar da' jeg har bestemt at gemme det lille billede.
Til W13
Set Image=Server.CreateObject("AspImage.Image")
Image.LoadImage Server.MapPath("Images/" & Filename)

intXsize = (Image.MaxX / 2)

intYSize = (intXSize / Image.MaxX) * Image.MaxY
  Image.ResizeR intXSize, intYSize
Response.Write "Image Height = " & Image.MaxY & " - Image Width = " & Image.MaxX
Image.JPEGQuality="90"
Image.ImageFormat=1
Image.FileName = "lille"& filename
response.write Image.Filename
Image.SaveImage "Images/"& Image.Filename %>

Skulle dette virke?

Nej, sådan her, ville jeg umiddelbart sige:
-------------------------------------------------------
Set Image=Server.CreateObject("AspImage.Image")
Image.LoadImage Server.MapPath("Images/" & Filename)

intXsize = (Image.MaxX / 2)

intYSize = (intXSize / Image.MaxX) * Image.MaxY
  Image.ResizeR intXSize, intYSize
Response.Write "Image Height = " & Image.MaxY & " - Image Width = " & Image.MaxX
Image.JPEGQuality="90"
Image.ImageFormat=1
Image.FileName = "lille"& filename
response.write "Images/"&Image.Filename
Image.SaveImage
-------------------------------------------------------
Jeg tænkte mig ikke om, da jeg før sagde, der skulle stå mere efter SaveImage. Der skal slet ikke stå noget.

Har fået den til at virke
W13 send et svar

Hermed gjort! :)

Takker.