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