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

Star

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

详见原文，如果原文不可见，请见下文：
很多文章只讲诉了如何输出一个随机生成数字或字符的图象,当然这是验证码的核心了,但是对很多ASP.NET的初学者来说,怎么使用它生成的图象又成了一个问题(论坛有不少问这个的),这也是我写本文的一个原因.
6 }1 E7 P, v7 q/ v$ J
8 i0 a: E8 w; P8 \* C. x9 H+ x( A# w% i关于验证码的原理,就不多说了,大家可以参见其他文章,文末附有完整的实例代码,里面有详细的注释,你可以跳过解说文字,直接使用

3 v- n, ^/ H- p3 L; ?首先,要简要说说Session和ViewState的用法,因为后面会用到它
6 d* |2 q( m$ F. v& n  S
# u# m' \. j, d. W把数据存储在Session中:Session("key")="test"
) _% k9 R9 R' S2 O
, D' _" E+ T9 D2 r3 T: C' B/ l! t从Session取值:dim testvalue as string=Session("key")
4 v4 O+ A2 b" |$ ~% d% X; f( U
类似的:

把数据存储在ViewState中:ViewState("key")="test"
) t  Y0 [1 C& x2 X" K3 B3 J
从ViewState中取值:dim testvalue as string=ViewState("key")

% T5 d  V. a" U7 u) ?) l# \* a& p; [关于ViewState的更详细的资料,你可以参看MSDN的<<ASP.NET ViewState 初探>>一文
1 w5 z5 j8 V& y+ I; I
. f2 p) [  f3 q) u" C* d有时代码本身就比任何解说更有表现力,所以在此就不对代码解说太多了,本文实现的验证码需要用到两个文件:
9 @: f. P# f6 C5 T6 @
2 n, Z8 I* V5 pgif.aspx           该文件用于生成验证码

ValidateCode.aspx  该文件用来测试验证码(即如何使用)

下面给出gif.aspx的完整代码:
& C( K4 |- H% {2 v  G) G
<%@ import namespace="System"%>

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

<%@ import namespace="System.Drawing"%>
( Y; `# G- K( x# E$ f( Z1 x: L% K
<%@ import namespace="System.Drawing.Imaging"%>
" l' h$ h4 L% Y& Y
& u3 Y) P/ n: D2 k" I<script language="vb" runat="server">
) ]! o) K& K: |2 C# K
Sub Page_Load(Sender as object,e as eventargs)
0 Q- q$ U5 V1 B2 B
1 n6 }1 {& b  M) u9 m'RndNum是一个自定义函数
! \! z8 P! k3 c. T( q0 `) u
6 q  \; V; [' u& m: s6 w( a  cdim VNum as string=RndNum(4)
! c1 D7 W2 R1 k; P
Session("VNum")=VNum

ValidateCode(VNum)

End Sub

7 A- {3 ~) W2 I( ?'生成图象验证码函数
" c) U" c# T5 ]
  l/ u2 G( V# o, G* u% J( i* Y" vSub ValidateCode(VNum)

Dim Img as System.Drawing.Bitmap

Dim g as Graphics

) e! o5 C, p% `) pDim ms as MemoryStream

4 k- r: a- h% h# Q& Bdim gheight as integer=Int(Len(VNum)*11.5)

; n6 P; \: j% }/ f' o% a'gheight为图片宽度,根据字符长度自动更改图片宽度

$ m3 h/ h0 ~9 E" Rimg=new BitMap(Gheight,20)

$ o+ t$ n0 l' G& r* \' J+ d! Mg=Graphics.FromImage(img)

1 {$ P* j. l- q5 og.DrawString(VNum,(New Font("Arial",10)),(New SolidBrush(color.blue)),3,3)'在矩形内绘制字串（字串，字体，画笔颜色，左上x.左上y）

; }! |0 w' W* ?5 Lms=New MemoryStream()
9 M; Y( F& r# r* l  ^5 r% B
img.Save(ms,ImageFormat.Png)

Response.ClearContent() '需要输出图象信息 要修改HTTP头
8 ^5 s' w' @) j
, }7 D0 e' }5 u. ]( c' wResponse.ContentType="image/Png"

8 }% B" f0 A$ }9 q/ R5 }Response.BinaryWrite(ms.ToArray())
& e2 Q5 I' ]  C
g.Dispose()
6 M0 z: L' y( v. ~; y
img.Dispose()

9 T0 l) p' V' f, y7 r' a! e4 y4 LResponse.End()

8 E5 }  q  W0 f" h3 s$ C/ iEnd Sub

  e$ Q4 }9 Z& v8 I7 J'--------------------------------------------
6 f2 R6 v$ l- g2 r$ i! J5 ~
'函数名称:RndNum
. K$ o& C  z. u1 h7 f  `) S& w
'函数参数:VcodeNum--设定返回随机字符串的位数

'函数功能:产生数字和字符混合的随机字符串
- F/ e& z  `* S# p& d
1 Y& W& e, K! Y! Y8 g2 y/ e% }) bFunction RndNum(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"

$ c. }; ]  e6 S7 tdim VcArray() as string=split(Vchar,",") '将字符串生成数组
( z0 N0 D; f6 G; |
% v# R/ c& Q/ u! ^5 T2 I2 O% d0 x; Fdim VNum as string=""
4 @/ K( ^" B+ ]2 o% X- h( d' e# N
dim i as byte

* e" Y+ c* G* D! i- Q" [. nFor i=1 to VcodeNum

Randomize
. Z' K3 u3 o0 `$ v+ S
; @3 v4 [# C6 n, rVNum=VNum & VcArray(Int(35*Rnd)) '数组一般从0开始读取，所以这里为35*Rnd
9 u) b1 E3 Y: A- @/ n" l0 [/ @/ l
+ i' J4 r- |+ KNext
6 V" V$ e% f0 x/ j4 _/ h
, L. k' w7 D- g+ i' T9 N; X+ F+ zReturn VNum

& ]$ n9 t" B3 mEnd Function
) _0 |# W7 w! E1 _+ ^
</script>
2 v! x% d  H) H6 \
那么又应该如何使用该文件生成的图象验证码,看这句代码:
; o0 K" ?% ~+ {7 m% a: P
: Y: s( {1 D) s  v" `) o<asp:Image id="Image1" runat="server" ImageUrl="gif.aspx" />
( E# m2 H6 A- |