AspImage hvordan ?

hvad tænker du på? loade det fra serveren eller ved upload?

loade det fra serveren jeg har en mappe der hedder Images der ligger de store billeder i dem vil jeg gerne vise som thumbnail.

hvis du loader billedet, resizer det du skal så kan du udskrive billedet vha Response.BinaryWrite

så sætter du bare asp-filen indeholde ASPimage-koden ind som src i et img-tag

keysersoze >> jeg har prøvet dette men den viser ikke noget

FilSti = "d:\Inetpub\xxxxxxx\keld\images\"
FileName = FilSti&Request.Querystring("FileName")

'response.write FileName

If FileName <> "" Then 
Set FileObject = CreateObject("Scripting.FileSystemObject") 

If FileObject.FileExists(FileName) Then
   
If Request("Size") <> "" Then     
Size = Int(Request("Size"))   
Else     
Size = 50   
End If

Response.Expires    = 0   
Set Image            = Server.CreateObject("AspImage.Image")   
Response.ContentType = "image/jpeg"   
Image.LoadImage (FileName)

Width    = Image.MaxX   
Height  = Image.MaxY

If Width < Size Then
Size = Width   

If Width > Height Then     
NewWidth  = Round(Size/Width,2)     
NewHeight = Int(NewWidth*Height)     
Image.Resize Size,NewHeight   
Else     
NewHeight = Round(Size/Height,2)     
NewWidth  = Int(NewHeight*Width)     
Image.Resize NewWidth,Size   
End If

Image.CreateButton 5,true   
Image.ImageFormat = 1   
Image.JPEGQuality = 50   
ProgressiveJPEGEncoding = true   
Response.BinaryWrite Image.Image   
Set Image = nothing 
End If 
Set FileObject = nothing
End If

End if


Har du en stump kode jeg kan kikke på ????

Jada så virker det sgu


<%
FilSti = "d:\Inetpub\xxxxxxx\keld\images\"
FileName = FilSti&Request.Querystring("FileName")

'response.write FileName

If FileName <> "" Then 
Set FileObject = CreateObject("Scripting.FileSystemObject") 

If FileObject.FileExists(FileName) Then
   
If Request.Querystring("Size") <> "" Then     
Size = Int(Request.Querystring("Size"))     
Else     
Size = 50   
End If

Response.Expires    = 0   
Set Image            = Server.CreateObject("AspImage.Image")   
Response.ContentType = "image/jpeg"   
Image.LoadImage (FileName)

Width    = Image.MaxX   
Height  = Image.MaxY


'response.write width 

If Width > Size Then
   

If Width > Height Then     
NewWidth  = Round(Size/Width,2)     
NewHeight = Int(NewWidth*Height)     
Image.Resize Size,NewHeight   
Else     
NewHeight = Round(Size/Height,2)     
NewWidth  = Int(NewHeight*Width)     
Image.Resize NewWidth,Size   
End If

Image.CreateButton 5,true   
Image.ImageFormat = 1   
Image.JPEGQuality = 50   
ProgressiveJPEGEncoding = true   
Response.BinaryWrite Image.Image   
Set Image = nothing 
End If 
Set FileObject = nothing
End If

End if
%>

erhm - ja... tak for hjælpen

Damid sorry keysersoze men jeg var helt overstadig da jeg fik det til at virke selv.
Er det ok med dig at vi deler opint 50/50 ??
Så vil jeg oprette et SP så du kan få dine point ??

http://www.eksperten.dk/spm/473412