羅必達工作室

ASP圖檔處理

http://www.imagemagick.org/

Set img = CreateObject("ImageMagickObject.MagickImage.1")
msgs = img.Convert("-resize","100x100",inputfilename,out100fliename)
Set img = Nothing

[VBS測試範本]

'vbs檔內容開始, 將原始檔跟vbs檔在同一個目錄下
ScriptFullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
main_path = Replace(ScriptFullName,ScriptName,"")

A_path = main_path & "001.jpg" '原始檔
B_path = main_path & "002.jpg" '縮圖檔

Set img = CreateObject("ImageMagickObject.MagickImage.1")
img.Convert "-resize","500x500","-quality","0",A_path,B_path
Set img=Nothing
'vbs檔內容結束

[同樣的圖檔品質, 檔案更小]
msgs100 = img.Convert("-resize","500x500","-quality","0",input,output)