首页 | 心情日记 | 建站心得 | 编程技术 | 大盘分析 | 股市信息 | 学习园地 | 电脑技巧 | 物流外贸 | 另类其它 | 站长推荐 | 给我留言 | 相册

用户登陆
用户:
密码:
 
不保存保存一天
保存一月保存一年

站点日历
73 2020 - 10 48
    123
45678910
11121314151617
18192021222324
25262728293031


站点统计

最新评论

日志搜索

 标题   内容


ASP防止图片木马上传 aspJpeg图片水印无杂点完美解决方案
未知 asp图片加水印的功能   [ 日期:2010-07-23 00:53:05 ]   [ 来自:本站原创 ]

海外邮件中继,海外退信中继,美国高速VPS,不限流量VPN,邮局维护和管理,邮件网关,EMOS邮件中继,POSTFIX邮件中继,Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店:http://shantan.taobao.com 云邮科技官网:www.yunrelay.com

【字体设置:
'传入的参数是需要处理的图片路径,自己根据需要可以调整参数或者加入其它的参数
'文字水印
Function WordWatermark(ImagePath)
      Dim Image
      Set Image= Server.CreateObject("Persits.Jpeg")  ' 建立对象
      Image.Open server.mappath(ImagePath)  ' 图片所在位置
      Image.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑 
      Image.Canvas.Font.Family = "宋体"  ' 设置字体 
      Image.Canvas.Font.Bold = False '是否设置成粗体 
      Image.Canvas.Font.Size = 26 '字体大小 
      Image.Canvas.Font.Quality = 4 ' 文字清晰度
      Image.Canvas.Print Image.OriginalWidth/2-170,Image.OriginalHeight-30, "水印文字"   '水印文字
      Image.Save server.mappath(ImagePath)  ' 保存文件
      Set Image= Nothing
End Function

'图片水印
Function ImageWatermark(ImagePath)
    Set Image = Server.CreateObject("Persits.Jpeg")
    '确定要加入水印的图片路径
    PhotoPath = Server.MapPath(ImagePath)
    Image.Open PhotoPath
    '打开水印图片
    Set Logo = Server.CreateObject("Persits.Jpeg")
    LogoPath = Server.MapPath("logo.jpg") '水印的图片
    Logo.Open LogoPath    
    Logo.Width = 121 '水印图片的大小
    Logo.Height = 50
    Transition_Color = &h0066cc
    '将水印放置于上传图片中
    Image.DrawImage Image.width-150, Image.height-59, Logo,1,Transition_Color,90
'在这里可以更改水印所在的位置(photo.width-210,photo.height-40 这里我是放在了图片的右下角)还可以更改水印的透明度 
    '保存增加水印后的图片
    Image.Save Server.MapPath(ImagePath)

 Set Photo = Nothing
End Function



引用这个评论 任侠 于 2010-07-23 12:49:06 发表评论: 
呵呵,我就看热闹的,说是整天接触asp网站,实际对ASP知道的很少~

   发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:  我要注册 验证码: 
为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
确定发布?
最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!
点这里显示QQ表情【隐藏是为了加快网页打开速度】
 
   

CopyRight © 2008-2010 广东金融学院030904班 All Rights Reserved
Powered by www.030904.com