---
title: "ASPImage"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/46252-aspimage"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bendro"
published: "2002-06-19T14:04:45.000Z"
updated: "2002-06-19T15:43:21.000Z"
replies: 3
views: 495
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/46252-aspimage"
---

# ASPImage

## #1 — Bendro, 2002-06-19T14:04Z

Finns det någon som använder detta och som skulle kunna vara snäll att lägga upp ett exempel på hur koden kan se ut om man skall hämta upp en fil från servern, ändra storlek enligt givna mått (t.ex 300 pix bred) och spara ner under nytt filnamn?

Har suttit och läst online dokumentationen men är nog lite för trött för att fatta riktigt. Tycker det mesta i den verkar hantera textbehandling. Men får jag bara ngt att utgå från lär jag nog greja det.

Permalänk: https://www.webforum.nu/p/46252

## #2 — M@rtin, 2002-06-19T15:15Z

Har tyvärr inget svar på din fråga men skulle gärna vilja veta var man kan få tag på komponenten :)

Permalänk: https://www.webforum.nu/p/703008

## #3 — Quazzo, 2002-06-19T15:28Z

\<%
function CreateThumbnail(strPath, strFilename, maxX, maxY)
 Set image = server.createobject("aspimage.image")
 if image.loadimage(strPath & "\\" & strFilename) then
  intWidth    = image.MaxX
  intHeight   = image.MaxY
  
if (intWidth\<MaxX) and (intHeight\<MaxY) then
  if intWidth\>intHeight then
   intRatio=(maxX/intWidth)
   image.resizeR intWidth\*intRatio, intHeight\*intRatio
  else
   intRatio=(maxY/intHeight)
   image.resizeR intWidth\*intRatio, intHeight\*intRatio
  end if
end if

  'Optimised for JPEG thumbnails - generally better than GIFs
  Image.ImageFormat = 1
  Image.PixelFormat = 6
  strSfilename=split(strFilename,".")
  Image.Filename=strPath & "\\thumb\_" & strSfilename(0)
  picture="thumb\_" & strSfilename(0)	
  if Image.SaveImage then
        response.write "\<img src=""pics/" & picture & ".jpg""\>"
	Set Image = nothing
  else
   'You may want to put some kind of error handler in here
   Set Image = nothing
  end if
 else
  'Error while loading, abort
  Set Image = nothing
  exit function
 end if
end function

%\>

\<%Test=CreateThumbnail("c:\\inetpub\\wwwroot\\pics", "sverige.jpg", "200", "200")%\>

\<%=Thumb_bild%\>
 

Funkar bra, ändra bara parametrarna till dina egna...alt hämta dem direkt från ett formulär.

Martin: Du hittar aspimage på [serverobjects.com](http://www.serverobjects.com)

Permalänk: https://www.webforum.nu/p/703011

## #4 — M@rtin, 2002-06-19T15:43Z

Tackar :)

Permalänk: https://www.webforum.nu/p/703014

---

Tråden på webben: https://www.webforum.nu/amne/asp/46252-aspimage