Asp用图片压缩、水印控件

[oldmht]

下载地址：http://download.csdn.net/source/1533699

【说明】
安装：
拷贝ijl15.dll至系统目录(winnt/system32)
运行 regsvr32 webpictools.dll

用法：
dim picTool
set picTool = createObject("webPicTools.picTool")
picTool.loadPic "D:\wwwroot\压缩+水印\web\test.jpg"
'以下设置图片强制宽度800，高度自动，质量85，不设宽度高度上限
picTool.width=800
picTool.height=0
picTool.widthMax=0
picTool.heightMax=0
picTool.Quality=85
'以下设置水印图片、透明度、位置
picTool.picFileNameSY="D:\wwwroot\压缩+水印\web\test_sy.gif"
picTool.alphaSY=0.3
picTool.topSY=-1
picTool.leftSY=-1
picTool.savePic "D:\wwwroot\压缩+水印\web\test_ok.jpg"
document.write picTool.width & " " & picTool.height
set picTool = nothing

[umisky]

楼主很吝啬。

[oldmht]

是csdn很吝啬，下载要积分，无奈啊