做登陆页面的随机验证码
来源:互联网 发布:vue.js 图片点击放大 编辑:程序博客网 时间:2024/05/19 19:34
先放上这页代码:(radamdata.aspx是用来产生验证码图片用的)
Imports System.Drawing
Imports System.IO
Partial Class test2
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' 在此处放置用户代码以初始化页面
If Not Page.IsPostBack Then
Me.GenImg(Me.GenCode(4))
End If
End Sub
Private Function GenCode(ByVal num As Integer) As String
Dim [source] 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", "V", "W", "X", "Y", "Z"}
Dim code As String = ""
Dim rd As New Random()
Dim i As Integer
For i = 0 To num - 1
code += [source](rd.Next(0, [source].Length))
Next i
Return code
End Function 'GenCode
'生成图片
Private Sub GenImg(ByVal code As String)
Dim myPalette As New Bitmap(60, 20) '定义一个画板
Dim gh As Graphics = Graphics.FromImage(myPalette) '在画板上定义绘图的实例
Dim rc As New Rectangle(0, 0, 60, 20) '定义一个矩形
gh.FillRectangle(New SolidBrush(Color.Silver), rc) '填充矩形
gh.DrawString(code, New Font("宋体", 16), New SolidBrush(Color.Gray), rc) '在矩形内绘制字串(字串,字体,画笔颜色,左上x.左上y)
myPalette.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg) '将图片显示出来
'下面这些也是将图片显示出来的!
'Dim ms As MemoryStream = New MemoryStream
'myPalette.Save(ms, Imaging.ImageFormat.Jpeg)
' Response.ClearContent()
' Response.ContentType = "image/jpeg"
' Response.BinaryWrite(ms.ToArray)
Session("ValidateCode") = code '将字符串保存到Session中,以便需要时进行验证
gh.Dispose()
myPalette.Dispose()
End Sub 'GenImg
End Class
..................................................................................................................................................................
放上调用radamdata.aspx的radamindex.aspx的代码
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = Session("ValidateCode") Then
Label1.Text = "haha,你成功了!!!"
Else
Label1.Text = "不对哦"
End If
End Sub
End Class
然后在randamindex.aspx上放一个image控件,使他的图片连接为randamdata.aspx就行了!!!
- 做登陆页面的随机验证码
- JS做的登陆页面,验证用户名密码非空
- 带有随机验证码的登录页面
- 有验证码的登陆页面
- Flex 带验证码的登陆页面
- Flex 带验证码的登陆页面
- 带验证码的HTML5登陆页面
- session实现带随机验证码的登陆
- html5做的登陆页面
- 登陆页面的验证js
- 实现网页随机登陆验证码功能
- 利用CI框架做一个随机的验证码识别
- java抓取带验证码登陆后的页面
- Android登陆页面,获取验证码按钮的实现
- 随机的验证码
- 随机生成验证码页面显示
- jsp页面添加随机验证码
- Jsp页面生成随机验证码图片
- [瞭望]从西溪湿地到中山古镇 --看“经营政府”
- ASP.NET中随机数生成及应用
- Word快捷键大全
- Socket API,CAsyncSocket,CSocket内幕及其用法
- 有blog啦
- 做登陆页面的随机验证码
- [09-19]关于双击*.exe就生成*~.exe(第2版)
- 2006-9-13文档生成组工作报告
- JUnit in action学习笔记(二)
- Linux系统的LOG日志文件及入侵后日志的清除
- 写给新人们[聊天记录整理]:如何做个新人!
- 运用Filter,ThreadLocal和Reflection,实现form到bean的填充
- 9.13
- 处理html字符