---
title: "ASPJpeg hjälp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/168244-aspjpeg-hjälp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "SGuncel"
published: "2008-01-19T20:03:24.000Z"
updated: "2008-01-22T21:57:28.000Z"
replies: 17
views: 753
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/168244-aspjpeg-hjälp"
---

# ASPJpeg hjälp

## #1 — SGuncel, 2008-01-19T20:03Z

Hej!

Det är så att jag har börjat med ASPJpeg nu och har kommit till att man kan ändra storlek på bilden.

Det jag vill göra nu är att bildens namn ska döpas från en session och att inte orginalbilden sparas inte efter man har ändrat storleken.

Här är min kod:

```
<%

Set Upload = Server.CreateObject("Persits.Upload")

' Use AspJpeg to resize image
Set Jpeg = Server.CreateObject("Persits.Jpeg")

' Capture and save uploaded image to the same directory as script
Upload.SaveVirtual "bilder"

For Each File in Upload.Files
	If File.ImageType <> "JPG" Then
		Response.Write "Bilden du valde är inte jpeg format!"
		File.Delete
		Response.End
	End If

	Jpeg.Open File.Path

	L = 150

	Jpeg.Quality = 100
	Jpeg.Width = L
	Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

	Jpeg.Save Server.MapPath("bilder") & "\small_" & File.FileName
%>
	<IMG SRC="bilder/<% = File.FileName %>"><p>
	<IMG SRC="bilder/<% = "small_" & File.FileName %>"><P>
<%
Next
%>
```

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

## #2 — MickeA.com, 2008-01-19T20:46Z

Ska du ladda upp en bild och spara den i två "versioner" (en original och en thumb), så skulle jag rekommendera att du skapar två instanser av aspJpeg, en för originalet (om du ska modifiera den) och en för miniatyren.

Jag förstår inte exakt vad du menar med "Det jag vill göra nu är att bildens namn ska döpas från en session och att inte orginalbilden sparas inte efter man har ändrat storleken.".
Om du ska ha med ett sessionvärde i filnamnet kan du göra såhär:

```
myfilename = "minbild_user_" & Session("mysession") & File.Ext
Jpeg.Save(Server.MapPath("bilder") & "\" & myfilename)
```

När du sparat bilden, kan du använda *File.Delete*, för att ta bort "originalet", som ligger i den temporära mappen.

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

## #3 — SGuncel, 2008-01-19T21:26Z

Nej, jag ska ladda upp en bild som skalas om. Men efter det så sparas både orginal och bilden som har skalats och vill att orginalbilden ska raderas efter bilden har skalats.

När man laddar upp en bild så heter ju mesta DSC00007 men vill att den ska ändras till användarens namn. t.ex. DSC00007.jpg = MickeA.com.jpg

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

## #4 — MickeA.com, 2008-01-19T21:52Z

Okej, men då kan du göra exakt som jag menar ovan.
Spara bilden på det sätt jag anger, när du sparat och stängt objektet Jpeg, använde *File.Delete* för att ta bort originalet

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

## #5 — SGuncel, 2008-01-19T22:42Z

Microsoft VBScript compilation error '800a0401' 

Expected end of statement 

/aspjpeg/resize_upload.asp, line 4 

Upload.SetMaxSize = 600000, True
\--------------------------^

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

Upload.SetMaxSize = 600000, True
Upload.OverwriteFiles = False

' Use AspJpeg to resize image
Set Jpeg = Server.CreateObject("Persits.Jpeg")

' Capture and save uploaded image to the same directory as script
Upload.SaveVirtual "bilder"

