Asp Image

http://www.serverobjects.com/comp/Aspimage.htm

http://www.mpa-lifetech.de/Forum/aspObjects/Dynamic%20Image%20Thumbnails%20Using%20ASPImage%20and%20the%20FileSystemObject.htm

/Goose

Jeg har skrevet denne funktion som jeg selv bruger til det.

Hvis du vil bruge den skal du bare have lavet noget kode som gennemløber filerne i en mappe og kalder funktionen for hver fil.

Argumentet strName skal være filens navn
Argumentet strPath skal være stien til mappen i filsystemet.

' Opretter Thumbnail
Function CreateThumbnail(strName, strPath)
    Dim intWidth, intHeight, intResizeIndex, intNewDim, arrDims
    Dim intSize            : intSize = 50
    Dim oImage            : Set oImage    = Server.CreateObject("ASPImage.Image")
    Dim strOpenAs        : strOpenAs        = strPath & "\" & strName
    Dim strNewName    : strNewName    = "thumb_" & strName
    Dim strSaveAs        : strSaveAs        = strPath & "\" & strNewName
    Dim booDims            : booDims            = False
    Dim boo                    : boo                    = False
       
    oImage.LoadImage strOpenAs
    oImage.GetImageFileSize strOpenAs, intWidth, intHeight
   
    ' Sætter dimensioner for thumbnail
    booDims = MakeDimensions(intWidth, intHeight, arrDims)
    If booDims Then
        oImage.Resize arrDims(0), arrDims(1)
    End If
   
    oImage.FileName = strSaveAs
    boo = oImage.SaveImage
    Set oImage = Nothing
       
    CreateThumbnail = boo
   
End Function

Hov !

- og så skal du lige bruge funktionen MakeDimensions som jo er den der laver det vigtigste arbejde :S

' Laver streng med dimensioner til <img>
Function MakeDimensions(intWidth, intHeight, arrReturn)
    Dim strReturn, intResizeIndex
    Dim intSize : intSize = 50
    Dim boo            : boo = False
       
    If (intWidth > 0 And intHeight > 0) Then
        'Justerer dimensioner efter forholdet mellem bredde og højde
        If intWidth > intHeight Then
            intResizeIndex = intSize / intWidth
            intNewDim = intHeight * intResizeIndex
            arrReturn = Array(intSize,intNewDim)
            'strReturn = " width=""" & intSize & """ height=""" & intNewDim & """"

        Else
            intResizeIndex = intSize / intHeight
            intNewDim = intWidth * intResizeIndex
            arrReturn = Array(intNewDim,intSize)
            'strReturn = " width=""" & intNewDim & """ height=""" & intSize & """"
               
        End If
           
        boo = True
           
    End If
       
    MakeDimensions = boo
       
End Function