上传图片加文字水印改成加图片水印的方法

源来插件的文件大家可以找阳光校园的.

修改在UPLOAD.asp中  先定义两个参数.一个是logo 还有是logopath

制作一个水印图片.我的是这样的.注意底色.


然后修改


Code:
IF upload_pretxt<>"" and upfile_name2<>"gif" Then
ogvbox.Canvas.Font.Color = &H3300CC
ogvbox.Canvas.Font.Family = "monospace"
ogvbox.Canvas.Font.Size = 12
ogvbox.Canvas.Font.Bold = True
ogvbox.Canvas.Print 10, 10, upload_pretxt
ogvbox.Canvas.Pen.Color = &H000000
ogvbox.Canvas.Pen.Width = 1
ogvbox.Canvas.Brush.Solid = False
ogvbox.Canvas.Bar 1, 1, ogvbox.Width, ogvbox.Height
ogvbox.Save Server.MapPath(imagename)
End If


成



Code:
Set Logo = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath("shuiyin.gif") '水印图片所在的路径（这里是放在站点的根目录下）
Logo.Open LogoPath
' 重新定义水印图片的大小,我省略掉了.感觉没用.
'Logo.Width = 100 '更改水印图片的宽度
'Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth '按照原先的长宽比计算新的水印高度
ogvbox.DrawImage ogvbox.width-155, ogvbox.height-25, logo,0.8,&hff00ff
ogvbox.Save Server.MapPath(imagename)
End If


就ok了..这是是主要的上传加水印.其他缩微图什么的对照这个改就是了..

说明一些参数 ogvbox.width-155, ogvbox.height-25 这个是我把水印定到了右下角  0.8这个是水印透明度 值为1-0.    &hff00ff 图片镂空的颜色..我的是紫色



http://www.joekoe.com/forum/view_52800.vhtml

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: