Thumbnail med ASPimage

thumbnail.asp
--------------

<%
FileName=request.querystring("FileName")
size=Cint(request.querystring("size"))
PWidth=Cint(request.querystring("Width"))
PHeight=Cint(request.querystring("Height"))
Response.ContentType = "image/jpeg"
Set Image = Server.CreateObject("AspImage.Image")
Myfolder ="pics"
Image.LoadImage Request.ServerVariables("APPL_PHYSICAL_PATH")& "\billeder\" & FileName

'Image.AutoSize = false
'Image.FontName = "MS Sans Serif"
'Image.FontColor = vbRed
'Image.Bold = True
'Image.FontSize = 16
'Image.X = 1
'Image.Y = Image.MaxY = 5
'Image.TextOut "www.xxxx.dk", Image.X, Image.Y, true
'Image.FileName = "absolutte_sti_til_billede_mappe\" & FileName
'Image.SaveImage

ImageHeight = Image.MaxY
ImageWidth = Image.MaxX
Image.CreateButton 5,true
Image.ImageFormat = 1
Image.JPEGQuality = 80
if size>0 AND ImageWidth > size then
NewHeight = Cint(ImageHeight*size/ImageWidth)
NewWidth = size
Image.ResizeR NewWidth,NewHeight
end if
if PWidth >0 AND ImageWidth > PWidth then
NewHeight = Cint(ImageHeight*PWidth/ImageWidth)
NewWidth = PWidth
Image.ResizeR NewWidth,NewHeight
end if
if PHeight >0 AND ImageHeight > PHeight then
NewWidth = Cint(ImageWidth*PHeight/ImageHeight)
NewHeight = PHeight
Image.ResizeR NewWidth,NewHeight
end if


Response.BinaryWrite Image.Image
Set Image = Nothing
%>

vis_billede.asp
--------------

kaldes med:
<img src="thumbnail.asp?FileName=billede.jpg&width=120">

Har forsøgt at få det til at virke. Men kan ikke rigtig se hvad der skal ændres for at det burde fungere? er det stien man skal skrive, hvor billederne er placeret altså C:\bla\billeder ?

Det du skal ændre i thumbnail.asp er:

Image.LoadImage Request.ServerVariables("APPL_PHYSICAL_PATH")& "\billeder\" & FileName

Betrakt APPL_PHYSICAL_PATH som en sti på din computer, altså som f.eks c:\websites\ Den finder så automatisk frem til den mappe hvori dit website ligger, det eneste du behøver at ændre er stien til hvor dine billeder ligger.
Hvis dine billeder ligge en mappe oppe er stien altså \billeder\

Du skal så naturligvis også rette i <img src="thumbnail.asp?FileName=billede.jpg&width=120"> sådan at den peger det rigtige sted hen hvor thumbnail.asp ligger

Det vil ikke helt som jeg som...

Tror jeg roder lidt rundt i den sti..

Der hvor billederne ligger er i en upload mappen.

Thumb filerne ligger i en mappe længere ude (lidt ligesom upload)

skal det så ikke være ../upload/ ?

Selvfølgelig..
Lad mig give dig et mere håndgribeligt eksempel.

Hvis dit website f.eks. ligger i
C:\Inetpub\wwwroot\mitsite\

og dine billeder ligger i
C:\Inetpub\wwwroot\mitsite\uploads\

ja så skal det stå sådan her
Image.LoadImage Request.ServerVariables("APPL_PHYSICAL_PATH")& "\uploads\" & FileName

:)

Hmm det virker stadig ikke...

Har lavet to filer: thumbnail.asp og thumbtest.asp

thumbnail.asp :

<%
FileName=request.querystring("FileName")
size=Cint(request.querystring("size"))
PWidth=Cint(request.querystring("Width"))
PHeight=Cint(request.querystring("Height"))
Response.ContentType = "image/jpeg"
Set Image = Server.CreateObject("AspImage.Image")
Myfolder ="pics"
Image.LoadImage Request.ServerVariables("APPL_PHYSICAL_PATH")& "\upload\" & FileName

'Image.AutoSize = false
'Image.FontName = "MS Sans Serif"
'Image.FontColor = vbRed
'Image.Bold = True
'Image.FontSize = 16
'Image.X = 1
'Image.Y = Image.MaxY = 5
'Image.TextOut "www.xxxx.dk", Image.X, Image.Y, true
'Image.FileName = "absolutte_sti_til_billede_mappe\" & FileName
'Image.SaveImage

