Asp用图片压缩、水印控件

oldmht 2009-07-31 10:35:13
下载地址: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

...全文
51 点赞 收藏 2
写回复
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
oldmht 2009-11-12
是csdn很吝啬,下载要积分,无奈啊
回复
umisky 2009-07-31
楼主很吝啬。
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告