VB.net实现图像验证码功能

最新推荐文章于 2024-02-20 23:57:02 发布

原创最新推荐文章于 2024-02-20 23:57:02 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb.net #session #server #string #import #asp

Asp.net 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一种基于ASP.NET的验证码生成与验证方法，详细展示了如何利用图像控件生成验证码图片，并通过Session来实现验证码的校验。此外，还提供了完整的代码示例，包括生成验证码的页面和调用验证的页面。

部署运行你感兴趣的模型镜像

实现过程，在需要调用的页面使用image控件调用验证码生成的页面，验证码生成的页面生成验证图片且将验证信息保存至Session中，调用页面中通过Session判断用户是否输入正确。道理是这样，以下看代码：

生成验证码页面：
gif.aspx

<%@ import namespace="System"%>

<%@ import namespace="System.io"%>

<%@ import namespace="System.Drawing"%>

<%@ import namespace="System.Drawing.Imaging"%>

Sub Page_Load(ByVal Sender As Object, ByVal e As EventArgs)

'RndNum为生成随机码的函数，

Dim VNum As String = RndNum(4) '该值为生成验证码的位数

Session("VNum") = VNum '读取Session

ValidateCode(VNum) '根据Session生成图片

End Sub

'--------------------------------------------

'生成图象验证码函数

Sub ValidateCode(ByVal VNum)

Dim Img As System.Drawing.Bitmap

Dim g As Graphics

Dim ms As MemoryStream

Dim gheight As Integer = Int(Len(VNum) * 14)

'gheight为图片宽度，根据字符长度自动更改图片宽度

Img = New Bitmap(gheight, 24)

g = Graphics.FromImage(Img)

g.DrawString(VNum, (New Font("Arial", 12)), (New SolidBrush(Color.Red)), 3, 3) '在矩形内绘制字串（字串，字体，画笔颜色，左上x.左上y）

ms = New MemoryStream()

Img.Save(ms, ImageFormat.Png)

Response.ClearContent() '需要输出图象信息要修改HTTP头

Response.ContentType = "image/Png"

Response.BinaryWrite(ms.ToArray())

g.Dispose()

Img.Dispose()

Response.End()

End Sub

'--------------------------------------------

'函数名称:RndNum

'函数参数:VcodeNum--设定返回随机字符串的位数

'函数功能:产生数字和字符混合的随机字符串

Function RndNum(ByVal VcodeNum)

Dim Vchar As String = "0，1，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，W，X，Y，Z" '需要使用中文验证，可以修改这里和ValidateCode函数中的字体

Dim VcArray() As String = Split(Vchar, "，") '将字符串生成数组

Dim VNum As String = ""

Dim i As Byte

For i = 1 To VcodeNum

Randomize()

VNum = VNum & VcArray(Int(35 * Rnd())) '数组一般从0开始读取，所以这里为35*Rnd

Return VNum

End Function

</script>

调用页面：
demo.aspx

Sub Page_Load(Sender as object，e as eventargs)

dim VNum as string=Session("VNum")

Session.Abandon()

ViewState("VNum")=VNum

End Sub

'下面的事件代码是用来测试验证码

Sub btnSubmit_click(sender as object，e as eventargs)

'判断输入的验证码与所给是否相同

If txtValidateCode.Text = CStr(ViewState("VNum")) Then

ensonShow.text = "<font color='red'>提示:验证通过</font>"

Else

ensonShow.text = "所填写的验证码与所给的不符"

End If

End Sub

</script>

<html>

<body>

<tr>

</tr>

<tr>

<td valign="top">输入验证码:</td>

<td valign="top"><asp:textbox ID="txtValidateCode" runat="server" TextMode="SingleLine" /><font color="#FF0000" size="2">*区分大小写</font></td>

</tr>

<tr>

<asp:label ID="ensonShow" runat="server" />

</td>

</tr>

</table>

</div>

</form>

</body>

</html>

您可能感兴趣的与本文相关的镜像

ACE-Step

音乐合成

ACE-Step

ACE-Step是由中国团队阶跃星辰（StepFun）与ACE Studio联手打造的开源音乐生成模型。它拥有3.5B参数量，支持快速高质量生成、强可控性和易于拓展的特点。最厉害的是，它可以生成多种语言的歌曲，包括但不限于中文、英文、日文等19种语言