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
