'miniature="../miniature/"&fname
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("2005.jpg")
obj.Quality=75
obj.OutputSpic server.mappath("../miniature/2005.jpg"),0.5,0.5,3
if strError<>"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
response.Write("successful!")
%>