aspjpeg 添加水印教程及生成缩略图教程
来源：asp之家 发布时间：2011-04-04 11:04:00
1、为图片加入水印功能
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 建立对象
Jpeg.Open BlogPath & "/upload/" & FileName ' 图片所在位置
Jpeg.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑
Jpeg.Canvas.Font.Family = "方正隶变简体" ' 设置字体
Jpeg.Canvas.Font.Bold = False '是否设置成粗体
Jpeg.Canvas.Font.Size = 26 '字体大小
Jpeg.Canvas.Font.Quality = 4 ' 文字清晰度
Jpeg.Canvas.Print Jpeg.OriginalWidth/2-170,Jpeg.OriginalHeight-30, "WWW.WILLIAMLONG.INFO" '水印文字
Jpeg.Save BlogPath & "/upload/" & FileName ' 保存文件
Set Jpeg = Nothing
2、为图片制作缩略图
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 建立对象
Jpeg.Open BlogPath & "/upload/" & FileName ' 图片所在位置
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
' 设置缩略图大小（这里比例设定为50％），也可以给他准确的数值，比如Jpeg.Width=120
Jpeg.Save BlogPath & "/upload/" & FileName ' 保存文件
Set Jpeg = Nothing
0
投稿猜你喜欢
啊，inline-block，挺难琢磨并且迷人的声明上承诺了很多，其实提供了很少。很多次我拿到类似这样的 PSD 文件：就哭了。一般说来，这- 在计算机中数据有两种特征：类型和长度。所谓数据类型就是以数据的表现方式和存储方式来划分的数据的种类。在SQL Server 中每个变量、参数
- 见下：<％ FOR i = 1 TO 1000 n =
- 昨天我问过这个问题怎么用ADODB.Stream来读取或写入文件，而不是用fso，不过没人回答到点上,今天搞定了.贴出来给觉得有用的朋友,希
- 问：怎样解决MySQL 5.0.16的乱码问题？答：MySQL 5.0.16的乱码问题可以用下面的方法解决：1.设置phpMyAdminLa
- asp使用fso读取驱动器信息：<％vv=drive()response.write vv funct
- 传统的HTML页面中连动下拉框采用了两种方法：1）直接将下拉框中的内容hardcode于html的javascript中，调用javascr
- 一、正则表达式概述 如果原来没有使用过正则表达式，那么可能对这个术语和概念会不太熟悉。不过，它们并不是您想象的那么新奇。请回想一下在硬盘上是
- 内容摘要：除了内部性能增强和优化外，IIS6.0版本的 Active Server Pages(ASP)&nb
- 雅虎的BrowserPlus在曝光了N久后终于发布了，一款类似于Google Gears的浏览器增强插件。在支持的操作系统方面，Gears明
- 忽然想起一个CSS的特性，写一段代码玩玩：<style type="text/css">body {font
- 在我们制作网页的时候会经常碰到一些需求，如果不知道方法，说不定会困扰我们半天。其实实现它们都很简单，下
- 因为写js经常需要用到访问样式，我们常用的做法是通过 DOM.style.XXX来读写样式信息的。可是DOM.style这种写法只能访问&l
- 作为微软推出的网页与数据库解决方案，ASP由于有微软得天独厚的操作系统等技术后盾支持，因此得到了迅速的发展，并且正受到越来越多的欢迎，在目前
- 1：构图图形的层次感图形和元素之间的层次感，可以在干扰视觉的同时，突出自身所想体现的主题，这种表现方式往往是比较直接而且有效的方式。我们所说
- 往往我们在建立一个较为大型的网站的时候会有很多的副页面框架模式甚至一些小的细节元素都是相同的,但是令人困扰的是在更新它们时却要费些周折，要一
- 如何只取数据库的前3条记录？怎么控制只取得前3行数据 这要看是什么类型的数据库了，对于Access和SQ
- 获取一组radio被选中项的值var item = $(’input[@name=items][@checke
- COM接口VC实现,接口: [id(1), helpstring("method Test"
- 今天运行程序时，在Oracle中输入SQL语句：select * from USERS as u ，程序报错输入select * from
