原理很简单，ASPJPEG组件，自定义。而这段程序也是随便写的，大家可以自我发挥。
组件下载地址：http://worm.vote.com.cn/AspJpeg.rar
效果如下：
代码如下：
<%
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
%>
本文地址：http://com.8s8s.com/it/it8171.htm