ImageHeight = Image.MaxY
ImageWidth = Image.MaxX
Image.CreateButton 5,true
Image.ImageFormat = 1
Image.JPEGQuality = 80
if size>0 AND ImageWidth > size then
NewHeight = Cint(ImageHeight*size/ImageWidth)
NewWidth = size
Image.ResizeR NewWidth,NewHeight
end if
if PWidth >0 AND ImageWidth > PWidth then
NewHeight = Cint(ImageHeight*PWidth/ImageWidth)
NewWidth = PWidth
Image.ResizeR NewWidth,NewHeight
end if
if PHeight >0 AND ImageHeight > PHeight then
NewWidth = Cint(ImageWidth*PHeight/ImageHeight)
NewHeight = PHeight
Image.ResizeR NewWidth,NewHeight
end if


Response.BinaryWrite Image.Image
Set Image = Nothing
%>


thumbtest.asp :

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<img src="thumbnail.asp?FileName=106.jpg&width=120">
</body>
</html>


Du kan se den på adresse www.miniklub-mv.dk/thumbtest.asp

Hmm er du sikker på at dit site understøtter ASP?
Når jeg skriver http://www.miniklub-mv.dk/thumbnail.asp prøver min browser at downloade filen, dette sker som regel kun hvis serveren ikke understøtter ASP

Den fil skal vel heller ikke kunne køres, er det ikke kun skabelonen til alle mulige andre thumbnails via thumbtest.asp?

Filen thumbnail.asp skal jo kunne køres, ellers kan koden i den jo ikke eksekveres og thumbnailen kan derfor ikke laves

Hmm. Underligt... Jeg har web10 (Windows) webhotel... Så det burde virke, jeg har også lige prøvet at indsætte dit eksempel igen...

Ja det ser udmiddelbart lidt besynderligt ud.
Kan se at din host både understøtter ASP og ASPImage.

Response object error 'ASP 0106 : 80020005'

Type Mismatch
/thumbnail.asp line 44

An unhandled data type was encountered.

Hvad står der i linje 44 ?

Det er nemlig det den gør...

Der står:

Response.BinaryWrite Image.Image

Ok.. Her kommer et spøjst spørgsmål..
Er du sikker på det er en billedfil den der 106.jpg?

For fejl meddelelsen betyder jo som det står:
An unhandled data type was encountered.

Prøv eventuelt med en anden billede fil... kun jpg, jpeg eller bmp

Har prøvet med et andet... 46.jpg

Linket til billedet er www.miniklub-mv.dk/upload/46.jpg

hmm den virker ikke?!

Så prøver vi med 102.jpg

http://www.miniklub-mv.dk/upload/102.JPG

Men den er ikke ændret i thumbtest.asp

Nu skulle den være der :)
Men virker ikke :(

Så prøv at rette følgende til:

Image.LoadImage Request.ServerVariables("APPL_PHYSICAL_PATH")& "upload\" & FileName

<img src="thumbnail.asp?FileName=102.jpg&width=120">

Og det her skal du bare slette da det er overflødig kode jeg har givet dig med

Og det var det her du bare skulle slette hehe :P

'Image.AutoSize = false
'Image.FontName = "MS Sans Serif"
'Image.FontColor = vbRed
'Image.Bold = True
'Image.FontSize = 16
'Image.X = 1
'Image.Y = Image.MaxY = 5
'Image.TextOut "www.xxxx.dk", Image.X, Image.Y, true
'Image.FileName = "absolutte_sti_til_billede_mappe\" & FileName
'Image.SaveImage

Så er det rettet.. :(

Og slettet :)

Okay.. ja hvorfor det stadig ikke virker kan jeg desværre ikke svare dig på.
Det er mig meget underligt da jeg aldrig har haft problemer med ovenstående script.

Det ser ikke ud til at komponentet virker på webhottelet. Lidt underligt når ASPupload virker hos dem.

Ja det er besynderligt.. De reklamerer jo med det ergo burde det jo også virke..
Måske skulle du skrive til dem og høre hvad der sker ?

Det tror jeg lige jeg gør.. Men du får mange tak for din gode indsats. Nu har jeg jo koden, som virker (hvis deres virker)

Så kan jeg ikke få dig til at smide en svar?

:) Håber du får styr på det med din host

Tak for points :)

Selv tak :)