Notifikationer

Markér alle som læst Log ud

Slettet bruger

24. september 2001 - 20:31 Der er 3 kommentarer og
1 løsning

Upload og resize af billeder... ?

Hej...

Jeg skal upload og derefter resize billeder. (dog kun resize hvis de er for store)

Jeg har lavet en \"upload-side\" ved hjælp af AspUpload, men jeg tror ikke se at AspUpload kan resize billeder. - \"På min web-hotel findes AspImage\" - Hvordan kan jeg lave det?

Her er den kode jeg har lavet indtil videre (uden AspUpload komponentet)

\' Laver et object af Persits.Upload

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

Upload.OverwriteFiles = false
Count = Upload.SaveToMemory
picture = false

\' Hvis der findes en fil

if (Count = 1) then

Set File = Upload.Files(1)
picture = true

\' Checker om filen er af typen gif eller jpg

if ((File.ImageType <> \"GIF\") and (File.ImageType <> \"JPG\")) then

Response.Redirect(\"opret_aa.asp\")
picture = false

end if
end if

\' Gemmer og renamer filen i en Hashværdi + SessionID

if (picture = true) then

filen = File.MD5Hash & Session.SessionID & \".\" & File.ImageType
Path = (\"d:/web/upload/\" & filen)
File.SaveAs(Path)

end if

Synes godt om

Slettet bruger

24. september 2001 - 20:33 #1

Ups.. et par stave bøffer.. :)

Synes godt om

crunch Nybegynder

24. september 2001 - 20:51 #2

jeg bruger nedenstående med asp image:

<%
Set objImg = Server.CreateObject(\"AspImage.Image\")
objImg.LoadImage \"d:\\home\\ditdomæne\\www\\upload\\dinstitilbillede%>

<img src=\"upload/<%response.write \"din sti til bilede\"%>\" width=\"<%response.write objImg.MaxX%>\" height=\"<%response.write objImg.MaxY%>\">

<% Set objImg = Nothing%>

- hvis du vil tjekke om de er for store kan du f.eks. skrive noget i retningen af:

<%if objImg.MaxY > 200 then
response.write \"200\"
else
response.write objImg.MaxY
end if %>

altså inde i koden:

<img src=\"upload/<%response.write \"din sti til bilede\"%>\" width=\"<%response.write objImg.MaxX%>\" height=\"<%if objImg.MaxY > 200 then response.write \"200\" else response.write objImg.MaxY
end if%>\">

<% Set objImg = Nothing%>

Synes godt om

stigc Nybegynder

24. september 2001 - 21:27 #3

du skal brue aspImage til at resize, har du den?
Husk den ikke kan arbejde med GIF, pga. nogen meget dyre rettigheder.

Synes godt om

Slettet bruger

25. september 2001 - 15:44 #4

Hmm... lukker spørgsmålet... da det skal kunne resize gif... må finde en anden løsning

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS