论坛帖图好工具，随心所欲你定义

原理很简单，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

%>