[转]在ASP.NET下实现数字和字符相混合的验证码

Star

原文地址：http://www.dedecms.com/knowledge ... t/2009/0929/91.html

& {1 ~* \2 r: V5 A( M详见原文，如果原文不可见，请见下文：
很多文章只讲诉了如何输出一个随机生成数字或字符的图象,当然这是验证码的核心了,但是对很多ASP.NET的初学者来说,怎么使用它生成的图象又成了一个问题(论坛有不少问这个的),这也是我写本文的一个原因.

关于验证码的原理,就不多说了,大家可以参见其他文章,文末附有完整的实例代码,里面有详细的注释,你可以跳过解说文字,直接使用
1 ~0 B4 |' j3 m) g5 n! s
5 h) @. p* C$ z; x首先,要简要说说Session和ViewState的用法,因为后面会用到它

把数据存储在Session中:Session("key")="test"
4 o$ B5 P* d# k8 [" B
从Session取值:dim testvalue as string=Session("key")

/ f4 E" R3 b, b1 ?) Z: B+ e类似的:
7 U  }/ U$ L7 z- R, k
把数据存储在ViewState中:ViewState("key")="test"

从ViewState中取值:dim testvalue as string=ViewState("key")

3 C1 C$ p3 N2 D7 J5 p/ L% D关于ViewState的更详细的资料,你可以参看MSDN的<<ASP.NET ViewState 初探>>一文

有时代码本身就比任何解说更有表现力,所以在此就不对代码解说太多了,本文实现的验证码需要用到两个文件:
6 q3 _- n! r5 \" c# {. O
9 A: r& d3 }$ ?9 Jgif.aspx           该文件用于生成验证码

ValidateCode.aspx  该文件用来测试验证码(即如何使用)
- W6 ]: a+ _( N* S
' V6 J( R6 {6 A( |- n+ {下面给出gif.aspx的完整代码:
) p! [3 P8 v. z4 |7 f
' v, W1 N, k% ?  z<%@ import namespace="System"%>
/ ?! l+ g  i+ B0 k$ r
<%@ import namespace="System.io"%>
% K9 @: C% Z+ g7 W% t6 {4 b
<%@ import namespace="System.Drawing"%>
- G8 U. C7 C2 ^; O8 T& L( g
<%@ import namespace="System.Drawing.Imaging"%>

+ m9 v. q. A" S2 q6 f<script language="vb" runat="server">

Sub Page_Load(Sender as object,e as eventargs)
1 S2 j* }+ ~8 j
'RndNum是一个自定义函数

dim VNum as string=RndNum(4)
0 r: p& h/ o  b' }% C
1 O9 Y7 j9 c/ o) S7 O+ [& f/ sSession("VNum")=VNum

6 b9 M  _, @/ kValidateCode(VNum)

End Sub
9 E) Q$ U9 v, O
8 S0 G" [3 R* ^/ h1 ^'生成图象验证码函数
. `- b6 B8 I) R3 x2 a
Sub ValidateCode(VNum)

Dim Img as System.Drawing.Bitmap
% n$ Y* {+ n: c" ~  C0 B, C' `! @
' p2 F2 F- g8 A8 b9 O9 @3 r& }Dim g as Graphics

Dim ms as MemoryStream

dim gheight as integer=Int(Len(VNum)*11.5)

'gheight为图片宽度,根据字符长度自动更改图片宽度
- E1 V3 A5 N% X0 {; q. w
img=new BitMap(Gheight,20)
1 _, t6 P6 A7 l6 z) J8 j3 b
g=Graphics.FromImage(img)
6 Y- Q0 ]+ w8 v. c# V4 e* V
; L& `' T% U0 f5 s$ I0 v) xg.DrawString(VNum,(New Font("Arial",10)),(New SolidBrush(color.blue)),3,3)'在矩形内绘制字串（字串，字体，画笔颜色，左上x.左上y）
/ w6 c* s8 R, v0 q6 y# Z
! m, M7 B0 D+ r! u0 Oms=New MemoryStream()

; R& _5 g1 }. N, k' E# W; n) aimg.Save(ms,ImageFormat.Png)
0 X9 p9 L$ t0 j$ z1 S& G
! b- b8 c' \; g9 P" ?4 CResponse.ClearContent() '需要输出图象信息 要修改HTTP头

Response.ContentType="image/Png"
7 I( E4 o/ @. g) {
Response.BinaryWrite(ms.ToArray())

g.Dispose()

/ z0 P: V* o7 pimg.Dispose()
5 K+ H8 j9 X1 `& f9 g% D0 t' }# ?9 n
/ {( U% W" A2 o* `( n! C+ m# VResponse.End()

End Sub
% x3 E0 Z. l5 Q; w5 L0 J0 B* e
'--------------------------------------------
1 d& V. H& n# c5 s. c
, \! Q4 h/ L  e. z; d, r( T'函数名称:RndNum

( V1 u% h1 o0 G5 G% Y. ['函数参数:VcodeNum--设定返回随机字符串的位数
( p- s0 E. P* F  u  n' m1 d% E" E" t
8 z4 D3 y# J- W+ d% V& [) y/ r'函数功能:产生数字和字符混合的随机字符串

* J4 s7 N" k2 `/ TFunction RndNum(VcodeNum)
7 [) o( S1 A3 k# H
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"

$ d/ A7 R: O# k4 d2 T2 Q0 kdim VcArray() as string=split(Vchar,",") '将字符串生成数组
3 k; M2 t( L0 c
; `& R, e: q+ d" O+ `- udim VNum as string=""
, L: c9 e1 |; t
! ~0 t8 A7 m3 s; e% C) F2 jdim i as byte

/ u7 P: h7 _9 A, j& Y0 p5 y9 Z$ bFor i=1 to VcodeNum

Randomize
, D3 b- T- K+ p3 b1 Y. ^( w$ g
; Q, E, g8 A0 J; GVNum=VNum & VcArray(Int(35*Rnd)) '数组一般从0开始读取，所以这里为35*Rnd

Next
  q( O8 L, x* @
Return VNum

End Function
, Q8 T0 K+ ~/ N1 p3 G  M- s% u
, I3 ?3 T( [( }. ?</script>
& ?/ X7 Y$ X9 ^6 [- F# }* b
那么又应该如何使用该文件生成的图象验证码,看这句代码:

<asp:Image id="Image1" runat="server" ImageUrl="gif.aspx" />
0 Y- V) O* ~+ W2 H) X3 u