使用aspjpeg给图片加上文字

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg") 
Jpeg.Open Server.MapPath(url) 
'开始写文字 
Jpeg.Canvas.Font.Color = &HFFFFFF
'red 颜色 
Jpeg.Canvas.Font.Family = "Courier New"
'字体 
Jpeg.Canvas.Font.Bold = True
'是否加粗 
Jpeg.Canvas.Print 30, 30, "WELCOME TO " 
'打印坐标x 打印坐标y 需要打印的字符 

'以下是对图片进行边框处理 
Jpeg.Canvas.Pen.Color = &H000000
'black 颜色 
Jpeg.Canvas.Pen.Width = 2
'画笔宽度 
Jpeg.Canvas.Brush.Solid = False
'是否加粗处理 
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height 
'起始X坐标 起始Y坐标 输入长度 输入高度 
Jpeg.Save Server.MapPath(url)
'保存
Set Jpeg = Nothing 
'注销对象
%>