点击这里给我发消息 点击这里给我发消息 点击这里给我发消息 点击这里给我发消息 点击这里给我发消息 点击这里给我发消息 点击这里给我发消息 点击这里给我发消息 点击这里给我发消息 点击这里给我发消息  
 
 
  网站建设   广州威客   网上商机   网上商城   海讯黄页   网址天地   专区展示   社 区  
 
 
 
首 页  网站建设套餐  我要建站  案例欣赏  网站模板  服务区域  域名查询注册  企业邮局  主机空间  策划推广  海讯优势  客服中心  代理专区
各地分公司: 北京站 | 上海站 | 广州站 | 南宁站 | 郑州站 | 南京站 | 武汉站
   您现在的位置是:海讯集团>>案例欣赏>>类别>>详细内容
建站套餐[全部]
门户型¥5588-88880
购物型¥4688-38000
高级豪华型¥5688-18880
标准型宣传(¥6688)
普及型宣传(¥5888)
基础型宣传(¥4688)
经济型宣传(¥3388)
网站模板
 



asp图片加水印,asp图片上传时自动加水印


http://www.okit88.com    发布日期:2011-7-28 11:18:20    浏览次数:16348     < 返回 >

asp图片加水印,asp图片上传时自动加水印

方法比较笨哦,呵呵, 直接在上传类文件里加上下面的两个函数,第一个是添加文字水印,第二个是添加图片水印,引用方法就是当图片上传完后调用其中某一个函数就行了.
调用方法:AddPersitsText("要加水印的图片路径及名称"),   AddPersitsJpeg("要加水印的图片路径及名称") 


 程序代码
Public Function AddPersitsText(Path)   
        '************加文字水印**********************
        Dim Jpeg
        Set Jpeg = Server.CreateObject("Persits.Jpeg")
        Jpeg.Open Server.MapPath(Path)  '打开图片,Path为路片路径及名称   
        Jpeg.Canvas.Font.Color = &HFFFFFF  '后6位为文字颜色
        Jpeg.Canvas.Font.Family = "宋体"   '文字字体
        Jpeg.Canvas.Font.Bold = True   '是否加粗
        Jpeg.Canvas.Font.Size = 30   '字体大小
        Jpeg.Canvas.Font.Quality = 2
        Jpeg.Canvas.Font.ShadowXOffset = 1  
        Jpeg.Canvas.Font.ShadowYOffset = 1  '阴影效果
        Jpeg.Canvas.Pen.Color = &HFFFFFF    '水印背景颜色
        Jpeg.Canvas.Pen.Width = 3
        Jpeg.Canvas.Brush.Solid = False
        Jpeg.Canvas.Print (Jpeg.width-240)/2, Jpeg.height/2+30, "www.jdhcn.com"       '水印显示在图片上的XY位置
        Jpeg.Save Server.MapPath(Path)      '保存水印图片
        Set Jpeg = Nothing
    End Function

    Public Function AddPersitsJpeg(Path)   
        '**************加图片水印*******************
        Dim photo,logo,photopath,logopath
        Set Photo = Server.CreateObject("Persits.Jpeg")
        PhotoPath = Server.MapPath(Path)  'Path为路片路径及名称
        Photo.Open PhotoPath   '打开图片
        Set Logo = Server.CreateObject("Persits.Jpeg")
        LogoPath = Server.MapPath("../images/imglogo.gif")   '水印图片的路径
        Logo.Open LogoPath
        Logo.Width = 300   '水印图片的宽度
        Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth
        Photo.Canvas.Pen.Color  = &H000000    '水印背景颜色
        Photo.Canvas.Pen.Width  = 1   
        Photo.Canvas.Brush.Solid = False 
        Photo.DrawImage (photo.width-350)/2, photo.height/2+30, Logo,0.1
        photo.Save Server.MapPath(Path)  ''水印显示在图片上的XY位置
        Set logo = Nothing
        Set photo = Nothing       
    End Function

 
