---
title: "ASPUpload med ASPImage"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/125573-aspupload-med-aspimage"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2005-04-01T11:24:41.000Z"
updated: "2005-04-03T11:30:40.000Z"
replies: 9
views: 633
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/125573-aspupload-med-aspimage"
---

# ASPUpload med ASPImage

## #1 — WebbisNet, 2005-04-01T11:24Z

Nån som vet hur man använder ASPImage för att skala en bild till en viss storlek i samarbete med Persist-s ASPUpload. Jag kan ladda upp filer med ASPUpload men när jag använder den i samarbete med ASPImage så skalas inte bilden. Ska man lägga ASPImage före, efter eller i ASPUploadkoden.

Koden här är den jag använder, fast Crop ska ersättas med resize, hur man nu skriver den

Set Image = Server.CreateObject("AspImage.Image")
LoadImage = (Server.MapPath("/upload/images/cards/vykort/"&strFileName))
Image.ImageFormat = 1
Image.JPEGQuality = 10
Image.CropImage 200,400,400,250
Image.TextOut "Http://kort.webbisen.com/vykort", 220, 230, false
Image.SaveImage
Set Image = Nothing

strFileName är filnamnet som jag plockar ur med ASPUploadkomponenten

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

## #2 — Palle, 2005-04-01T12:40Z

1\. Ladda upp bilden till servern ordentligt först.
2\. Hämta sedan bilden med AspSmartImage, skala den och spara den sedan igen.

ex. på hur du kan skala bilden: 

```
[red]Dim oImg
Set oImg = Server.CreateObject("aspSmartImage.SmartImage")
	oImg.OpenFile("/upload/images/cards/vykort/"& strFileName)
	oImg.Resample 640,480
	oImg.Quality = 100
	oImg.SaveFile("/upload/images/cards/vykort/"& strFileName)
Set oImg = Nothing[/red]
```

I detta exempel skalar vi om bilden till 640x480px.

**Tillägg:** Ser nu att det kanske inte alls rör sig om AspSmartImage.. :r ..men men, 
här har du koden för hur du gör med den komponenten iaf, kanske hjälper dig lite.

 

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

## #3 — WebbisNet, 2005-04-01T12:51Z

Mitt webhotell stöder bara ASPImage och inte ASPSmartImage och jag har inga problem med uppladdningen av bilden, det har jag ASPUpload till....det är skalningen som inte vill

> **Palle skrev:**
>
> 1\. Ladda upp bilden till servern ordentligt först.
> 2\. Hämta sedan bilden med AspSmartImage, skala den och spara den sedan igen.
> 
> ex. på hur du kan skala bilden: 
>
> ```
> [red]Dim oImg
> Set oImg = Server.CreateObject("aspSmartImage.SmartImage")
> 	oImg.OpenFile("/upload/images/cards/vykort/"& strFileName)
> 	oImg.Resample 640,480
> 	oImg.Quality = 100
> 	oImg.SaveFile("/upload/images/cards/vykort/"& strFileName)
> Set oImg = Nothing[/red]
> ```
>
> 
> 
> I detta exempel skalar vi om bilden till 640x480px.
> 
> 
> **Tillägg:** Ser nu att det kanske inte alls rör sig om AspSmartImage.. :r ..men men, 
> här har du koden för hur du gör med den komponenten iaf, kanske hjälper dig lite.
> 
>  

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

## #4 — solbulle, 2005-04-01T14:18Z

```
<%
Set Upload = Server.CreateObject("Persits.Upload")

Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("upload/images/cards/vykort"))
For Each file In Upload.Files
  'If File.ImageType = "UNKNOWN" Then
  'Response.Redirect "/pictureupload/outputfile.asp?error=fel_filformat"
  'File.Delete 
 ' End If
  Next

Set File = Upload.Files

If NOT File Is Nothing Then
	strFileName= Upload.Files("blob").ExtractFileName  
END IF

Set Image = Server.CreateObject("AspImage.Image")
Image.Loadimage (Server.MapPath("/upload/images/cards/vykort/"&strFileName))

Image.ImageFormat = 1
Image.JPEGQuality = 90
Image.Resize 400,250

Image.TextOut "Http://kort.webbisen.com/vykort", 220, 230, false

Image.FileName = (Server.MapPath("/upload/images/cards/vykort/"&strFileName))
Image.SaveImage

Set Image = Nothing
%>
```

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

## #5 — WebbisNet, 2005-04-01T14:24Z

testade med den koden men bilden skalas inte och jag ser bara överdelen på den fullstora bilden

> **solbulle skrev:**
>
> ```
> <%
> Set Upload = Server.CreateObject("Persits.Upload")
> 
> Upload.OverwriteFiles = False
> Upload.SetMaxSize 100000, False
> Count=Upload.Save(Server.MapPath("upload/images/cards/vykort"))
> For Each file In Upload.Files
>   'If File.ImageType = "UNKNOWN" Then
>   'Response.Redirect "/pictureupload/outputfile.asp?error=fel_filformat"
>   'File.Delete 
>  ' End If
>   Next
> 
> Set File = Upload.Files
> 
> If NOT File Is Nothing Then
> 	strFileName= Upload.Files("blob").ExtractFileName  
> END IF
> 
> 
> Set Image = Server.CreateObject("AspImage.Image")
> Image.Loadimage (Server.MapPath("/upload/images/cards/vykort/"&strFileName))
> 
> Image.ImageFormat = 1
> Image.JPEGQuality = 90
> Image.Resize 400,250
> 
> Image.TextOut "Http://kort.webbisen.com/vykort", 220, 230, false
> 
> Image.FileName = (Server.MapPath("/upload/images/cards/vykort/"&strFileName))
> Image.SaveImage
> 
> Set Image = Nothing
> %>
> ```

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

## #6 — solbulle, 2005-04-01T15:26Z

hm... det fungerar för mig.

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

## #7 — WebbisNet, 2005-04-01T15:38Z

> **solbulle skrev:**
>
> hm... det fungerar för mig.

nu gick det visst, men ser bilden lika lustig ut hos dig som hos mig
<http://kort.webbisen.com/vykort/viewCard.asp?id=200504011734521734>

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

## #8 — WebbisNet, 2005-04-01T17:03Z

kan nån ladda upp bild och skicka för att se hur resultatet blir....det är bara att skicka till samma adress som du skickar från, det är bara för att du ska få mailet där du kan läsa ditt kort

jag vill veta vilka format och vilken kvalitet på bilden som ger ett bra resultat och vilket som sabbar bilden

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

## #9 — WebbisNet, 2005-04-02T12:09Z

Nån som kan svara på varför få bilder blir bra och resten bara blir bra i överkanten och sen bara skit på resten när man laddar upp och skalar?

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

## #10 — WebbisNet, 2005-04-03T11:30Z

Ingen som vet varför vissa bilder sabbas efter uppladdning och skalning?

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

---

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