简单的验证码

   Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Response.ContentType = "image/jpeg"
        Dim bmp As Bitmap = New Bitmap(60, 30)
        Dim gg As Graphics = Graphics.FromImage(bmp)
        Dim rad As Random = New Random
        Dim code As String = rad.Next(1000, 9999).ToString
        gg.DrawString(code, New Font("?S", 20), Brushes.Green, New PointF(0, 0))
        bmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg)
    End Sub