17-10-12, 10:34 PM
كاتب الموضوع : AhmedEssawy
الصفحة الأساسية تتم كتابتها بالشكل التالي :كود :
[color=#000080]<html>[/color]
[color=#000080]<head>[/color][color=#000080]<title>[/color]DisplayCircle.aspx[color=#000080]</title>[/color][color=#000080]</head>[/color]
[color=#000080]<body>[/color]
[color=#000080]<h1>[/color]Here is an image:[color=#000080]</h1>[/color]
[color=#800080]<img src=[COLOR=#0000ff]"Circle.aspx"[/color]>[/COLOR]
[color=#000080]<h1>[/color]The image appears above![color=#000080]<h1>[/color]
[color=#000080]</body>[/color]
[color=#000080]</html>[/color]
كود :
<%@ 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
' Create Bitmap
objBitmap = New Bitmap( 200, 200 )
' Initialize Graphics Class
objGraphics = Graphics.FromImage( objBitmap )
objGraphics.FillEllipse( Brushes.Red, 0, 0, 200, 200 )
' Display Bitmap
objBitmap.Save( Response.OutputStream, ImageFormat.Gif )
End Sub
</Script>