Asp上传图片加水印文字[代码精简]

<%
 Dim Jpeg,MyJpeg,TempA,TempB,TempC

 Set Jpeg = Server.CreateObject("Persits.Jpeg")  '建立对象
 Jpeg.Open server.mappath(<图片路径>)    '图片所在位置

 TempA = Jpeg.Binary '将原始数据赋给TempA
 
 Jpeg.Canvas.Font.Color = &H00000 ' 颜色,这里是设置成:黑
 Jpeg.Canvas.Font.Family = "宋体"  ' 设置字体
 Jpeg.Canvas.Font.Bold = False '是否设置成粗体
 Jpeg.Canvas.Font.Size = 14 '字体大小
 Jpeg.Canvas.Font.Quality = 5 ' 文字清晰度
 Jpeg.Canvas.Print Jpeg.OriginalWidth-60,Jpeg.OriginalHeight-30, "No.1网络"   '水印文字

 TempB = Jpeg.Binary

 '-- 调整文字透明度
 Set MyJpeg = Server.CreateObject("Persits.Jpeg")
 MyJpeg.OpenBinary TempA
 Set Logo = Server.CreateObject("Persits.Jpeg")
 Logo.OpenBinary TempB
 MyJpeg.DrawImage 0,0,Logo,0.2  '0.2是透明度
 TempC = MyJpeg.Binary    '将最终结果赋值给TempC,这时也可以生成目标图片了

 MyJpeg.Save server.mappath(<图片路径>)  '保存文件
 
 set TempA=nothing
 set TempB=nothing
 set TempC=nothing
 Jpeg.close
 Set Jpeg = Nothing
 MyJpeg.Close
 Logo.Close
%>