A brief case of AspJpeg

Aspjpeg|aspjpeg Set objimg = Server.CreateObject ("Persits.jpeg")
Objimg.interpolation = 2
\\\ ' Image enhancement 0-2
Objimg.open Xfilepath
Response.Write "::: Original Value:::>
AspJpeg Version = "& Objimg.version &"
width = "& Objimg.originalwidth &" Pixel
"&" high = "& Objimg.originalheight &" Pixel
"
Response.Write "quality = & objimg.quality &" (0-100)
"&" Path = "& Objimg.version &"
"

\\\ ' objimg.width = OBJIMG.ORIGINALWIDTH/2
\\\ ' Change picture width (example 50%)
\\\ ' objimg.height = OBJIMG.ORIGINALHEIGHT/2
\\\ ' Change Picture height (example 50%)
\\\ ' Objimg.sharpen 2, 250
\\\ ' sharp handle
\\\ ' Objimg.crop 0,0,150,150
\\\ ' cutting process
\\\ ' Objimg.fliph
\\\ ' Flip around
\\\ ' OBJIMG.FLIPV
\\\ ' Flip up and down
\\\ ' Objimg.rotatel
\\\ ' rotate 90 degrees to the left.
\\\ ' Objimg.rotater
\\\ ' rotate 90 degrees to the right

\\\ ' will show the picture on the text:------------------------
ObjImg.Canvas.Font.Color = &hff0000
\\\ ' Color
objImg.Canvas.Font.Family = "Fine-ming body"
\\\ ' Font
ObjImg.Canvas.Font.Bold = True
\\\ ' Whether to use bold
ObjImg.Canvas.Font.BkMode = False
\\\ ' whether to use font background color
ObjImg.Canvas.Font.BkColor = &h000000
\\\ ' Font background color
ObjImg.Canvas.Font.Italic = False
\\\ ' Whether to use italic characters
objImg.Canvas.Font.Rotation = 0
\\\ ' Font rotation angle
ObjImg.Canvas.Font.ShadowColor = &h000000
\\\ ' Shadow color
ObjImg.Canvas.Font.ShadowXOffset = 50
\\\ ' Shadow x coordinates
ObjImg.Canvas.Font.ShadowYOffset = 150
\\\ ' Shadow y coordinate
ObjImg.Canvas.Font.Size = 14
\\\ ' font size
objImg.Canvas.Font.Underlined = True
\\\ ' Whether to add the bottom line
ObjImg.Canvas.Circle 100,100,10
\\\ ' Draw a circle
ObjImg.Canvas.Pen.Color = &h009900
\\\ ' Circle filled with color
ObjImg.Canvas.Pen.Width = 1
\\\ ' Circle thickness value of the drawing circle
ObjImg.Canvas.Ellipse 0,0,150,150
\\\ ' Draw an ellipse
ObjImg.Canvas.Line 0,0,150,150
\\\ ' Draw line
\\\ ' OBJIMG.CANVAS.ARC = 100,50,0,200
\\\ '---not clear this usage--

ObjImg.Canvas.Print, "I am Odysseus", 136
\\\ ' position and text---------------------------------


\\\ ' Edit picture outer frame:----------------------------
ObjImg.Canvas.Pen.Color = &h000000
\\\ ' picture outer frame color
ObjImg.Canvas.Pen.Width = 1
\\\ ' picture outer frame width (pixel)
ObjImg.Canvas.Brush.Solid = False
\\\ ' is filled with the area
ObjImg.Canvas.Brush.Color = &hff0000
\\\ ' area fills with color
ObjImg.Canvas.Bar 5, 5, Objimg.width, objimg.height
\\\ ' box produces position------------------------------

Objimg.save Xfilecopytopath
Response.Write "::: Change after:::>
width = "& Objimg.width &" Pixel
"&" high = "& Objimg.height &" Pixel
"
Set objimg = Nothing