在线等 怎样实现验证码的判断(要求要有必要的判断代码)
Dim rd As New Random
Dim RdNum As Integer = rd.Next(1000, 9999)
Session("chkCode") = RdNum
Dim newbitmap As New Bitmap(36, 16, Imaging.PixelFormat.Format32bppArgb)
Dim g As Graphics = Graphics.FromImage(newbitmap)
Dim rectangle As New RectangleF(0, 0, 36, 16)
g.FillRectangle(New SolidBrush(Color.BurlyWood), rectangle)
Dim txtfont As New Font("宋体", 10)
g.DrawString(RdNum.ToString, txtfont, New SolidBrush(Color.Blue), rectangle)
newbitmap.Save(Server.MapPath("") & "\test.gif")
这个是我的代码
生成一个四位的随机数 通过图片控件显示随机数
怎样用代码实现验证码的判断过程???