---
title: "Ändra bredden på en bild till 100px och automatisk korrigering av höjden."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/99433-ändra-bredden-på-en-bild-till-100px-och-automatisk-korrigering-av-höjden"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "mattiasnordin"
published: "2004-03-14T17:17:02.000Z"
updated: "2004-03-14T18:28:10.000Z"
replies: 2
views: 226
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/99433-ändra-bredden-på-en-bild-till-100px-och-automatisk-korrigering-av-höjden"
---

# Ändra bredden på en bild till 100px och automatisk korrigering av höjden.

## #1 — mattiasnordin, 2004-03-14T17:17Z

Jag använde mig av persist.jpeg komponent för att skapa thumbnails. För att det ska bli snyggt vill jag skala ner storleken på bilderna så att:

1) Bredden alltid är 80 pixlar.
2) Höjden är 120 pixlar. Men här vill jag inte resiza bilden utan bara klippa bort (crop) allt som ev är över 120 pixlar.

Är det någon som vet om det finns någon funktion inbyggd för detta? 

Kör man följande så tänjs bilden ut, vilket blir fult.

```
	Jpeg.Height = 180
		Jpeg.Width = 120
```

Är det någon som förstår vad jag är ute efter? :)

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

## #2 — mattiasnordin, 2004-03-14T17:57Z

Jag är inne på följande spår

```
' Räkna fram hur många procent som vi vill minska bilden med. Bredden ska vara fixerad.
		varMellanSumman = 720 - 80 '80=bredden på bilden.
		varProcent = varMellanSumman / 720
		varProcent = FormatPercent(varProcent) 
%>

<%=varProcent %><hr>
<%= 720 / varProcent %><hr>
<%= 486 / varProcent %><hr>

... Ändra storleken....

... Croppa bort ev överflöd ifall höjden är över 120 pixlar...
```

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

## #3 — mattiasnordin, 2004-03-14T18:28Z

Ursh vad jag är dålig på matte. Så här lång tid ska det inte ta att komma fram till detta. Nu fungerar det som jag vill.

```
<% sub subCreateThumb %>		
	<%' Open source image
	Jpeg.Open strPath &"/" &objItem.name
		
	' Räkna fram hur många procent som vi vill minska bilden med. Bredden ska vara fixerad.
	varMellanSumman = Jpeg.OriginalWidth - 80 '80=bredden på bilden.
	varDecimalProcent = varMellanSumman / Jpeg.OriginalWidth
	' räknar fram hur många pixlar %en motsvarar.
	varTaBortBredd = varDecimalProcent * Jpeg.OriginalWidth 
	varTaBortHojd = varDecimalProcent * Jpeg.OriginalHeight 
	' Skalar om bilderna
	Jpeg.Width = Jpeg.OriginalWidth - varTaBortBredd
	Jpeg.Height = Jpeg.OriginalHeight - varTaBortHojd 
		
	if Jpeg.Height < 120 then	
		' Lägg till vitt
		response.write "<h1>LÄGG TILL</h1>"	
	elseif Jpeg.Height > 120 then 
		response.write "<h1>CROP</h1>"	
	end if
		' create thumbnail and save it to disk
		Jpeg.Save strPath &"\thumb@" &varDatabasID &varFileExtention
		%>
		<font color=red>
		<%=strPath &"\thumb@" &varDatabasID &varFileExtention %><br>
		</font>
<% end sub %>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/99433-ändra-bredden-på-en-bild-till-100px-och-automatisk-korrigering-av-höjden