asp自动产生缩略图和打水印

最新推荐文章于 2024-10-13 20:54:37 发布

cxl34

最新推荐文章于 2024-10-13 20:54:37 发布

阅读量891

点赞数

CC 4.0 BY-SA版权

文章标签： asp path session

本文链接：https://blog.youkuaiyun.com/cxl34/article/details/199275

博客介绍了使用ASP实现图片处理的方法。包括自动产生缩略图，通过获取源图片路径，判断宽高比按比例缩放并设定锐化效果后生成；还介绍了大图片打水印，添加文字水印后保存文件，过程中使用了Session存储相关信息。

'自动产生缩掠图开始
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 获取源图片路径
Path = Server.MapPath(FileName)
' 打开源图片
'response.write(Path)
Jpeg.Open Path
' 设定生成缩略图细节这里有很多种设定方法下面的方法是先判断宽高比然后按比例缩放
If Jpeg.OriginalWidth / Jpeg.OriginalHeight > 1 then
Jpeg.Width = 98
Jpeg.Height = int((98/Jpeg.OriginalWidth)*Jpeg.OriginalHeight)
elseif Jpeg.OriginalWidth / Jpeg.OriginalHeight < 1 then
Jpeg.Width = 98
Jpeg.Height= int((98/Jpeg.OriginalWidth)*Jpeg.Height)
end if
' 设定锐化效果
Jpeg.Sharpen 1, 130
' 向指定路径生成缩略图
Jpeg.Save Server.MapPath("uploadpic/small")&"/"&filename1
'response.write filename1
'response.write Server.MapPath("uploadpic/small")&"/"&filename1
' 注意这两个Session
'Session("PPP0")=GP_curPath&FileName
'Session("PPP1")=GP_curPath&"small"&FileName
Set Jpeg = Nothing
'自动产生缩掠图结束

'大图片打水印开始
' 建立实例
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 打开目标图片
Path = Server.MapPath(FileName)
' 打开源图片
Jpeg.Open Path
' 添加文字水印
Jpeg.Canvas.Font.Color = &HFF0000' 红色
Jpeg.Canvas.Font.Family = "宋体"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print 10, 10, "杭州广翔"
' 保存文件
Jpeg.Save Server.MapPath("uploadpic")&"/"&filename1
' 注销对象
Set Jpeg = Nothing
'大图片打水印结束