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

				
				
				
				
				
				
				Sub Page_Load
				  Dim objBitmap As Bitmap
				  Dim intCounter As Integer
				  Dim objRandom As Random
				
				  ' Create Bitmap
				  objBitmap = New Bitmap( 400, 200 )
				
				  ' Set 1000 Pixels
				  objRandom = New Random
				  For intCounter = 1 To 1000
				    objBitmap.SetPixel( objRandom.Next( 400 ), objRandom.Next( 200 ), Color.Red )
				  Next
				
				  ' Display Bitmap
				  objBitmap.Save( Response.OutputStream, ImageFormat.Gif )
				End Sub