alpha.aspx

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

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

<Script Runat="Server">

Sub Page_Load
  Dim objBitmap As Bitmap
  Dim objGraphics As Graphics
  Dim objBrush, objBrush2 As Brush

  ' Create Bitmap
  objBitmap = New Bitmap( 400, 400 )
  objGraphics = Graphics.FromImage( objBitmap )

  ' Create Different Colored Brushes
  objBrush = New SolidBrush( Color.Blue )
  objBrush2 = New SolidBrush( Color.FromArgb( 100, Color.Orange ) )

  ' Create Rectangles
  objGraphics.FillRectangle( objBrush, 10, 10, 100, 100 )
  objGraphics.FillRectangle( objBrush2, 50, 50, 100, 100 )

  ' Display the Bitmap
  objBitmap.Save( Response.OutputStream, ImageFormat.Gif )
End Sub

</Script>