displayimage.aspx

asp.net技术内幕的书配源码

<%@ Page ContentType="image/gif" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Imaging" %>
<%@ Import Namespace="System.IO" %>

<Script Runat="Server">
Sub Page_Load
  Dim objImageService As ImageService
  Dim objBitmap As Bitmap
  Dim strmBuffer As MemoryStream

  objImageService = New ImageService
  strmBuffer = New MemoryStream( objImageService.GetTextImage( "Hello World!" ) )
  objBitmap = New Bitmap( strmBuffer )
  objBitmap.Save( Response.OutputStream, ImageFormat.Gif )
End Sub
</Script>