<%
Dim Jpeg,Text,Font,Bold,N
Text=Request("T")
Font=Request("F")
If Font="" Or IsNull(Font) Then Font="宋体"
Bold=Request("B")
If Bold="" Or IsNull(Bold) Then Bold=0
If Bold=1 Then
 If Not Len(Text)<=9 Then
  Text=Left(Text,18)
  Text=Left(Text,9)&"|"&Mid(Text,10,Len(Text)-9)
 End If
Else
 If Not Len(Text)<=10 Then
  Text=Left(Text,20)
  Text=Left(Text,10)&"|"&Mid(Text,11,Len(Text)-10)
 End If
End If
Text=Split(Text,"|")

Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("Test.jpg")
'Jpeg.Canvas.Font.Color = &HFF0000
Jpeg.Canvas.Font.Size = 12
Jpeg.Canvas.Font.Family = Font
Jpeg.Canvas.Font.Bold = Bold
For N=0 To Ubound(Text)
 Jpeg.Canvas.Print 3, 95+(14*N), Text(N)
Next
Jpeg.SendBinary
Set Jpeg = Nothing
%>