simpleimage.aspx

来自「asp.net技术内幕的书配源码」· ASPX 代码 · 共 26 行

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

<Script Runat="Server">

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

</Script>