Aspjpeg简例

来源： 作者： 出处：巧巧读书 2006-03-12 进入讨论组

• 关 键 词：
• server
• arp
• asp

　　Set objImg = Server.CreateObject("Persits.Jpeg")
objImg.Interpolation = 2
\\\'影像加强 0-2
objImg.open xFilePath
response.write "<:::原始值:::>
AspJpeg版本=" & objImg.Version & "
宽=" & objImg.OriginalWidth & "像素
" & "高=" & objImg.OriginalHeight & "像素
"
response.write "品质=" & objImg.Quality & " (0-100)
" & "路径=" & objImg.Version & "
"

\\\'objImg.Width = objImg.OriginalWidth / 2
\\\'变更图片宽度(范例为50%)
\\\'objImg.Height = objImg.OriginalHeight / 2
\\\'变更图片高度(范例为50%)
\\\'objImg.Sharpen 2, 250
\\\'锐利处理
\\\'objImg.Crop 0,0,150,150
\\\'切割处理
\\\'objImg.FlipH
\\\'左右翻转
\\\'objImg.FlipV
\\\'上下翻转
\\\'objImg.RotateL
\\\'向左旋转90度
\\\'objImg.RotateR
\\\'向右旋转90度

\\\' 将图片秀上文字:------------------------
objImg.Canvas.Font.Color = &HFF0000
\\\'颜色
objImg.Canvas.Font.Family = "细明体"
\\\'字型
objImg.Canvas.Font.Bold = True
\\\'是否使用粗体
objImg.Canvas.Font.BkMode = False
\\\'是否使用字体背景色
objImg.Canvas.Font.BkColor = &H000000
\\\'字体背景色
objImg.Canvas.Font.Italic = False
\\\'是否使用斜体字
objImg.Canvas.Font.Rotation = 0
\\\'字体旋转角度
objImg.Canvas.Font.ShadowColor = &H000000
\\\'字影颜色
objImg.Canvas.Font.ShadowXOffset = 50
\\\'字影X坐标
objImg.Canvas.Font.ShadowYOffset = 150
\\\'字影Y坐标
objImg.Canvas.Font.Size = 14
\\\'字体大小
objImg.Canvas.Font.Underlined = True
\\\'是否加底限
objImg.Canvas.Circle 100,100,10
\\\'画圆圈
objImg.Canvas.Pen.Color = &H009900
\\\'画圆的圆内填满颜色
objImg.Canvas.Pen.Width = 1
\\\'画圆的圆周粗细值
objImg.Canvas.Ellipse 0,0,150,150
\\\'画椭圆
objImg.Canvas.Line 0,0,150,150
\\\'画线
\\\'objImg.Canvas.Arc = 100,50,0,200
\\\'---不清楚这个用法--

objImg.Canvas.Print 100, 100, "I am Odysseus" ,136
\\\'位置及文字---------------------------------


\\\' 编辑图片外框:----------------------------
objImg.Canvas.Pen.Color = &H000000
\\\'图片外框颜色
objImg.Canvas.Pen.Width = 1
\\\'图片外框宽度(像素)
objImg.Canvas.Brush.Solid = False
\\\'是否使用区域内填满
objImg.Canvas.Brush.Color = &HFF0000
\\\'区域内填满颜色
objImg.Canvas.Bar 5, 5, objImg.Width, objImg.Height
\\\'框线产生位置------------------------------

objImg.save xFileCopyToPath
response.write "<:::变化后:::>
宽=" & objImg.Width & "像素
" & "高=" & objImg.Height & "像素
"
Set objImg = Nothing来自:http://www.qqread.com/asp/n492775001.html进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：ASP.NET1.0升级ASP.NET2.0问题总结

较新的文章：ASP与JSP的区别和联系