For Each File in Upload.Files
	If File.ImageType <> "JPG" Then
		Response.Write "Bilden du valde är inte jpeg format!"
		File.Delete
		Response.End
	End If

	Jpeg.Open File.Path

	L = 150

	Jpeg.Quality = 100
	Jpeg.Width = L
	Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

	userName = Session("UsrTLAlias").ImageType
	Jpeg.Save(Server.MapPath("bilder") & "\" & userName)
	
	Jpeg.DeleteFile = File.FileName
%>
	<IMG SRC="bilder/<% = File.FileName %>"><p>
	<IMG SRC="bilder/<% = userName %>"><P>
<%
Next
%>
```

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

## #6 — Zaiman, 2008-01-19T22:50Z

Ta bort likehetstecknet.

```
Upload.SetMaxSize 600000, True
```

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

## #7 — SGuncel, 2008-01-19T22:59Z

Persits.Upload.1 error '800a0005' 

The system cannot find the file specified. 

/UsrSettings/resize_upload.asp, line 11 

Här är felet:
' Capture and save uploaded image to the same directory as script
Upload.SaveVirtual "photos"

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

## #8 — Zaiman, 2008-01-19T23:00Z

Har du skapat katalogen photos ? Och har du skrivrättigheter till den?

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

## #9 — SGuncel, 2008-01-19T23:06Z

Nu säger den att jag inte har session fast än jag har det.
Får det när bildens namn ska ändras till användarens namn.

Object required: 'Session(...)' 
/UsrSettings/resize_upload.asp, line 28

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

## #10 — MickeA.com, 2008-01-19T23:32Z

Ändra:

```
userName = Session("UsrTLAlias").ImageType
```

Till 

```
userName = Session("UsrTLAlias") & File.Ext
```

Den här raden kan du ta bort:

```
Jpeg.DeleteFile = File.FileName
```

Byt ut den till: 

```
File.Delete
```

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

## #11 — SGuncel, 2008-01-19T23:41Z

Wuhuuuu nu funkar det två sista frågor hur gör man så att man får fel meddelande när bilden är störren 600kb och sen vill jag att det ska komma meddelande när bilden är uppladdad :D

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

## #12 — MickeA.com, 2008-01-19T23:45Z

Använd *File.Size* \_innan\_ du hämtar bilden med Jpeg.Open()

Lägg ett meddelande under For ... Loopen, så visas det när alla bilder behandlats.

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

## #13 — SGuncel, 2008-01-19T23:52Z

Nu förstog jag inte hur du mena.

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

## #14 — MickeA.com, 2008-01-20T00:02Z

Sööök!
<http://www.aspupload.com/object_file.html#Size>

```
If File.Size > x Then
	Response.Write("Filen för stor")
	File.Delete
	Response.End
End If
```

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

## #15 — SGuncel, 2008-01-22T18:42Z

Persits.Upload.1 error '800a0008' 

At least one of the uploaded files exceeds the maximum allowed size. 

/UsrSettings/resize_upload.asp, line 244 

```
	If File.Size > 600000 Then
		Response.Write "Filen är för stor"
		File.Delete
		Response.End
	End If
```

Jag får inte fram fel meddelandet.

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

## #16 — MickeA.com, 2008-01-22T21:54Z

Kolla högst upp i din kod, där har du:

```
Upload.SetMaxSize = 600000, True
```

Sätt gränsen i din *If File.Size \>* till \_mindre\_ än din *SetMaxSize*, så ska du se att det funkar!

Eftersom du har ifsatsen, kan du ta bort raden *SetMaxSize* helt och hållet!

/r Sen undrar jag verkligen om File.Size ska anges i byte? Googla eller sök här på wF ang. det!

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

## #17 — Zaiman, 2008-01-22T21:55Z

Om du lägger in en flush då?

```
	If File.Size > 600000 Then
		Response.Write "Filen är för stor"
		File.Delete
		[B]Response.Flush[/B]
		Response.End
	End If
```

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

## #18 — MickeA.com, 2008-01-22T21:57Z

Jag misstänker att det beror på den första raden i koden, SetMaxSize.
Eftersom filstorleken överskrids redan där, kommer man aldrig till ifsatsen i koden.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/168244-aspjpeg-hjälp