Asp.Net生成图片验证码(vb)

Validate.vb
代码如下
ImportsSystem
ImportsSystem.Drawing.Drawing2D
ImportsSystem.Drawing.imaging
ImportsSystem.Drawing
ImportsSystem.Web.UI
ImportsSystem.IO
PublicClassValidateClassValidate
PublicClassCreatValidateNumberClassCreatValidateNumber
'生成验证码
PublicFunctionCreatValidateNumber()FunctionCreatValidateNumber(ByVallengthAsInteger)
DimvcharAsString="0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,w,x,y,z"
Dimvcarray()AsString=Split(vchar,",")'将字符串生成数组
DimvnumAsString=""
DimiAsByte
Fori=1Tolength
Randomize()
vnum=vnum&vcarray(Int(35*Rnd()))'数组一般从0开始读取，所以这里为35*rnd
Next
Returnvnum
EndFunction
'创建验证码图片
PublicSubCreatevalidateGraphic()SubCreatevalidateGraphic(ByValpageAsPage,ByValvalidatenumAsString)
DimimageAsBitmap=NewBitmap(CInt(Math.Ceiling(validatenum.Length*12.5)),22)
DimgAsGraphics=Graphics.FromImage(image)
Try
'生成随机生成器
DimrandomAsNewRandom
'清空图片背景色
g.Clear(Color.White)
'画图片的干扰线
DimiAsInteger
Fori=0To24
Dimx1AsInteger=random.Next(image.Width)
Dimx2AsInteger=random.Next(image.Width)
Dimy1AsInteger=random.Next(image.Height)
Dimy2AsInteger=random.Next(image.Height)
g.DrawLine(NewPen(Color.Silver),x1,y1,x2,y2)
Next
'画验证码
DimfontAsFont=NewFont("Arial",12,(FontStyle.BoldAndFontStyle.Italic))
DimbrushAsLinearGradientBrush=NewLinearGradientBrush(NewRectangle(0,0,image.Width,image.Height),Color.Blue,Color.DarkRed,1.2F,True)
g.DrawString(validatenum,font,brush,3,2)
'画前景干扰点
Fori=0To24
DimxAsInteger=random.Next(image.Width)
DimyAsInteger=random.Next(image.Height)
image.SetPixel(x,y,Color.FromArgb(random.Next()))
Next
'画图片的边框线
g.DrawRectangle(NewPen(Color.Silver),0,0,image.Width-1,image.Height-1)
'保存图片
DimstreamAsNewMemoryStream
image.Save(stream,ImageFormat.Jpeg)
'输出图片
page.Response.Clear()
page.Response.ContentType="image/jpeg"
page.Response.BinaryWrite(stream.ToArray())
CatchexAsException
Finally
g.Dispose()
image.Dispose()
EndTry
EndSub
EndClass
EndClass
新建一个img.aspx的窗体
后台代码如下
PublicClassimgClassimg
InheritsSystem.Web.UI.Page
Web窗体设计器生成的代码#Region"Web窗体设计器生成的代码"
'该调用是Web窗体设计器所必需的。
PrivateSubInitializeComponent()SubInitializeComponent()
EndSub
'注意:以下占位符声明是Web窗体设计器所必需的。
'不要删除或移动它。
PrivatedesignerPlaceholderDeclarationAsSystem.Object
PrivateSubPage_Init()SubPage_Init(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Init
'CODEGEN:此方法调用是Web窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
EndSub
#EndRegion
PublicvalidatesAsNewValidate.CreatValidateNumber
PublicvaliAsString
PrivateSubPage_Load()SubPage_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
'在此处放置初始化页的用户代码
vali=validates.CreatValidateNumber(5)
validates.CreatevalidateGraphic(Me,vali)
Session("vali")=vali
EndSub
EndClass
调用的HMTL

WebForm1












后台
PrivateSubButton1_Click()SubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Iftb_valide.Text=Session("vali")Then
Response.Write("提示:验证通过")
Else
Response.Write("所填写的验证码与所给的不符")
EndIf
EndSub
完成效果如下