<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<%@ 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=200
Dim r as New Random '建立随机数对像
Dim x as integer =r.Next(75) '产生0-75的随机数
Dim x1 as integer =0
Dim a as integer=r.Next(155) '产生0-155的随机数
Dim x2 as integer=r.Next(100) '产生0-100的随机数
'建立位图对像Bitmap,参数为:宽,高,像素
Dim bmp as New Bitmap(width,height,PixelFormat.Format24BppRgb)
'图片设置
Dim g as Graphics=Graphics.FromImage(bmp)
g.SmoothingMode=SmoothingMode.AntiAlias
g.Clear(Color.LightGray)
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("Arial",10,FontStyle.Bold),SystemBrushes.WindowText,New PointF(10,50))
g.FillRectangle(New SolidBrush(Color.FromArgb(a,255,128,255)),x,20,100,50)
g.FillRectangle(New LinearGradientBrush(New Point(x2,0),New Point(x2+75,50+30),Color.FromArgb(128,0,0,128),Color.FromArgb(255,255,255,240)),x2,50,75,30)
'图像生成
bmp.Save(Response.OutputStream,ImageFormat.Jpeg)
g.Dispose()
bmp.Dispose()
Response.End()
%>
本文地址：http://com.8s8s.com/it/it8561.htm