案例推荐
广州市聚丰投资咨询有限公司
广州市聚丰投资咨询有...
关健词:广州市聚丰投资...
百度排名:第一页
[类别-]  [详情]
恺尔·柏顿服饰有限公司
恺尔·柏顿服饰有限公...
关健词:恺尔·柏顿服饰...
百度排名:第一页
[类别-]  [详情]
LONGSINTEN TECH NORTH AMERICA MILITARY OUTFIT广州龙是英腾电子科技有限公司
LONGSINTEN...
关健词:Three-p...
百度排名:第一页
[类别-]  [详情]
最新行业报道
· 页面注册指向和返回  - [2013-9-30]
· 记录网页浏览次数,记录浏次数  - [2013-9-30]
· 月份的英文缩写,月份的英文写...  - [2013-9-30]
· 网站制作-输入框只能输入数字  - [2013-9-30]
· QQ客服在页面固定位置的代码  - [2013-9-28]
· flash全屏代码,flas...  - [2013-9-28]
网站建设技术专题
· QQ在线咨询显示未启用,QQ...  - [2013-5-21]
· 点击下载按钮 自动...  - [2013-4-27]
· [88229999]com....  - [2013-1-15]
· 如何查看服务器PID,W3W...  - [2011-12-25]
· 来源W3SVC 事...  - [2011-12-23]
· sql数据库连接语句,sql...  - [2011-12-22]
案例类别
木业、木材加工
会展、设计、策划类
动漫、游戏机、福彩
外语、翻译、律师事务
生物养生、风水易经
家政劳务、搬家、移民
购物类,综合类
政府、行业、门户型
服装、鞋帽、布料
皮具、皮包、文件夹
旅游、机票、酒店
二手车交易、旅游租车
母婴、日用、化妆品
美容、美体、美发
医药、保健、医疗器械
婚庆、礼仪庆典
投资、顾问、咨询
电子、五金、机械
环保、化工、涂料
教育培训、文化、娱乐
房地产、房屋租赁
IT科技、软件、通信
金融、股票保险、财经
建筑、建材、装饰
食品、饮料(酒)、茶叶
家居、家电、电器
工艺品、礼品、鲜花
办公、文教、乐器
广告、包装、雕刻印刷
汽车、物流、汽配
物业、票务、船务
仪器、仪表、保险柜
摄影、冲印、玩具
拍卖、投资、典当
珠宝、首饰品
钟表、眼镜
照明、水电、能源
演艺、体育、文体用品
贸易、出口、报关
宠物、宠物食品
交友网站
音响,影院,器械设备
网站建设技术专题
· QQ在线咨询显示未启用,QQ在线... - [2013-5-21]
· 点击下载按钮 自动更新... - [2013-4-27]
· [88229999]com.te... - [2013-1-15]
· 如何查看服务器PID,W3WP.... - [2011-12-25]
· 来源W3SVC 事件I... - [2011-12-23]
· sql数据库连接语句,sql数据... - [2011-12-22]
· W3wp.exe 进程... - [2011-12-22]
· 服务器CPU占用过高,w3wp.... - [2011-12-22]
· asp图片加水印,asp图片上传... - [2011-7-28]
海讯专题报道
· 怎么制作网页 - [2010-11-27]
· 网页设计职业和前景怎么样呀,网页... - [2010-11-19]
· 要作网页怎么做才好 - [2010-11-19]
· 日子一天天过去 - [2010-11-16]
· 在PHOTOSHOP里边如何用笔... - [2010-11-16]
· 如何创建一个冲击波场景,用PHO... - [2010-11-16]
· 对于文字排版的学习,中国汉字在编... - [2010-11-15]
· 工程师,怎样才能设计一个好的lo... - [2010-11-15]
· 一个商业平面设计师的几点心得 - [2007-3-6]
最新行业报道
· 页面注册指向和返回 - [2013-9-30]
· 记录网页浏览次数,记录浏次数 - [2013-9-30]
· 月份的英文缩写,月份的英文写法 - [2013-9-30]
· 网站制作-输入框只能输入数字 - [2013-9-30]
· QQ客服在页面固定位置的代码 - [2013-9-28]
· flash全屏代码,flash全... - [2013-9-28]
· 域名更改解析后 打不开网站。电脑... - [2013-5-29]
· 360浏览器拦截网站,百度拦截网... - [2013-5-29]
· js中的Mid()函数对应的JS... - [2013-5-21]
域名|邮箱|主机产品
企业邮箱 VPS主机 特惠主机 美国主机 香港主机 欧洲主机 短信网址 中文域名 国际域名
企业邮箱 VPS主机 特惠主机 美国主机 香港主机 欧洲主机 短信网址 中文域名 国际域名
  关于海讯 | 加盟合作 | 服务指南 | 诚聘英才 | 服务项目 | 监督热线 | BBS论坛
版权所有:广州IT服务中心  广州海讯电子科技有限公司 ◎ 2006-2010    服务手机:15918582336
服务电话:020-82161215 020-85832530    地址:广州天河车陂路天隆花园B1栋。(车陂文化广场傍),
地铁车陂南站C出口,大概100米,(车陂公交场正对面,278,B15,B12,548,568路等) 易先生 刘小姐 周先生 宋小姐
常年法律顾问:黄律师 执证号:190001112580    您是第 51768313 位来访者   服务邮箱:okit168@okit88.cn 
网站地址:http://www.okit88.com 国信备案号:粤ICP备07032675号
客服一:710884198  客服二:475145816  客服三: 253549058  客服四:33207742 技术一:358545054  技术二:356525438
在线MSN: okit88@126.com  在线MSN:okit888@126.com    在线MSN:okit8888@126.com
专业提供域名注册、空间租用、FLASH制作、网站建设、网站制作、网管出租、IT外包、网站推广策划