用ASP为图片加水印

现在大部分网站都给图片加上自己的水印，也有不少人问用ASP打水印的方法。用ASP为图片加水印有一个很好用的组件—— wsImage（貌似最新版本是3.5），还是国人开发的^_^

首先要注册组件：在命令提示符下输入”regsvr32 [Dll路径]” 就可以了。

添加文字水印的方法：

AddTxtMark 方法

AddTxtMark是在原图片上添加文字水印，并输出新的图片文件.

语法

AddTxtMark TargetFile, strText, TextColor, lTop, lLeft, nTxtOpacity, nShadeColor, nShadeOpacity,
nShadeAngle, nShadeDistance , nShadeBlur

TargetFile 返回新的图片文件的路径
strText 要添加的文字；
TextColor 要添加的文字的颜色；
lTop 要添加的文字在原图片上的顶边距；
lLeft 要添加的文字在原图片上的左边距。 [#afdream.com#]
nTxtOpacity 文字透明度,范围0-100， 0-全透明 100-全不透明(缺省值)，可选参数；
nShadeColor 阴影颜色 缺省值为0，即黑色，可选参数；
nShadeOpacity 阴影透明度 范围0-100， 0-全透明 100-全不透明(缺省值)，可选参数；
nShadeAngle 阴影角度 范围0-360，缺省值为45，即右下方向，可选参数；
nShadeDistance 阴影距离 即阴影离文字的距离，缺省值为0，可选参数；
nShadeBlur 阴影模糊距离 缺省值为0，即阴影没有渐进感，可选参数；

返回值：
1：成功
0：失败

Asp代码示例：

<%
set obj=server.CreateObject(“wsImage.Resize”)
obj.LoadSoucePic server.mappath(“25.jpg”) ‘要加水印的图片
obj.Quality=75
obj.TxtMarkFont = “Tahoma”
obj.TxtMarkBond = false
obj.MarkRotate = 25
obj.TxtMarkHeight = 25
obj.AddTxtMark server.mappath(“txtMark.jpg”), “fdream.net”, &H00FF00&, 10, 70
strError=obj.errorinfo
if strError<>“” then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>

添加图片水印方法：

AddImgMark 方法

AddImgMark是在原图片上添加图片水印，并输出新的图片文件.

语法

AddImgMark TargetFile, lTop, lLeft, TransColor, Opacity where

TargetFile 返回新的图片文件的路径；
lTop 要添加的图片在原图片上的顶边距；
lLeft 要添加的图片在原图片上的左边距；
Opacity 水印的透明度。

Asp代码示例：

<%
set obj=server.CreateObject(“wsImage.Resize”)
obj.LoadSoucePic server.mappath(“25.jpg”)
obj.LoadImgMarkPic server.mappath(“afdream.bmp”)
obj.Quality=75
obj.AddImgMark server.mappath(“imgMark.jpg”), 315, 220,&hFFFFFF, 70
strError=obj.errorinfo
if strError<>“” then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>