asp.net vb怎样制作图片验证码实现过程 , 在需要调用的页面使用image控件调用验证码生成的页面,验证码生成的页面生成验证图片且将验证信息保存至Session中,调用页面中通过Session判断用户是否输入正确 。道理是这样,以下看代码:
生成验证码页面:
gif.ASPx
%@importnamespace="System"%
%@importnamespace="System.io"%
%@importnamespace="System.Drawing"%
%@importnamespace="System.Drawing.Imaging"%
scriptlanguage="VB"runat="server"
SubPage_Load(ByValSenderAsObject,ByValeAsEventArgs)
'RndNum为生成随机码的函数 ,
DimVNumAsString=RndNum(4)'该值为生成验证码的位数
Session("VNum")=VNum'读取Session
ValidateCode(VNum) '根据Session生成图片
EndSub
'--------------------------------------------
'生成图象验证码函数
SubValidateCode(ByValVNum)
DimImgAsSystem.Drawing.Bitmap
【vb.net产生验证码 vb 验证码】DimgAsGraphics
DimmsAsMemoryStream
DimgheightAsInteger=Int(Len(VNum)*14)
'gheight为图片宽度 , 根据字符长度自动更改图片宽度
Img=NewBitmap(gheight,24)
g=Graphics.FromImage(Img)
g.DrawString(VNum,(NewFont("Arial",12)),(NewSolidBrush(Color.Red)),3,3)'在矩形内绘制字串(字串,字体,画笔颜色,左上x.左上y)
ms=NewMemoryStream()
Img.Save(ms,ImageFormat.Png)
Response.ClearContent()'需要输出图象信息要修改HTTP头
Response.ContentType="image/Png"
Response.BinaryWrite(ms.ToArray())
g.Dispose()
Img.Dispose()
Response.End()
EndSub
'--------------------------------------------
'函数名称:RndNum
'函数参数:VCodeNum--设定返回随机字符串的位数
'函数功能:产生数字和字符混合的随机字符串
FunctionRndNum(ByValVcodeNum)
DimVcharAsString="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函数中的字体
DimVcArray()AsString=Split(Vchar,",")'将字符串生成数组
DimVNumAsString=""
DimiAsByte
Fori=1ToVcodeNum
Randomize()
VNum=VNumVcArray(Int(35*Rnd()))'数组一般从0开始读取,所以这里为35*Rnd
Next
ReturnVNum
EndFunction
/script
调用页面:
demo.ASPx
scriptlanguage="VB"Runat="Server"
SubPage_Load(Senderasobject,easeventargs)
dimVNumasstring=Session("VNum")
Session.Abandon()
ViewState("VNum")=VNum
EndSub
'下面的事件代码是用来测试验证码
SubbtnSubmit_click(senderasobject,easeventargs)
'判断输入的验证码与所给是否相同
IftxtValidateCode.Text=CStr(ViewState("VNum"))Then
ensonShow.text="fontcolor='red'提示:验证通过/font"
Else
ensonShow.text="所填写的验证码与所给的不符"
EndIf
EndSub
/script
html
body
formrunat="server"
divalign="center"
tablewidth="750"
tr
tdvalign="middle"验证码:/td
!--调用验证图片生成页---
tdvalign="top"asp:Imageid="Image1"runat="server"ImageUrl="gif.aspx"//td
/tr
tr
tdvalign="top"输入验证码:/td
tdvalign="top"asp:textboxID="txtValidateCode"runat="server"TextMode="SingleLine"/fontcolor="#FF0000"size="2"*区分大小写/font/td
/tr
tr
tdcolspan="2"valign="top"align="center"asp:buttonID="btnSubmit"runat="server"Text="验证"onclick="btnSubmit_click"/
asp:labelID="ensonShow"runat="server"/
/td
/tr
/table
/div
/form
/body
/html
推荐阅读
- 苏州跨境电商市场前景如何,苏州跨境电商运营公司排名
- python中new_用法,python _new_
- html图片自动滚动模板,html怎么让图片自动滑动
- 语音直播运营总监,直播运营总监有哪些要求
- java程序调用c代码 java调用c语言程序
- 出售废旧手机应该注意什么,出售旧手机有风险吗
- 军事模拟器游戏下载免费,军事模拟器2破解版
- boss直播斗鱼,斗鱼boss是谁
- 如何注册微信公众号并运行,怎么样注册公众微信号