如何?ASP上傳圖片自動產生縮圖

'lj1 原圖路徑

'tu 圖片名稱

'lj2 縮
略圖
存放路徑

function CreatePic(lj1,tu,lj2)

dim Jpeg,Path

Set Jpeg = Server.CreateObject("Persits.Jpeg")

Path = server.mappath(lj1& "/" &tu) ' 圖片所在位置

Jpeg.Open Path ' 開啟

if Jpeg.OriginalWidth>Jpeg.OriginalHeight then ' 設定縮圖
大小（這裡
比例設定為50%）

Jpeg.Width =90

Jpeg.Height = Jpeg.OriginalHeight / (Jpeg.OriginalWidth / 90
)

else

Jpeg.Height =90

Jpeg.Width = Jpeg.OriginalWidth / ( Jpeg.OriginalHeight/ 90)

end if

Jpeg.Save server.mappath(lj2 & "/"&tu) ' 儲存縮圖
到指定檔案
夾下

Set Jpeg = Nothing ' 登出執行個體

end function