Problemer med Aspimage
Jeg kan ikke få Dette script til at virke. Det virker som om at jeg ikke får lov til at laveServer.CreateObject("AspImage.Image") objektet.
Skal der installeres noget?
<%
Option Explicit
'thumbnail.asp
dim FileName,iSize
FileName=request.querystring("FileName")
iSize=Cint(request.querystring("size"))
Response.ContentType = "image/jpg"
'*** get width/height of original image
Set Image = Server.CreateObject("AspImage.Image")
strFileSpec = Server.MapPath(FileName)
Image.LoadImage strFileSpec
ImageHeight = Image.MaxY
ImageWidth = Image.MaxX
Image.ImageFormat = 1
Image.JPEGQuality = 80
if ImageHeight > iSize then
NewHeight = Cint(ImageHeight*iSize/ImageWidth)
NewWidth = iSize
Image.ResizeR NewWidth,NewHeight
end if
Response.BinaryWrite Image.Image
Set Image = Nothing
%>
Fejlen er:
Error Type:
Server object, ASP 0177 (0x800401F3)
Invalid class string
/thumbnail.asp, line 10
linie 10 er:
Set Image = Server.CreateObject("AspImage.Image")
