% '::::::::::::::::::::::::::::::::::::::::::::::::::::::::: '::: ::: '::: SCRIPT: testpropresize.asp ::: '::: AUTHOR: shaffer ::: '::: DATE: 11-Jan-01 ::: '::: PURPOSE: Test/show the operation of the resize ::: '::: (proportional) function ::: '::: ::: '::::::::::::::::::::::::::::::::::::::::::::::::::::::::: %> <% ' To test, we'll just try to show all files with a .GIF extension in ' the root of C: by fitting them to a common area (75 pixels x 45 pixels) dim objFSO, objF, objFC dim f1, w, h, c, strType Set objFSO = CreateObject("Scripting.FileSystemObject") Set objF = objFSO.GetFolder(Server.MapPath("/gallery/holiday/")) Set objFC = objF.Files response.write "
" & f1.name & " | " & f1.DateCreated & _ " | " & f1.Size & " | " if gfxSpex(f1.Path, w, h, c, strType) = true then response.write w & " x " & h & " " & c & " colors | " response.write "" else response.write " | bad image | " end if response.write "