ASPJPEG综合操作的CLASS类(6)

Dim NewObj,NewCommand  
Set NewObj=New AspJpeg  
NewObj.MathPathFrom="f:/test.jpg"  
NewObj.MathPathTo="f:/reduce.jpg"  
NewCommand=NewObj.Img_Reduce  
Set NewObj=Nothing  
If NewCommand<>"" then  
Response.Write "Success"  
Else  
'图片操作过程中出现错误  
Response.Write "Failed"  
End If