'vb.net:
Dim image As New Bitmap(120, 25) '图片大小
Dim g As Graphics = Graphics.FromImage(image)
g.Clear(Color.White)
Dim f As New Font("Arial", 12, FontStyle.Regular) '12磅,斜体
Dim b As New SolidBrush(Color.DarkBlue)
g.DrawString("E-MAIL地址",f,b,0,0)
g.DrawRectangle(New Pen(Color.Gray,0), 0, 0, image.Width-1, image.Height-1)
'输出到浏览器
Dim msOutput As New System.IO.MemoryStream()
image.Save(msOutput, Imaging.ImageFormat.Jpeg)
HttpContext.Current.Response.ClearContent()
HttpContext.Current.Response.ContentType = "image/Jpeg"
HttpContext.Current.Response.BinaryWrite(msOutput.ToArray())