File.ToDatabase MyConn, "insert into TblPolyrattan(Images, Beskrivelse, Navn, VareNr) " &_ "values('" & File.ExtractFileName & "', '" & upload.form("Beskrivelse") & "', '" & upload.form("Navn") & "', '" & upload.form("VareNr") & "')" if Err <> 0 Then Response.Write headerfont & "<br>Der er sket en fejl! : " & Err.Description Else Response.Write headerfont & "<br><a href=upload.asp>Tilføjet...Tilbage</a></strong></font>" End If Next
end if
%> Tjekker om der et billede osv. smider data ind i db. Nu vil jeg bare gerne ha at ASPImage resizer billedet og laver en thumb. Er der en der har styr på det?
Hvis du har lavet en fil med koden der hedder thumbnail.asp, så kalder du den jo blot med nedenstående, skal dog lige rettes så fotonavn og size passer med feltet i din database og størrelsen du gerne vil have.
Jeg fatter ikke det her. Kan du skære det ud i pap for mig?
1:Jeg har en side med en form der uploader billede til serveren og putter data i databsen. Når jeg submitter den form så uploader den billedet osv. kan jeg ikke smide AspImage ind i det script så formen:
1: Uploader billede + thumb på serveren? 2: Smider data ind i acces databasen?
ASPimage skal først bruges når du trækker billedet ud igen. Ovenstående thumbnail.asp skal du så bruge hvor du gerne vil have placeret billedet på dit site, dvs. istedet for at indsætte et billede, indsætter du du koden der kalder thumbnail.asp. Du kan naturligvis også lave en thumbnail ved oprettelsen, men hvorfor bruge plads på 2 billeder når ASPimage kan lave dem "on the fly" ?
' Hvis filen størrelse er mindre end det ønskede udskrives billedets normale størrelse
if ImageHeight < size then Set Image = Server.CreateObject("AspImage.Image") Image.LoadImage "c:\images\" & request.querystring("FileName") Image.ImageFormat = 1 Image.JPEGQuality = 80 Response.BinaryWrite Image.Image Set Image = Nothing Set objImg = Nothing end if
' ellers laves der her et thumbnail i den ønskede size
Virker ikke kan ikke finde billederne? fatter det ikke. <img src=thumbnail.asp?FileName=c:\netpub\wwwroot\ny\intetbillede.jpg&Size=100> får den rigtige værdi, det er lige som om den ikke vil kalde på thumbnail.asp?
Nu vil jeg meget gerne have, hvis du vil poste dels thumbnail.asp og den kode kalder thumbnailer, det kan ikke passe at det ikke virker, jeg har selv brugt nøjagtig samme kode selv de sidste 6 mdr. !!
' Hvis filen størrelse er mindre end det ønskede udskrives billedets normale størrelse
if ImageHeight < size then Set Image = Server.CreateObject("AspImage.Image") Image.LoadImage "C:\Inetpub\wwwroot\foto\foto\images\" & request.querystring("FileName") Image.ImageFormat = 1 Image.JPEGQuality = 80 Response.BinaryWrite Image.Image Set Image = Nothing Set objImg = Nothing end if
' ellers laves der her et thumbnail i den ønskede size
Så er der noget andet galt, for koden virker, har du prøvet på dit webhotel ? Er du helt sikker på, at ASPImage virker på din lokale maskine ? Får du godt nok udskrevet din beskrivelse og hits ? Jeg skal gerne checke om koden virker, send mig dine filer og din database, så skal jeg kigge på det, for koden virker, det er jeg helt sikker på!
Da jeg kan se af ovenstående at goose er topXpert på ASPimage har jeg et enkelt spørgs - hvordan hulen installere man ASPimage på sin maskine - jeg har win98 og PWS installeret. Jeg har downloadet DLL-filer og program fra serverobjects, men kan ikke finde ud af, at installere skidtet. Kan goose hjælpe her. Hvordan tester man, at det virker?
Hej igen "Goose" Nu har jeg fået kikket noget på ovenstående og fået den til at hente, resize, komprimere og gemme men men. Kan det med ASPimage lade sig gøre at få en lignende funktion som ASPJpeg laver på http://support.persits.com/jpeg/pick_jpeg.asp
MVH
Carsten Mulvad
Synes godt om
Ny brugerNybegynder
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.