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

' ȡԴͼƬ·
Path = Server.MapPath("uploadimages/")&"/"&FileName

' ԴͼƬ
Jpeg.Open Path

' 趨ͼϸ кܶ趨 ķжϿ߱ Ȼ󰴱

If Jpeg.OriginalWidth / Jpeg.OriginalHeight > 1 then
Jpeg.Width = 98 
Jpeg.Height = int((98/Jpeg.OriginalWidth)*Jpeg.OriginalHeight)

elseif Jpeg.OriginalWidth / Jpeg.OriginalHeight < 1 then
Jpeg.Width = 98
Jpeg.Height= int((98/Jpeg.OriginalWidth)*Jpeg.Height)

end if


' 趨Ч
Jpeg.Sharpen 1, 130 
' ָ·ͼ
Jpeg.Save Server.MapPath("uploadimages/")&"/small"&FileName

