vb.net实现验证码功能

最新推荐文章于 2022-04-15 17:01:27 发布

vidal000

最新推荐文章于 2022-04-15 17:01:27 发布

阅读量762

点赞数

分类专栏： .net 原理// asp.net 2.0 文章标签： vb.net session server string import asp

.net 原理// 同时被 2 个专栏收录

3 篇文章 0 订阅

订阅专栏

asp.net 2.0

1 篇文章 0 订阅

订阅专栏

实现过程，在需要调用的页面使用image控件调用验证码生成的页面，验证码生成的页面生成验证图片且将验证信息保存至Session中，调用页面中通过Session判断用户是否输入正确。道理是这样，以下看代码：
　　
　　生成验证码页面：
　　gif.aspx
　　<%@ import namespace="System"%>
　　<%@ import namespace="System.io"%>
　　<%@ import namespace="System.Drawing"%>
　　<%@ import namespace="System.Drawing.Imaging"%>
　　
　　<script language="vb" runat="server">
　　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
　　Next
　　Return VNum
　　End Function
　　</script>
　　
　　
　　调用页面：
　　demo.aspx
　　<script language="vb" Runat="Server">
　　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>
　　<form runat="server">
　　<div align="center">
　　<table width="750">
　　<tr>
　　<td valign="middle">验证码:</td>
　　
　　<td valign="top"><asp:Image id="Image1" runat="server" ImageUrl="gif.aspx" /></td>
　　</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>
　　<td colspan="2" valign="top" align="center"><asp:button ID="btnSubmit" runat="server" Text="验证" οnclick="btnSubmit_click" />
　　<asp:label ID="ensonShow" runat="server" />
　　</td>
　　</tr>
　　</table>
　　</div>
　　</form>
　　</body>
　　</html>

vidal000

关注

0
点赞
踩
1

收藏

觉得还不错? 一键收藏
0
评论
vb.net实现验证码功能

实现过程，在需要调用的页面使用image控件调用验证码生成的页面，验证码生成的页面生成验证图片且将验证信息保存至Session中，调用页面中通过Session判断用户是否输入正确。道理是这样，以下看代码：　　　　生成验证码页面：　　gif.aspx　　　　　　　　　　　　　　Sub Page_Load(ByVal Sender As Object, ByVal e As EventArgs)　　
复制链接

扫一扫