ashx代码
Imports
System
Imports System.Web
Imports System.Drawing
Imports System.IO
Imports System.Web.UI
Public Class login_validatecode : Implements IHttpHandler
#Region "验证码的长度(默认6个)"
Private m_codeLenght As Integer = 6
Public Property CodeLenght() As Integer
Get
Return m_codeLenght
End Get
Set ( ByVal value As Integer )
m_codeLenght = value
End Set
End Property
#End Region
#Region "验证码的字体大小（默认13相素）"
Private m_fontSize As Integer = 13
Public Property FontSize() As Integer
Get
Return m_fontSize
End Get
Set ( ByVal value As Integer )
m_fontSize = value
End Set
End Property
#End Region
#Region "验证码的字体样式（默认Roman）"
Private m_fontFamily As String = " Roman "
Public Property FontFamily() As String
Get
Return m_fontFamily
End Get
Set ( ByVal value As String )
m_fontFamily = value
End Set
End Property
#End Region
#Region "是否输出燥点"
Private m_point As Boolean = True
Public Property Point() As Boolean
Get
Return m_point
End Get
Set ( ByVal value As Boolean )
m_point = value
End Set
End Property
#End Region
#Region "输出燥点的颜色(默认海洋蓝)"
Private m_pointColor As Color = Color.LightSeaGreen
Public Property PointColor() As Color
Get
Return m_pointColor
End Get
Set ( ByVal value As Color)
m_pointColor = value
End Set
End Property
#End Region
#Region "图片背景噪音线数量（默认5条）"
Private m_lineNumber As Integer = 5
Public Property LineNumber() As Integer
Get
Return m_lineNumber
End Get
Set ( ByVal value As Integer )
m_lineNumber = value
End Set
End Property
#End Region
#Region "图片背景噪音线颜色(默认灰色)"
Private m_lineColor As Color = Color.LightGray
Public Property LineColor() As Color
Get
Return m_lineColor
End Get
Set ( ByVal value As Color)
m_lineColor = value
End Set
End Property
#End Region
#Region "图片的背景颜色(默认白色)"
Private m_backgroundColor As Color = Color.White
Public Property BackgroundColor() As Color
Get
Return m_backgroundColor
End Get
Set ( ByVal value As Color)
m_backgroundColor = value
End Set
End Property
#End Region
#Region "图片边框颜色(默认灰色)"
Private m_rectangleColor As Color = Color.LightGray
Public Property RectangleColor() As Color
Get
Return m_rectangleColor
End Get
Set ( ByVal value As Color)
m_rectangleColor = value
End Set
End Property
#End Region
#Region "随即颜色数组"
Private m_colors As Color() = {Color.Black, Color.Red, Color.DarkBlue, Color.Green, Color.Orange, Color.Brown, _
Color.DarkCyan, Color.Purple}
Public Property Colors() As Color()
Get
Return m_colors
End Get
Set ( ByVal value As Color())
m_colors = value
End Set
End Property
#End Region
#Region "随即字符串"
Private m_randomCode As String = " 2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,G,H,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,Y,Z "
Public Property RandomCode() As String
Get
Return m_randomCode
End Get
Set ( ByVal value As String )
m_randomCode = value
End Set
End Property
#End Region
#Region "生成验证码图片"
Public Function CreateImage( ByVal code As String ) As Bitmap
' 设置字体大小
Dim FSize As Integer = Me .FontSize
Dim FWidth As Integer = FSize ' FSize + 2
' 设置图片大小
Dim ImgWidth As Integer = CInt ((code.Length * FWidth)) + code.Length * 2 ' CInt((code.Length * FWidth)) + 4
Dim ImaHeight As Integer = FSize + 6 ‘ FSize * 2
' 创建图片和画笔
Dim iamge As New Bitmap(ImgWidth, ImaHeight)
Dim gh As Graphics = Graphics.FromImage(iamge)
gh.Clear(m_backgroundColor)
' 绘制图片的背景噪音线
Dim rand As New Random()
For i As Integer = 1 To m_lineNumber
Dim x1 As Integer = rand.Next(ImgWidth)
Dim x2 As Integer = rand.Next(ImgWidth)
Dim y1 As Integer = rand.Next(ImaHeight)
Dim y2 As Integer = rand.Next(ImaHeight)
gh.DrawLine( New Pen(m_lineColor), x1, y1, x2, y2)
Next
' 绘制图片边框线
gh.DrawRectangle( New Pen(m_rectangleColor, 1 ), 0 , 0 , ImgWidth - 1 , (ImaHeight - 1 ))
' 绘制图片的前景噪音点
If m_point Then
For i As Integer = 0 To m_codeLenght * 2 - 1
Dim x As Integer = rand.Next(ImgWidth)
Dim y As Integer = rand.Next(ImaHeight)
iamge.SetPixel(x, y, Color.FromArgb(rand.Next()))
Next
' Me.MakePoint(gh, ImgWidth, ImaHeight)
End If
' 绘制字符串随即颜色
MakeFontColor(gh, code, ImaHeight, FSize)
Return iamge
End Function
#End Region
#Region "产生随即字符串"
''' <summary>
''' 返回产成的随即字符串
''' </summary>
''' <param name="codeLenght"> 字符串的长度 </param>
''' <returns> 返回产成的随即字符串 </returns>
Public Function MakeCode( ByVal codeLenght As Integer ) As String
Dim splitStr As String () = m_randomCode.Split( " , " )
Dim newCode As String = Nothing
Dim rand As New Random( CType (DateTime.Now.Ticks Mod System.Int32.MaxValue, Integer ))
For i As Integer = 0 To codeLenght - 1
newCode &= splitStr(rand.Next( 0 , splitStr.Length - 1 ))
Next
Return newCode
End Function
#End Region
#Region "产成字符串的随即颜色"
Public Sub MakeFontColor( ByVal g As Graphics, ByVal str As String , ByVal imgHeight As Integer , ByVal fontSize As Integer )
Dim b As Brush
Dim colorIndex As Integer
Dim rand As New Random()
Dim left As Integer = 0 , top As Integer = 0 , top1 As Integer = 1 , top2 As Integer = 1
Dim n1 As Integer = imgHeight - fontSize - 4
Dim n2 As Integer = n1 / 4
top1 = n2
top2 = n2 * 2
For i As Integer = 0 To m_codeLenght - 1
colorIndex = rand.[ Next ](m_colors.Length - 1 )
b = New System.Drawing.SolidBrush(m_colors(colorIndex))
If i Mod 2 = 1 Then
top = top2
Else
top = top1
End If
left = i * (fontSize)
Dim f As New Font( Me .FontFamily, Me .FontSize)
g.DrawString( str .Substring(i, 1 ), f, b, left , top)
Next
End Sub
#End Region
#Region "随即产生燥点"
''' <summary>
''' 随即产生燥点
''' </summary>
''' <param name="g"> 画笔 </param>
''' <param name="imgWidth"> 绘制的宽度 </param>
''' <param name="imgHeight"> 绘制的高度 </param>
Public Sub MakePoint( ByVal g As Graphics, ByVal imgWidth As Integer , ByVal imgHeight As Integer )
Dim rand As New Random()
Dim p As New Pen(m_pointColor, 0 )
For i As Integer = 0 To m_codeLenght * 2 - 1
Dim x As Integer = rand.Next(imgWidth)
Dim y As Integer = rand.Next(imgHeight)
g.DrawRectangle(p, x, y, 1 , 1 )
Next
End Sub
#End Region
#Region "将绘制的图片输出到页面"
Public Sub CreateImageOnPage( ByVal code As String , ByVal text As HttpContext)
Dim ms As New MemoryStream()
Dim img As Bitmap = CreateImage(code)
img.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
text.Response.ClearContent()
text.Response.ContentType = " image/Jpeg "
text.Response.BinaryWrite(ms.GetBuffer())
ms.Close()
ms = Nothing
img.Dispose()
img = Nothing
End Sub
#End Region
Public Sub ProcessRequest( ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
Dim gvc As New login_validatecode()
gvc.CodeLenght = 4
gvc.FontSize = 13
gvc.Point = False
Dim code As String = gvc.MakeCode(gvc.CodeLenght) ' 获取随即字符串
HttpContext.Current.Response.Cookies.Add( New HttpCookie( " BBS_LOGIN_VALIDATECODE " , code))
gvc.CreateImageOnPage(code, context)
context.Response.End()
End Sub
Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
Get
Return False
End Get
End Property
End Class
Imports System.Web
Imports System.Drawing
Imports System.IO
Imports System.Web.UI
Public Class login_validatecode : Implements IHttpHandler
#Region "验证码的长度(默认6个)"
Private m_codeLenght As Integer = 6
Public Property CodeLenght() As Integer
Get
Return m_codeLenght
End Get
Set ( ByVal value As Integer )
m_codeLenght = value
End Set
End Property
#End Region
#Region "验证码的字体大小（默认13相素）"
Private m_fontSize As Integer = 13
Public Property FontSize() As Integer
Get
Return m_fontSize
End Get
Set ( ByVal value As Integer )
m_fontSize = value
End Set
End Property
#End Region
#Region "验证码的字体样式（默认Roman）"
Private m_fontFamily As String = " Roman "
Public Property FontFamily() As String
Get
Return m_fontFamily
End Get
Set ( ByVal value As String )
m_fontFamily = value
End Set
End Property
#End Region
#Region "是否输出燥点"
Private m_point As Boolean = True
Public Property Point() As Boolean
Get
Return m_point
End Get
Set ( ByVal value As Boolean )
m_point = value
End Set
End Property
#End Region
#Region "输出燥点的颜色(默认海洋蓝)"
Private m_pointColor As Color = Color.LightSeaGreen
Public Property PointColor() As Color
Get
Return m_pointColor
End Get
Set ( ByVal value As Color)
m_pointColor = value
End Set
End Property
#End Region
#Region "图片背景噪音线数量（默认5条）"
Private m_lineNumber As Integer = 5
Public Property LineNumber() As Integer
Get
Return m_lineNumber
End Get
Set ( ByVal value As Integer )
m_lineNumber = value
End Set
End Property
#End Region
#Region "图片背景噪音线颜色(默认灰色)"
Private m_lineColor As Color = Color.LightGray
Public Property LineColor() As Color
Get
Return m_lineColor
End Get
Set ( ByVal value As Color)
m_lineColor = value
End Set
End Property
#End Region
#Region "图片的背景颜色(默认白色)"
Private m_backgroundColor As Color = Color.White
Public Property BackgroundColor() As Color
Get
Return m_backgroundColor
End Get
Set ( ByVal value As Color)
m_backgroundColor = value
End Set
End Property
#End Region
#Region "图片边框颜色(默认灰色)"
Private m_rectangleColor As Color = Color.LightGray
Public Property RectangleColor() As Color
Get
Return m_rectangleColor
End Get
Set ( ByVal value As Color)
m_rectangleColor = value
End Set
End Property
#End Region
#Region "随即颜色数组"
Private m_colors As Color() = {Color.Black, Color.Red, Color.DarkBlue, Color.Green, Color.Orange, Color.Brown, _
Color.DarkCyan, Color.Purple}
Public Property Colors() As Color()
Get
Return m_colors
End Get
Set ( ByVal value As Color())
m_colors = value
End Set
End Property
#End Region
#Region "随即字符串"
Private m_randomCode As String = " 2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,G,H,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,Y,Z "
Public Property RandomCode() As String
Get
Return m_randomCode
End Get
Set ( ByVal value As String )
m_randomCode = value
End Set
End Property
#End Region
#Region "生成验证码图片"
Public Function CreateImage( ByVal code As String ) As Bitmap
' 设置字体大小
Dim FSize As Integer = Me .FontSize
Dim FWidth As Integer = FSize ' FSize + 2
' 设置图片大小
Dim ImgWidth As Integer = CInt ((code.Length * FWidth)) + code.Length * 2 ' CInt((code.Length * FWidth)) + 4
Dim ImaHeight As Integer = FSize + 6 ‘ FSize * 2
' 创建图片和画笔
Dim iamge As New Bitmap(ImgWidth, ImaHeight)
Dim gh As Graphics = Graphics.FromImage(iamge)
gh.Clear(m_backgroundColor)
' 绘制图片的背景噪音线
Dim rand As New Random()
For i As Integer = 1 To m_lineNumber
Dim x1 As Integer = rand.Next(ImgWidth)
Dim x2 As Integer = rand.Next(ImgWidth)
Dim y1 As Integer = rand.Next(ImaHeight)
Dim y2 As Integer = rand.Next(ImaHeight)
gh.DrawLine( New Pen(m_lineColor), x1, y1, x2, y2)
Next
' 绘制图片边框线
gh.DrawRectangle( New Pen(m_rectangleColor, 1 ), 0 , 0 , ImgWidth - 1 , (ImaHeight - 1 ))
' 绘制图片的前景噪音点
If m_point Then
For i As Integer = 0 To m_codeLenght * 2 - 1
Dim x As Integer = rand.Next(ImgWidth)
Dim y As Integer = rand.Next(ImaHeight)
iamge.SetPixel(x, y, Color.FromArgb(rand.Next()))
Next
' Me.MakePoint(gh, ImgWidth, ImaHeight)
End If
' 绘制字符串随即颜色
MakeFontColor(gh, code, ImaHeight, FSize)
Return iamge
End Function
#End Region
#Region "产生随即字符串"
''' <summary>
''' 返回产成的随即字符串
''' </summary>
''' <param name="codeLenght"> 字符串的长度 </param>
''' <returns> 返回产成的随即字符串 </returns>
Public Function MakeCode( ByVal codeLenght As Integer ) As String
Dim splitStr As String () = m_randomCode.Split( " , " )
Dim newCode As String = Nothing
Dim rand As New Random( CType (DateTime.Now.Ticks Mod System.Int32.MaxValue, Integer ))
For i As Integer = 0 To codeLenght - 1
newCode &= splitStr(rand.Next( 0 , splitStr.Length - 1 ))
Next
Return newCode
End Function
#End Region
#Region "产成字符串的随即颜色"
Public Sub MakeFontColor( ByVal g As Graphics, ByVal str As String , ByVal imgHeight As Integer , ByVal fontSize As Integer )
Dim b As Brush
Dim colorIndex As Integer
Dim rand As New Random()
Dim left As Integer = 0 , top As Integer = 0 , top1 As Integer = 1 , top2 As Integer = 1
Dim n1 As Integer = imgHeight - fontSize - 4
Dim n2 As Integer = n1 / 4
top1 = n2
top2 = n2 * 2
For i As Integer = 0 To m_codeLenght - 1
colorIndex = rand.[ Next ](m_colors.Length - 1 )
b = New System.Drawing.SolidBrush(m_colors(colorIndex))
If i Mod 2 = 1 Then
top = top2
Else
top = top1
End If
left = i * (fontSize)
Dim f As New Font( Me .FontFamily, Me .FontSize)
g.DrawString( str .Substring(i, 1 ), f, b, left , top)
Next
End Sub
#End Region
#Region "随即产生燥点"
''' <summary>
''' 随即产生燥点
''' </summary>
''' <param name="g"> 画笔 </param>
''' <param name="imgWidth"> 绘制的宽度 </param>
''' <param name="imgHeight"> 绘制的高度 </param>
Public Sub MakePoint( ByVal g As Graphics, ByVal imgWidth As Integer , ByVal imgHeight As Integer )
Dim rand As New Random()
Dim p As New Pen(m_pointColor, 0 )
For i As Integer = 0 To m_codeLenght * 2 - 1
Dim x As Integer = rand.Next(imgWidth)
Dim y As Integer = rand.Next(imgHeight)
g.DrawRectangle(p, x, y, 1 , 1 )
Next
End Sub
#End Region
#Region "将绘制的图片输出到页面"
Public Sub CreateImageOnPage( ByVal code As String , ByVal text As HttpContext)
Dim ms As New MemoryStream()
Dim img As Bitmap = CreateImage(code)
img.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
text.Response.ClearContent()
text.Response.ContentType = " image/Jpeg "
text.Response.BinaryWrite(ms.GetBuffer())
ms.Close()
ms = Nothing
img.Dispose()
img = Nothing
End Sub
#End Region
Public Sub ProcessRequest( ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
Dim gvc As New login_validatecode()
gvc.CodeLenght = 4
gvc.FontSize = 13
gvc.Point = False
Dim code As String = gvc.MakeCode(gvc.CodeLenght) ' 获取随即字符串
HttpContext.Current.Response.Cookies.Add( New HttpCookie( " BBS_LOGIN_VALIDATECODE " , code))
gvc.CreateImageOnPage(code, context)
context.Response.End()
End Sub
Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
Get
Return False
End Get
End Property
End Class