ASP+Persits.Jpeg水印处理全部代码含说明
<%
strJS="<SCRIPT language=javascript>" & vbcrlf
if FoundErr<>true then
randomize
ranNum=int(900*rnd)+100
filename=SavePath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
ofile.SaveToFile Server.mappath(FileName) '保存文件
'=============================================================
'这里不用管,可以对照上传类....在这里插入以下代码就可以实现咯.
'流星追月制作 QQ:85964144 转载请注明出处哦!
'对上传完的图片再进行水印处理.
'=============================================================
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 建立对象
If -2147221005=Err then
Response.write "没有这个组件，请安装!" '检查是否安装AspJpeg组件
Response.End()
End If
Jpeg.Open Server.mappath(FileName) ' 取得图片所在位置
If err.number then
Response.write"打开图片失败,请检查路径！"
Response.End()
End if
Dim aa
aa=Jpeg.Binary '将原始数据赋给aa
'=========加文字水印=================
Jpeg.Canvas.Font.Color = &H000000 '水印文字颜色
Jpeg.Canvas.Font.Family = "Courier New" '字体
Jpeg.Canvas.Font.Bold = False '是否加粗
Jpeg.Canvas.Font.Size = Jpeg.OriginalWidth/14.5 '字体大小
Jpeg.Canvas.Font.ShadowColor = &H000000 '阴影色彩
Jpeg.Canvas.Font.ShadowYOffset = 1
Jpeg.Canvas.Font.ShadowXOffset = 1
Jpeg.Canvas.Brush.Solid = True
Jpeg.Canvas.Font.Quality = 0 '输出质量
Jpeg.Canvas.PrintText Jpeg.OriginalWidth/30,Jpeg.OriginalHeight/2,"Copyright 818dior.com" '水印位置及文字
bb=Jpeg.Binary '将文字水印处理后的值赋给bb,现在文字水印还没有透明度
'以下是对图片调整文字透明度
Set MyJpeg = Server.CreateObject("Persits.Jpeg")
MyJpeg.OpenBinary aa
Set Logo = Server.CreateObject("Persits.Jpeg")
Logo.OpenBinary bb
MyJpeg.DrawImage 0,0,Logo, 0.3 '0.3是透明度
cc=MyJpeg.Binary '将最终结果赋值给cc,这时也可以生成目标图片了
'对图片进行缩放50%.
MyJpeg.Width = Jpeg.OriginalWidth /2
MyJpeg.Height = Jpeg.OriginalHeight /2
'response.BinaryWrite cc '将二进输出给浏览器
MyJpeg.Save Server.mappath(FileName) '重新保存文件
set aa=nothing
set bb=nothing
set cc=nothing
Jpeg.close
MyJpeg.Close
Logo.Close
'以下为图片保存成功信息!请自己添加...
%>
：