---
title: "Förminska bild i pixlar och kB med AspSmartImage"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/95122-förminska-bild-i-pixlar-och-kb-med-aspsmartimage"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "danieleinad"
published: "2004-01-18T01:35:19.000Z"
updated: "2004-01-22T10:59:29.000Z"
replies: 2
views: 435
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/95122-förminska-bild-i-pixlar-och-kb-med-aspsmartimage"
---

# Förminska bild i pixlar och kB med AspSmartImage

## #1 — danieleinad, 2004-01-18T01:35Z

Bilder som är 1024x768 och 150kB stora förminskas förvisso
till 960x720 pixlar, men de är fortfarande 140kB stora.
Någon som ser ett uppenbart misstag?

\<%

Set xSmartImage = Server.CreateObject("aspSmartImage.SmartImage")
  xSmartImage.OpenFile (Request("dabild"))

  OriginalWidth = xSmartImage.OriginalWidth

If OriginalWidth \> 960 Then
xSmartImage.Resample  960, 0
End If

     komp = 101
	Size = xSmartImage.Size
	Do While Size \> 102400
	komp = komp - 1
	xSmartImage.Quality = komp	
	Size = xSmartImage.Size
	Loop

xSmartImage.AddImage  "bonstamp.gif", "RIGHT", "BOTTOM"
xSmartImage.SaveFile (Request("dabild"))

%\>

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

## #2 — solbulle, 2004-01-18T03:14Z

red... för trött.

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

## #3 — daPhil, 2004-01-22T10:59Z

Output filen kanske får en högre kompringeringskvalitet än vad input filen hade?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/95122-förminska-bild-i-pixlar-och-kb-med-aspsmartimage