分不多了，请各位帮忙，在Web上画线，画图，如何做有例子吗？谢谢！在线等！最好是有原代码；谢谢！

[buer]

在Web上画线，画图，如何做有例子吗？谢谢！！在线等！最好是有原代码；谢谢！

[declude]

see this:
http://xml.sz.luohuedu.net/xml/ShowDetail.asp?id=221BC601-1A1B-4E1F-883D-04B043659703

[vabug]

'=====================================
'Include All Pertinent Namespaces Here
'=====================================

<%@ Page Language="VB" ContentType="image/jpeg" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Imaging" %>
<%@ Import Namespace="System.Drawing.Drawing2D" %>

<%

Response.Clear( )
Dim height As Integer = 100
Dim width As Integer
Dim r As New Random
Dim x As Integer = r.Next(75)
width = Cint(request.form("width")(0).value)
Dim bmp As new Bitmap(width, height, PixelFormat.Format24bppRgb)
Dim g as Graphics = Graphics.FromImage(bmp)

g.SmoothingMode = SmoothingMode.AntiAlias
g.Clear(Color.Orange)
g.DrawRectangle(Pens.White, 1, 1, width-3, height-3)
g.DrawRectangle(Pens.Gray, 2, 2, width-3, height-3)
g.DrawRectangle(Pens.Black, 0, 0, width, height)
g.DrawString("梁中华", _
New Font("隶书", 14, FontStyle.normal), _
SystemBrushes.WindowText, New PointF(x,50))


bmp.Save(Response.OutputStream, ImageFormat.Jpeg)
g.Dispose( )
bmp.Dispose( )
Response.End( )

%>