论坛 Forum

请教如何在上传图片时加水印，asp代码如何写？万分感谢！！！

红色代码asp代码加进为什么总是失败！！！

代码如下：

....

filePath = Server.mappath(savePath & file.filename)

'/////

'加载原始图片
 Set jpeg = Server.CreateObject("Persits.Jpeg")
 jpeg.RegKey="48958-77556-02411"
 jpeg.OpenBinary data
 width = jpeg.width
 height= jpeg.height
 jpeg.Quality=100

 
 '水印文字
 jpeg.Canvas.font.color=&HFFFFFF   '字体颜色
 jpeg.Canvas.font.Family = "宋体"   '字体
 jpeg.Canvas.font.ShadowColor = &H000000   '阴影颜色
 jpeg.Canvas.font.ShadowXoffset = 1   '阴影偏移
 jpeg.Canvas.font.ShadowYoffset = 1   '阴影偏移
 jpeg.Canvas.font.Bold = false    '是否粗体
 jpeg.Canvas.font.size= 14   '字体大小
 text = "水印文字" '水印文字
 jpeg.Canvas.Printtext (width-152-20),(height-fontsize-20),text   '152为水印文字的宽度，20右边距和下边距

 jpeg.save filePath '保存到文件夹
 jpeg.close
 set jpeg=nothing

'////

fileUrl = saveUrl & file.filename

Set upload = nothing
Set file = nothing

。。。。。。。。。。。。