ASPJPEG 水印加载TTF字体的方法

<%
Dim FontPath,Jpeg,Txt,i,x,y,w,Angle
Set Jpeg = Server.CreateObject("Persits.Jpeg")
FontPath=Server.MapPath("SIMHEI.TTF")
Jpeg.Open Server.MapPath("001.jpg")
Txt = "让水印跳起舞来吧"
Jpeg.Canvas.Font.Color = &HFFFFFF00
Jpeg.Canvas.Font.Size = 12
Angle = -275
For i = 1 To Len(Txt)
   x = 280 * cos( Angle * 3.141592 / 180 ) + Jpeg.Width / 2
   y = 280 * sin( Angle * 3.141592 / 180 ) + Jpeg.Height / 2
   Jpeg.Canvas.Font.Rotation = 270 - Angle
   w = Jpeg.Canvas.PrintTextEx(Mid(txt, i, 1), x, y, FontPath)
   Angle = Angle + w / 3.85
Next
Jpeg.Save Server.MapPath("002.jpg")
Set Jpeg=Nothing
%>