關(guān)于Aspjpeg簡(jiǎn)例的學(xué)習(xí)分享

 這篇文章主要跟大家提供的是關(guān)于Aspjpeg簡(jiǎn)例的分享，希望能給大家?guī)��?lái)幫助或啟發(fā)。

Set objImg = Server.CreateObject("Persits.Jpeg")
objImg.Interpolation = 2
\\\'影像加強(qiáng) 0-2
objImg.open xFilePath
response.write "<:::原始值:::>
AspJpeg版本=" & objImg.Version & "
寬=" & objImg.OriginalWidth & "像素
" & "高=" & objImg.OriginalHeight & "像素
"
response.write "品質(zhì)=" & 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
\\\'左右翻轉(zhuǎn)
\\\'objImg.FlipV
\\\'上下翻轉(zhuǎn)
\\\'objImg.RotateL
\\\'向左旋轉(zhuǎn)90度
\\\'objImg.RotateR
\\\'向右旋轉(zhuǎn)90度

\\\' 將圖片秀上文字:------------------------
objImg.Canvas.Font.Color = &HFF0000
\\\'顏色
objImg.Canvas.Font.Family = "細(xì)明體"
\\\'字型
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
\\\'字體旋轉(zhuǎn)角度
objImg.Canvas.Font.ShadowColor = &H000000
\\\'字影顏色
objImg.Canvas.Font.ShadowXOffset = 50
\\\'字影X坐標(biāo)
objImg.Canvas.Font.ShadowYOffset = 150
\\\'字影Y坐標(biāo)
objImg.Canvas.Font.Size = 14
\\\'字體大小
objImg.Canvas.Font.Underlined = True
\\\'是否加底限
objImg.Canvas.Circle 100,100,10
\\\'畫圓圈
objImg.Canvas.Pen.Color = &H009900
\\\'畫圓的圓內(nèi)填滿顏色
objImg.Canvas.Pen.Width = 1
\\\'畫圓的圓周粗細(xì)值
objImg.Canvas.Ellipse 0,0,150,150
\\\'畫橢圓
objImg.Canvas.Line 0,0,150,150
\\\'畫線
\\\'objImg.Canvas.Arc = 100,50,0,200
\\\'---不清楚這個(gè)用法--

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


\\\' 編輯圖片外框:----------------------------
objImg.Canvas.Pen.Color = &H000000
\\\'圖片外框顏色
objImg.Canvas.Pen.Width = 1
\\\'圖片外框?qū)挾?像素)
objImg.Canvas.Brush.Solid = False
\\\'是否使用區(qū)域內(nèi)填滿
objImg.Canvas.Brush.Color = &HFF0000
\\\'區(qū)域內(nèi)填滿顏色
objImg.Canvas.Bar 5, 5, objImg.Width, objImg.Height
\\\'框線產(chǎn)生位置------------------------------

objImg.save xFileCopyToPath
response.write "<:::變化后:::>
寬=" & objImg.Width & "像素
" & "高=" & objImg.Height & "像素
"
Set objImg = Nothing