社区
ASP
帖子详情
感谢大家!实在感谢你们了,实在太喜欢这里了
yh235
2007-03-30 12:07:03
嘿嘿~因为大家,困绕我好几天的问题终于得到解决了~轻松多了~
真的太感谢大家了,都不知道该怎么说了 嘿嘿
现在问一个不太重要的问题啊
怎样把服务器中用户上传的图片全部加上水印?
用ASP怎么才能做到啊?我只是想知道
...全文
171
10
打赏
收藏
感谢大家!实在感谢你们了,实在太喜欢这里了
嘿嘿~因为大家,困绕我好几天的问题终于得到解决了~轻松多了~ 真的太感谢大家了,都不知道该怎么说了 嘿嘿 现在问一个不太重要的问题啊 怎样把服务器中用户上传的图片全部加上水印? 用ASP怎么才能做到啊?我只是想知道
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
10 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
yh235
2007-03-30
打赏
举报
回复
那要是3万多张图片批量增加水印的话会不会....导致服务器死机啊
服务器上好几万张图片的
libao1983
2007-03-30
打赏
举报
回复
批量加水印就是批量调用上面我贴的加水印的程序阿
写个循环就可以了
yh235
2007-03-30
打赏
举报
回复
我知道用组件啊
但是怎样才能批量增加水印?
libao1983
2007-03-30
打赏
举报
回复
aspjpeg高级使用方法
这里的技术主要包括:
图片缩略
图片水印
安全码技术
图片切割
图片合并
数据库支持
更多不常用的方法介绍
以及相关的一些实用技术
aspjpeg唯一点不足的就是输出方式比较单一。在这里,我们主要谈将图片处理保存后再调用的这种输出方法。
一、图片缩略
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg") 调用组件
Path = Server.MapPath("images") & "clock.jpg" 待处理图片路径
Jpeg.Open Path 打开图片
高与宽为原图片的1/2
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
保存图片
Jpeg.Save Server.MapPath("images") & "clock_small.jpg"
%>
<IMG src="/images/clock_small.jpg"> 查看处理的图片
二、图片水印
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("images/dodge_viper.jpg")
开始写文字
Jpeg.Canvas.Font.Color = &HFF0000' red 颜色
Jpeg.Canvas.Font.Family = "Courier New" 字体
Jpeg.Canvas.Font.Bold = True 是否加粗
Jpeg.Canvas.Print 10, 10, "Copyright (c) XYZ, Inc."
打印坐标x 打印坐标y 需要打印的字符
以下是对图片进行边框处理
Jpeg.Canvas.Pen.Color = &H000000' black 颜色
Jpeg.Canvas.Pen.Width = 2 画笔宽度
Jpeg.Canvas.Brush.Solid = False 是否加粗处理
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height
起始X坐标 起始Y坐标 输入长度 输入高度
Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg") 保存
%>
三、安全码
安全玛的道理和加水印差不多,
<%
生成安全码的函数
function make_randomize(max_len,w_n) max_len 生成长度,w_n:0 可能包含字母,1:只为数字
randomize
for intcounter=1 to max_len
whatnext=int((1-0+1)*rnd+w_n)
if whatnext=0 then
upper=122
lower=97
else
upper=57
lower=48
end if
strnewpass=strnewpass & chr(int((upper-lower+1)*rnd)+lower)
next
make_randomize=strnewpass
end function
%>
生成安全码的图片。当然你要预先准备一张背景图哦
<%random_num=make_randomize(4,1) 生成4位数字的安全码
session("random_num")=random_num 为什么调用session,没有session的安全码是完全没有意义的。呵呵
Set Jpeg = Server.CreateObject("Persits.Jpeg") 调用组件
Jpeg.Open Server.MapPath("infos/random_pic/random_index.gif") 打开准备的图片
Jpeg.Canvas.Font.Color = &H006699
Jpeg.Canvas.Font.Family = "Arial Black"
Jpeg.Canvas.Font.Bold = false
Jpeg.Canvas.PrintText 0, -2, random_num
jpeg.save Server.MapPath("infos/random_pic/random_index.bmp") 保存
%> <img src="/infos/random_pic/random_index.bmp" border="0" align="absmiddle">
自己做做看。呵呵。
不想做背景图片的。去http://comapny.windowscar.com/infos/random_pic/random_index.gif下载吧
四、图片切割
一直以来,对aspjpeg不了解的人以为是无法用它来进行切割的。
其实有这样的一个方法的
crop x1,y1,x2,y2
切割长方型左上角x坐标,y坐标 右下角x坐标 y坐标
下面我就做一个演示哈
Set Jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.open server.MapPath("/pic/1.gif")
jpeg.width=70
Jpeg.Height = Jpeg.OriginalHeight*70 / jpeg.Originawidth
jpeg.crop 0,0,70,52 开始切割其实是把超过52象素的下部分去掉
jpeg.save server.MapPath("/temp_pic/small_1.gif") 保存
怎么样,很简单吧
五、图片合并
我们这里是要把logo图片加到dodge_viper.jpg图片上去
其实,图片合并的方法也可以用来动态打水印哦
Set Photo = Server.CreateObject("Persits.Jpeg")
PhotoPath = Server.MapPath("images") & "dodge_viper.jpg"
Photo.Open PhotoPath
Set Logo = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath("images") & "clock.jpg"
Logo.Open LogoPath
Logo.Width = 70
Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth
Photo.DrawImage 0, 0, Logo
Photo.SendBinary 这里用了sendBinary的输出方法。当然,你也可以先保存更改后的dodge_viper.jpg,再输入也可以。我个人不大喜欢用sendBinary方法,在网速慢的时候容易出错。在速度方面也不怎样。呵呵。
六、数据库支持
这里不多说了。其实就是Binary方法,大家知道图片存进数据库只能存为二进制的文件的。所以代码就懒的写了。
七、更多方法介绍
Canvas.Line(Left, Top, Right, Bottom)
画一条直线
Canvas.Ellipse(Left, Top, Right, Bottom)
画出一个椭圆
Canvas.Circle(X, Y, Radius)
画出一个圆
Canvas.Bar(Left, Top, Right, Bottom)
画出一个长方形,上面有代码介绍了
Canvas.Font.ShadowColor
文字阴影颜色
Canvas.Font.ShadowXOffset As Long
阴影X坐标设定
Canvas.Font.ShadowYOffset As Long
Y坐标设定
Canvas.Font.BkMode As String
文字背景
libao1983
2007-03-30
打赏
举报
回复
图片水印
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("images/dodge_viper.jpg")
开始写文字
Jpeg.Canvas.Font.Color = &000000' red 颜色
Jpeg.Canvas.Font.Family = "Courier New" 字体
Jpeg.Canvas.Font.Bold = True 是否加粗
Jpeg.Canvas.Print 10, 10, "Copyright (c) XYZ, Inc."
打印坐标x 打印坐标y 需要打印的字符
以下是对图片进行边框处理
Jpeg.Canvas.Pen.Color = &H000000' black 颜色
Jpeg.Canvas.Pen.Width = 2 画笔宽度
Jpeg.Canvas.Brush.Solid = False 是否加粗处理
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height
起始X坐标 起始Y坐标 输入长度 输入高度
Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg") 保存
%>
libao1983
2007-03-30
打赏
举报
回复
aspjpeg
你可以搜索一下它的方法
wangwm
2007-03-30
打赏
举报
回复
要用组件才可以的
萤火架构
2007-03-30
打赏
举报
回复
需要用到组件 好像有个aspjpeg的组件
yh235
2007-03-30
打赏
举报
回复
呵呵 知道了 谢谢了 给分
libao1983
2007-03-30
打赏
举报
回复
一次转1k张,多转几次不就可以了
智能象棋游戏(含C#源码)
扩展功能: a. 首先满足网友的”口味”, 重新设计了所有旗子, 选择新的旗盘背景, 换了一个更清爽的面. (界面配色并不是件很容易的事情, 这样的棋类游戏长时间容易使眼睛疲劳, 首先要做到选择的色彩 不刺激眼睛,其实大部分色彩都比较刺激眼睛,尤其是纯三基色(红/黄/蓝), 还要使界面做得漂亮). b. 增加”回放” 功能. 当下完旗子时,可以重新回味一下, 刚杀完的一盘旗,可以寻找不足和重新感受 一下胜利的喜悦! 这个功能比较复杂! d. 又看了一下电脑走旗, 感觉确实比较难处理, 没有高人指点写这个算法确实比较难, 应该比以前聪明 了一些, 但是还是比较笨, 打算有空去找个现在的电脑走旗组件替换上, 自己的电脑走旗算法慢慢研 究(当时是因为
实在
找不到现在的组件, 自己写了个较笨的,如果哪位朋友能够提供组件,在次深表
感谢
!!!). e. 扩展走旗的步数容量, 有些网友, 对战的都是高手, 产生数组越界, 这次从 200 扩展到了500, 当然 您还可以扩展到更大,因为源代码已经开放). f. 增加图像缓存功能. g. 解决 .net 从framework 1.0到framework 2.0升级出现的程式升级逻辑问题及一个小bug. h. 本来我只是想把这个程式放到Blog上, 供爱好c#的网友学习,一起交流一下, 没想到反应那么的强烈! 经常收到网友的反馈邮件, 从下载量看,不到一年仅从我的下载空间(不算网友转载下载次数)就有近 二万五千次. 所以又重新看懂已经基本忘记的代码,修复了bug,并扩展了以上功能. 有可能还会增加一些功能! 另外,在此对给我提交建议和bug的朋友表示
感谢
!!! (开发语言: C#语言) 来自:http://community.csdn.net/Expert/topic/5237/5237003.xml?temp=.4600031
照顾不周, 怎么会,今天是我打扰了 最简单的回答:“别客气,谢谢你们!” 稍复杂一点的回答:“不好意思!
实在
麻烦你们了,非常
感谢
!”...
照顾不周, 怎么会,今天是我打扰了最简单的回答:“别客气,谢谢你们!” 稍复杂一点的回答:“不好意思!
实在
麻烦你们了,非常
感谢
!”
【折腾】Docker官网下载Docker
实在
太
慢怎么破!!!!!windows 安装docker
Docker官网下载Docker
实在
太
慢怎么破!!!!! 想安装一个docker for windows 但是官网下载
实在
是龟速,网上的教程也都是教你怎么安装的,然而木有教你怎么下载的呀!!! 不过功夫不负有心人,还是被我找到了一位答友的解决方案,该答友叫“geekcorn”,在这里就手动
感谢
啦~~~ 接下来是重点,直接点开下面的链接: [点这里点这里!!!!!](" http://get.d...
1024快乐!
又到了我们程序员的节日,在这里祝大家节日快乐!
感谢
大家一直以来的支持与陪伴,我会继续努力,有时间就多多总结写一些高质量的博客。博客专家一直是博主的心愿,希望经过自己的努力可以成为一个博客专家。今天水一篇博客拿个1024勋章嘿嘿。最近工作
实在
是有点忙,有时间我一定会好好学习好好创作!谢谢大家! 君子终日乾乾,夕惕若,厉无咎。与君共勉! ...
LaTex中公式
太
长怎么办(公式跨栏显示)
目录 问题 方案 1、缩小公式字体 2、公式内容换行 3、公式跨栏居中显示 这些方法我摸索了一个早上才找到的,如果对大家有帮助,请大家给我一键三连!!非常
感谢
!!! 问题 在双列栏中,有一道公式长度
实在
太
长,左思右想,发现无非几种解决办法 方案 1、缩小公式字体 办法是直接 用\begin{footnotesize} \begin{footnotesize} #设置字体大小 可以选择small tiny \begin{equation} \...
ASP
28,391
社区成员
357,059
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章