大连网站制作客服
主营业务
  • 网站制作
  • 网站维护
  • 网站推广
  • 域名空间
联系电话
联系人:尹先生
QQ:1050706570
E-mail:biz@noonenet.cn
地址:大连市甘井子区哲林北园29号
·首页 >> 网站技术 >> Asp上传图片加水印文字[代码精简]

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

  更新时间:2009-9-7 12:06:03    编辑:阿帆

多说无益,直接看代码...

以下是代码片段:

<%
 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
%>


 

 

原载: No.1网络工作室 http://www.noonenet.cn/
版权声明:原创作品,允许转载,转载时请务必以超链接形式标明文章原始出处、作者信息和本声明。否则将追究法律责任。


Tags:asp 上传 图片 水印 文字 效果
同类文章:
· IE快捷设置功能代码汇总
· Asp - 连续分页打印实现的重点
· 带链接的标题 - js打字效果
· Asp优化篇 - 不用eof加快记录循环
· js脚本 - 点击复制[非常实用]
返回新闻列表
top
本站关键字:大连网站制作 - 大连网站建设 - 大连网页制作
CopyRight © 2009-2012 No.1网络工作室 All Rights Reserved  sitemap
地址:大连市甘井子区哲林北园29号 电话:13889684613 E-mail:biz@noonenet.cn QQ:1050706570
logo