aspjpeg 給上傳圖片添加水印

　　call water_jpeg(filenameB)

　　調用aspjpeg組件生成縮略圖
Sub small_Jpeg(filenameBfilenameS)
 Set Jpeg = ServerCreateObject("PersitsJpeg")     調用組件
 Path = ServerMapPath(filenameB)        待處理圖片路徑
 JpegOpen Path 打開圖片 
 高與寬為原圖片的/
 JpegWidth = JpegOriginalWidth /
 JpegHeight = JpegOriginalHeight /
 如果原來的/小於px或大於px就等比例生成一張寬為px的小圖
 if JpegWidth < or JpegWidth > then
  JpegWidth =
  JpegHeight = JpegOriginalHeight * /

　　JpegOriginalWidth
 end if
 JpegSave ServerMapPath(filenameS)
 Set Jpeg = Nothing
end Sub

　　
 

From:http://tw.wingwit.com/Article/program/net/201311/14041.html