DynamicJPG.aspx Source
----------------------
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="DynamicJPG.aspx.vb" Inherits="DynamicJPG" %>
Untitled Page
DynamicJPG.aspx Codebehind
--------------------------
Imports System.Drawing
Imports System.Drawing.Imaging
Partial Class DynamicJPG
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Response.ContentType = "image/jpeg"
Dim oCanvas As New Bitmap(300, 250)
Dim g As Graphics = Graphics.FromImage(oCanvas)
g.Clear(Color.White)
g.DrawEllipse(Pens.Red, 10, 10, 150, 100)
Response.ContentType = "image/jpeg"
oCanvas.Save(Response.OutputStream, ImageFormat.Jpeg)
Response.End()
g.Dispose()
oCanvas.Dispose()
End Sub
End Class
DynamicJPGTest.aspx Source
--------------------------
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="DynamicJPGTest.aspx.vb" Inherits="DynamicJPGTest" %>
Untitled Page
DynamicJPGTest.aspx Codebehind
------------------------------
Partial Class DynamicJPGTest
Inherits System.Web.UI.Page
End Class