CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede 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
Avatar billede 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! .' )
Avatar billede 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
Avatar billede 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!!
Avatar billede nyegaard Nybegynder
09. december 2004 - 16:33 #4
yeah..tænkte det nok! Men så kan jeg ik hjælpe desværre...
Avatar billede 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
Avatar billede 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??
Avatar billede n1 Nybegynder
09. december 2004 - 18:47 #7
nå, men nu fik jeg det så selv lavet det...
Avatar billede 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>
Avatar billede keysersoze Guru
09. december 2004 - 19:30 #9
tak for hjælpen...
Avatar billede 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.

Loading billede Opret Preview

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
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
IIS virker ikke på asp sider... Af bsn i ASP 10 15/10/202313:12 18/10/202308:48
Udregn afstand mellem 2 koordinater - virker ikke med variabler Af sorenmt84 i ASP 5 25/09/202321:26 26/09/202321: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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 15:20 Geninstallation af Office 2019 Af ErikHg i Office & Kontorpakker
I dag 09:13 Antivirus til en Linux Mint computer? Af Polle i Linux
I går 15:30 signalforstærker til trådløs rutrer tænkes brugt til pc næt pc -og MÅSKE TV 4 m borte eller begge Af Novice-1 i Routere & Switches
I går 11:43 Hvilket styresystem på en gammel Pc ??? Af Jan Post i Andre styresystemer
I går 07:44 Virus advarsler - falske Af jdann i Backup- & Antivirus
White papers
Flere white papers »


Premium
Teaser billede
Her er de nye medlemmer af Statens It-råd: Skal vurdere it-projekter på over 15 millioner kroner
Læs mere »
Antallet af anmeldelser af ulovligt indhold på beskedtjenester stiger: Regeringen skubber ansvaret videre til EU og Belgien
Efter masser af kritik af store prisstigninger: VMware åbner for gratis licenser - ændrer i licens-strukturen
Seks store selskaber med på årets image-liste for første gang: Kæmper alle med lav kendskabsgrad
Se alle »
Computerworld
Teaser billede
Nyopdaget sårbarhed rammer næsten alle VPN'er: Gør dem usikre og nærmest ubrugelige
Læs mere »
Om under en uge går det løs: Pc’en bliver aldrig den samme igen
VPN-test fra virkeligheden: To tjenester som glimrer på hver deres måde
Test: Samsungs nyeste laptop er noget af det tætteste du kommer på en Windows-Macbook
Se alle »
CIO
Teaser billede
Nu begynder den største GDPR-retssag mod dansk myndighed nogensinde: Står over for million-bøde
Læs mere »
Lukker it-systemerne ned i to uger på grund af implementering: Den bedste måde at sikre, at ingen data går tabt
Sådan har Coop sagt farvel til mainframen - sparer et to-cifret millionbeløb årligt på licenser
Hundredevis af selskaber klager over Microsofts licens-policy: Vi er låst fast og bundet
Se alle »
Job & Karriere
Teaser billede
Her er Danmarks fem bedste CIO’er lige nu: Se de fem nominerede til prisen som Årets CIO 2024
Læs mere »
Medarbejderne fik udleveret badetøfler ved indflytningen: Kom med inden for i IBM Danmarks nye topmoderne hovedkontor
Så meget tjener dine kollegaer: Her er alle data fra Computerworlds store it-lønstatistik for 2024
Får du den løn, du fortjener? Få overblikket over hvor meget dine kolleger tjener hver måned
Se alle »
White paper
Teaser billede
SASE: Træf det rette valg – første gang
Læs mere »
Cybersikkerhed: Skær antallet af alarmer ned fra tusindvis til blot en håndfuld
Sådan høster du forretningsfordelene ved Internet of Things
Opdag fordelene ved cloud-baseret backup og recovery
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »