---
title: "AspImage sub"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/101299-aspimage-sub"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bosse168"
published: "2004-04-11T23:18:16.000Z"
updated: "2006-03-29T17:15:44.000Z"
replies: 7
views: 1116
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/101299-aspimage-sub"
---

# AspImage sub

## #1 — Bosse168, 2004-04-11T23:18Z

Någon som kan hjälpa mig att "konfiguera" ett script som gör om storleken på den uppladdade bilden?
Istället för att göra om bilden till den fasta storleken som scriptet använder nu så vill jag att den bara ska dela storleken beroende på bildens storlek.

```
'This sub is used to resize the photo 
Sub ResizeX (intXSize) 
Dim intYSize 
intYSize = (intXSize / myImage.MaxX) * myImage.MaxY 
myImage.ResizeR intXSize, intYSize 
End Sub

' Creating the Image object 
Dim myImage 
Set myImage = Server.CreateObject("aspimage.Image") 

' Loading Image object and resize 
myImage.LoadImage Server.MapPath("test") &"\"& NewName & Ext

' Här vill jag få in en variabel (bredd) med hur mycket höjden och bredden ska delas med.
Call ResizeX(100) 

' Save Photo File 
myImage.Filename = Server.MapPath("test") &"\"& NewName & Ext 
myImage.SaveImage
 
Set myImage=Nothing
```

Kanske finns någon bättre lösning :stud

Innan använde jag AspJpeg och använde då följande kod.

```
if Jpeg.OriginalWidth > 1500 then
Jpeg.Width = Jpeg.OriginalWidth / 3
Jpeg.Height = Jpeg.OriginalHeight / 3

' Optional: apply sharpening
Jpeg.Sharpen 1, 200
' Create thumbnail and save it to disk
Jpeg.Save Server.MapPath("bilder") &"\upload\"& NewName & Ext

Elseif Jpeg.OriginalWidth > 1000 then
Jpeg.Width = Jpeg.OriginalWidth / 2.2
Jpeg.Height = Jpeg.OriginalHeight / 2.2

End If
```

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

## #2 — solbulle, 2004-04-11T23:35Z

```
'This sub is used to resize the photo 
Sub ResizeX (intXSize) 
Dim intYSize 
intYSize = ((myImage.MaxX/intXSize) / myImage.MaxX) * myImage.MaxY 
myImage.ResizeR (myImage.MaxX/intXSize), intYSize 
End Sub

' Creating the Image object 
Dim myImage 
Set myImage = Server.CreateObject("aspimage.Image") 

' Loading Image object and resize 
myImage.LoadImage Server.MapPath("test") &"\"& NewName & Ext

' Här vill jag få in en variabel (bredd) med hur mycket höjden och bredden ska delas med.
Call ResizeX(100) 

' Save Photo File 
myImage.Filename = Server.MapPath("test") &"\"& NewName & Ext 
myImage.SaveImage
 
Set myImage=Nothing
```

Kanske kan fungera. (Lite simpelt gjort iofs.)

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

## #3 — Bosse168, 2004-04-11T23:40Z

Oj glömde säga att ligger på en upload sida.
Så sub ligger alltså innan:

```
For Each File in Upload.Files
```

Och detta innanför

```
' Creating the Image object 
Dim myImage 
Set myImage = Server.CreateObject("aspimage.Image") 

' Loading Image object and resize 
myImage.LoadImage Server.MapPath("test") &"\"& NewName & Ext

' Här vill jag få in en variabel (bredd) med hur mycket höjden och bredden ska delas med.
Call ResizeX(100) 

' Save Photo File 
myImage.Filename = Server.MapPath("test") &"\"& NewName & Ext 
myImage.SaveImage
 
Set myImage=Nothing
```

Sorry  :r

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

## #4 — Bosse168, 2004-04-11T23:47Z

Löste det tog bort subben och använde denna koden direkt i loopen.

```
Dim intYSize 
intYSize = ((myImage.MaxX/bredd) / myImage.MaxX) * myImage.MaxY 
myImage.ResizeR (myImage.MaxX/bredd), intYSize
```

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

## #5 — solbulle, 2004-04-11T23:50Z

Du lär väl kunna ändra i subben till bara:

```
Sub ResizeX (nSize)
myImage.ResizeR (myImage.MaxX/nSize), (myImage.MaxY/nSize)
End Sub
```

 Det spelar väl ingen roll? Bara att du ser till att är bilderna i din loop du öppnar o ändrar storlek på, mha File-objektet som du skapar.

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

## #6 — solbulle, 2004-04-11T23:52Z

Så sant så sant, varför krängla till det mer än nödvändigt?
Det är för sent för sånt här nu känner jag... :)

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

## #7 — Bosse168, 2004-04-11T23:52Z

Samma här :)
Men tack för hjälpen

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

## #8 — Tonyboy, 2006-03-29T17:15Z

AspImage

Oops, postade mitt inlägg på helt fel plats :)

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

---

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