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--