call water_jpeg(filenameB)
調用aspjpeg組件生成縮略圖
Sub small_Jpeg(filenameB,filenameS)
Set Jpeg = Server.CreateObject("Persits.Jpeg") 調用組件
Path = Server.MapPath(filenameB) 待處理圖片路徑
Jpeg.Open Path '打開圖片
高與寬為原圖片的1/3
Jpeg.Width = Jpeg.OriginalWidth / 4
Jpeg.Height = Jpeg.OriginalHeight / 4
如果原來的1/4小於120px或大於150px,就等比例生成一張寬為150px的小圖
if Jpeg.Width < 120 or Jpeg.Width > 200 then
Jpeg.Width = 150
Jpeg.Height = Jpeg.OriginalHeight * 150 /
Jpeg.OriginalWidth
end if
Jpeg.Save Server.MapPath(filenameS)
Set Jpeg = Nothing
end Sub