aspjpeg 怎么搭配ASP 里的变量来使用?
发布网友
共2个回答
热心网友
不知所云啊·~我给你个例子好了·我以前写的~~~
<%
'============================================================
'功能：给图片添加LOGO水印以及文字水印 BY:Tony E-mail:icetony@live.cn
'说明：Call TonyView(localfile,textitle,logofile,targetfile)
'//localfile==原图（待处理图片）,textitle==文字水印,logofile==需要附加的小图标，最好是gif得透明图片,targetfile==生成的图片
'============================================================
Sub TonyView(localfile,textitle,logofile,targetfile)
Dim logoPath,localPath,aa,bb,cc
'==读取水印。
LogoPath = Server.MapPath(logofile)
Set Logobit = Server.CreateObject("Persits.Jpeg")
Logobit.Open Trim(LogoPath) '//读取添加的图片。
'==读取原图。
localPath = Server.MapPath(localfile)
Set Tony = Server.CreateObject("Persits.Jpeg") '//读取要处理的原文件。
Tony.Open Trim(localPath)
aa=Tony.Binary '//将原始数据赋给aa
'=========================加文字水印=========================
Tony.Canvas.Font.Color = &Hfffffff '水印文字颜色
Tony.Canvas.Font.Family = "黑体" '字体
Tony.Canvas.Font.Bold = true '是否加粗
Tony.Canvas.Font.Size = 24 '字体大小
Tony.Canvas.Font.ShadowColor = &H000000 '阴影色彩
Tony.Canvas.Font.ShadowYOffset = 1
Tony.Canvas.Font.ShadowXOffset = 1
Tony.Canvas.Brush.Solid = True
Tony.Canvas.Font.Quality = 4 '输出质量
Tony.Canvas.PrintText Tony.OriginalWidth/2-(len(textitle)*26/2),Tony.OriginalHeight/2-12,textitle '水印位置及文字
bb=Tony.Binary '将水印处理后的值赋给bb，这时，水印没有不透明度。
'===调整文字透明度===
Set MyJpeg = Server.CreateObject("Persits.Jpeg")
MyJpeg.OpenBinary aa
Set text = Server.CreateObject("Persits.Jpeg")
text.OpenBinary bb
MyJpeg.DrawImage 0,0, text, 0.6
'=========================加图片水印=========================
MyJpeg.DrawImage MyJpeg.width-Logobit.OriginalWidth, MyJpeg.Height-Logobit.OriginalHeight, Logobit,1,&H0066CC '//水印图片的起始坐标，这里是放在图片的正中间。
cc=MyJpeg.Binary '将最终结果赋值给cc,这时也可以生成目标图片了
response.BinaryWrite cc '将二进输出给浏览器
TargetPath=Server.MapPath(Targetfile)
MyJpeg.Save (TargetPath)
set aa=nothing
set bb=nothing
set cc=nothing
LogoPath.close
Tony.close
MyJpeg.Close
text.Close
End sub
call TonyView("IMG.JPg","水印文字","WaterMap.GIF","kan.jpg") '调用方式
%>
热心网友
问题没有描述清楚,你应该把你要做什么说清楚
比如根据数据库读取到的图片名称，对其做缩略加水印...
