<% '::::::::::::::::::::::::::::::::::::::::::::::::::::::::: '::: ::: '::: 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 "" For Each f1 in objFC response.write "" response.write "" else response.write " " end if response.write "" Next response.write "
" & f1.name & "" & f1.DateCreated & _ "" & f1.Size & "" if gfxSpex(f1.Path, w, h, c, strType) = true then response.write w & " x " & h & " " & c & " colorsbad image
" set objFC = nothing set objF = nothing set objFSO = nothing %>