新丰家园

标题: 94kk2.1上传图片自动加上水印的方法（需组件支持） [打印本页]

作者: 科科 时间: 2006-5-10 01:02
标题: 94kk2.1上传图片自动加上水印的方法（需组件支持）

需要服务器支持aspjpeg组件，查看自己的空间是否支持这个组件的方法：

把下面的代码保存为test.asp，放到你的空间，然后访问他，就可以看出是否支持，如果不支持，那就没办法了,如果支持，可以继续往下看。

<% on error resume next
Set Jpeg = Server.CreateObject("Persits.Jpeg")
if err.number<>0 then
Response.Write"不支持"
Else
Response.Write"支持"
End If
%>

（二）加入图片水印的方法

找到

Upload.SaveData FilePath,"",0

替换为
Upload.SaveData FilePath,"",0
If Lcase(upload.FileTypeName)="jpg" Or Lcase(upload.FileTypeName)="bmp" Then
On Error Resume Next
Dim Jpeg,Logo
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Set Logo = Server.CreateObject("Persits.Jpeg")
Logo.Open server.mappath("logo.gif")
Jpeg.Open Server.MapPath(FilePath&"/"&Upload.FileName)
Jpeg.Canvas.Pen.Color = &H000000 ''颜色
Jpeg.Canvas.Pen.Width=1
Jpeg.Canvas.Brush.Solid = False
Jpeg.Canvas.DrawImage (Jpeg.Width-100),(Jpeg.Height-50),Logo,0.3,&HFFFFFF
''参数顺序为：水平坐标，垂直坐标，水印图片地址，水银透明度，抽取颜色（&H表示16进制）
Jpeg.Canvas.Bar 0,0,Jpeg.Width,Jpeg.Height
Jpeg.Save Server.MapPath(FilePath&"/"&Upload.FileName)
End If

就可以了。然后做一个logo.gif的图片，背景弄成透明的，放在论坛跟目录就可以了。

ワワ

欢迎光临新丰家园 (https://xinfengbbs.com/)