CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

n1 Nybegynder

09. december 2004 - 16:03 Der er 8 kommentarer og
1 løsning

upload billed og lav thumbnail med aspimage

jeg skal ha lavet et script der uploader et billed og laver et thumbnail, jeg har ASPimage på min server, jeg har kikket på http://www.aspjpeg.com/ men jeg kan kun få den til at uploade et billede, men så kan jeg heller ikke finde ud af mere...
håber i kan hjælpe mig :-)
og helst så simpel kode som muligt

Synes godt om

nyegaard Nybegynder

09. december 2004 - 16:06 #1

jeg tror ikke at det er dette du skal bruge...Men her er et forsøg!!! http://www.sdf1.dk/billedegalleri.rar
(Det er det jeg selv bruger)...Og hvis det ik er det du mangler...så undskyld! .' )

Synes godt om

keysersoze Guru

09. december 2004 - 16:10 #2

det er også et helt forkert sted ud kigger - hvis det er ASPimage du har til rådighed så er det her du skal kigge; http://www.serverobjects.com/comp/Aspimage.htm

Synes godt om

n1 Nybegynder

09. december 2004 - 16:29 #3

nyegaard: jeg kan ikke rigtigt bruge det da det er et PHP script...

keysersoze: jeg har også kikket på http://www.serverobjects.com/ men der er ikke rigtigt nogle eksempler på det jeg skal bruge, jeg skal helst bruge et komplet script!!

Synes godt om

nyegaard Nybegynder

09. december 2004 - 16:33 #4

yeah..tænkte det nok! Men så kan jeg ik hjælpe desværre...

Synes godt om

keysersoze Guru

09. december 2004 - 16:51 #5

jeg har svaret på det før - har ikke lige et eks. her men prøv at brug søgefunktionen; http://www.eksperten.dk/list.phtml?method=and&excerpt_on=1&find=aspimage+resize

Synes godt om

n1 Nybegynder

09. december 2004 - 17:17 #6

ok.. jeg tror jeg kan bruge dette script: http://eksperten.dk/spm/290116 men hvordan skal jeg lave en side der henviser til det??

Synes godt om

n1 Nybegynder

09. december 2004 - 18:47 #7

nå, men nu fik jeg det så selv lavet det...

Synes godt om

n1 Nybegynder

09. december 2004 - 18:49 #8

hvis der er nogen der kan bruge det til noget... der skal nokke rettes lidt i Response.Write teksterne...

<html>
<body>
<%
RightNow=Now

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
Upload.SetMaxSize 1048576
Count = Upload.Save(Server.MapPath("/upload/temp/"))
Response.Write Count & " fil(er) modtaget."

For Each File in Upload.Files
If File.ImageType <> "JPG" Then
response.Write("dette er ikke et jpg billede")
File.Delete

else

' Move to a different location
Dim Filename
Filename = Year(RightNow) & "-" & Month(RightNow) & "-" & day(RightNow) & "-" & hour(RightNow) & minute(RightNow) & second(RightNow) & ".jpg"

File.Copy Server.MapPath("/upload/images/") & "/" & Filename
File.Delete

'Instantiate object (Server Objects ASPImage component)
Set MyImage = Server.CreateObject("AspImage.Image")

'filename of original image w/ extension
Dim strOrigImg
strOrigImg = Filename

'filename of thumbnail w/ extension
Dim strThumbName
strThumbName = Filename

'full path of original image
Dim strOrigImgFullPath
strOrigImgFullPath = Server.MapPath("/upload/images/")

'full path of generated thumbnail
Dim strThumbFullPath
strThumbFullPath = Server.MapPath("/upload/images/thumb/")

Dim strOriginal, strThumb, ResizedX,ResizedY

strOriginal = strOrigImgFullPath & "/" & strOrigImg
strThumb = strThumbFullPath & "/" & Filename

'load original image
MyImage.LoadImage strOriginal

'Set Resize factor for X
ResizedX = 200

'Get orignal size of image
MyImage.GetImageFileSize strOriginal, X, Y
MyImage.MaxX = X
MyImage.MaxY = Y

'maintain aspect ratio
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
MyImage.ResizeR ResizedX, ResizedY

'saving thumbnail to disk
MyImage.ImageFormat = 1
MyImage.FileName = strThumb
MyImage.SaveImage

'Cleanup
Set MyImage = Nothing

'display saved thumbnail
Response.Write "<img src=images/thumb/" & Filename & "><br>"

end if
Next

%>
</body>
</html>

Synes godt om

keysersoze Guru

09. december 2004 - 19:30 #9

tak for hjælpen...

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 Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59

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