Asp.net Validate Image Check...

Asp.net Validate Image Check

 

-Draw Serial Number Validate Image.  ( GenerateValidateImage.aspx.vb )

-Input Validate Number Match Show’s Serial Number  ( CheckValidateImage.aspx.vb )

 

 

 

 

GenerateValidateImage.aspx.vb   (-Draw Serial Number Validate Image Page)

 

Imports System.Web

Imports System.Web.Security

imports System.Web.UI

imports System.Web.UI.WebControls

imports System.Web.UI.WebControls.WebParts

imports System.Web.UI.HtmlControls

imports System.Drawing.Drawing2D

imports System.Drawing.Imaging

imports System.Drawing.Text

imports System.Drawing

 

Partial Class GenerateValidateImage

    Inherits System.Web.UI.Page

 

    Private ReadOnly Lstg_ImagePath As String = "Image/Validator.jpg"

    Private Lstg_Validator As String = ""

 

 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not Request.Params("Validator") Is Nothing Then

            Lstg_Validator = Request.Params("Validator").ToString()

        End If

 

        '--Create Bmp

        Dim Lbit_MapImage As Bitmap = New System.Drawing.Bitmap(Server.MapPath(Lstg_ImagePath))

        Dim Lgrp_GraphicImage As Graphics = Graphics.FromImage(Lbit_MapImage)

 

        '--Set Pen Output Mode

        Lgrp_GraphicImage.SmoothingMode = SmoothingMode.AntiAlias

        '--Add Text String

        Lgrp_GraphicImage.DrawString((Lstg_Validator), New Font("Arial", 12, FontStyle.Bold), SystemBrushes.WindowText, New Point(0, 0))

        '--Set graphics Image Output Format

        Response.ContentType = "image/jpeg"

        Lbit_MapImage.Save(Response.OutputStream, ImageFormat.Jpeg)

 

        '---Dispose Resource

        Lgrp_GraphicImage.Dispose()

        Lbit_MapImage.Dispose()

 

    End Sub

End Class

 

 

CheckValidateImage.aspx.vb  (Check Page,Input Validate Number Match Show’s Serial Number)

 

Partial Class CheckValidateImage

    Inherits System.Web.UI.Page

 

    Private Shared Lstg_Validator As String

    Private ReadOnly Last_ValidatorImageUrl As String = "GenerateValidateImage.aspx?Validator="

 

    Private Function GetGenerageValidateNo() As String

        Dim Lrnd_Random = New Random()

        Return (Lrnd_Random.Next(100000, 999999).ToString())

    End Function

 

    Protected Sub Button_Check_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button_Check.Click

        If Page.IsValid Then

            If Me.TextBox_Validate.Text <> CheckValidateImage.Lstg_Validator Then

                'Response.Write("<script>alert('Input Validate Numer invalid !');</script>")

                Me.Label_Message.Text = "Input Validate Numer invalid !"

                Lstg_Validator = GetGenerageValidateNo()

                Me.Image_Validate.ImageUrl = Last_ValidatorImageUrl + Lstg_Validator

                Return

            Else

                Me.Label_Message.Text = "Input Validate Numer Success!"

            End If

        Else

            Lstg_Validator = GetGenerageValidateNo()

            Me.Image_Validate.ImageUrl = Last_ValidatorImageUrl + Lstg_Validator

            Me.Label_Message.Text = "Input Validate Numer Error !"

        End If

 

    End Sub

 

 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

 

        If Not IsPostBack Then

            Lstg_Validator = GetGenerageValidateNo()

            Me.Image_Validate.ImageUrl = Last_ValidatorImageUrl + Lstg_Validator

        End If

    End Sub

End Class

 

--Result--