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

Star

原文地址：http://www.dedecms.com/knowledge ... t/2009/0929/91.html
2 j: z( B; |$ D3 f
详见原文，如果原文不可见，请见下文：
很多文章只讲诉了如何输出一个随机生成数字或字符的图象,当然这是验证码的核心了,但是对很多ASP.NET的初学者来说,怎么使用它生成的图象又成了一个问题(论坛有不少问这个的),这也是我写本文的一个原因.
; @' p9 J7 Y4 {1 ~5 }5 m
关于验证码的原理,就不多说了,大家可以参见其他文章,文末附有完整的实例代码,里面有详细的注释,你可以跳过解说文字,直接使用
( l/ a" F* U4 z7 l8 ^
; }: p8 j+ e' D# V+ h% d9 y+ O' N首先,要简要说说Session和ViewState的用法,因为后面会用到它
7 G/ X& m2 ^: L) y, p  t
8 f7 o3 n3 R( a  t. E( t* `把数据存储在Session中:Session("key")="test"

从Session取值:dim testvalue as string=Session("key")
9 L& Z; v7 L, W
( t' M4 X- h, i: J. Z8 V类似的:

* `/ _* Q9 z2 H' D6 q把数据存储在ViewState中:ViewState("key")="test"
6 v- j7 A; c. v  b- b( v
$ _  ~& ?/ p4 R5 O$ f( G从ViewState中取值:dim testvalue as string=ViewState("key")
# w, ^7 W  r9 t. b% a3 h# O
2 N- n" L  ~0 }( |% U: h7 _2 e关于ViewState的更详细的资料,你可以参看MSDN的<<ASP.NET ViewState 初探>>一文
) A- {$ T) q1 S1 h* i8 q
1 B* ]' Q! M5 J: u有时代码本身就比任何解说更有表现力,所以在此就不对代码解说太多了,本文实现的验证码需要用到两个文件:

gif.aspx           该文件用于生成验证码

, o9 \# u& K" i4 S; }7 b0 g5 HValidateCode.aspx  该文件用来测试验证码(即如何使用)

: G, P0 f5 L1 t. Y下面给出gif.aspx的完整代码:
0 ~; ^9 ]" M/ e: ?( [
<%@ import namespace="System"%>

' r- l# `* m) @" I+ J/ s<%@ import namespace="System.io"%>

3 d, q1 B2 K* s$ G+ T' X<%@ import namespace="System.Drawing"%>

<%@ import namespace="System.Drawing.Imaging"%>
; ?3 F$ `: H/ Y& }8 s3 x1 a5 t' H* {4 t
3 O: \" b% @* e" i<script language="vb" runat="server">

1 m2 a8 P: I9 ?* SSub Page_Load(Sender as object,e as eventargs)

'RndNum是一个自定义函数
! N; E9 t0 C. G9 G: i
dim VNum as string=RndNum(4)

Session("VNum")=VNum
1 L* l8 z" I7 I  v! ~: l
' K0 T7 t/ D, r: S9 lValidateCode(VNum)

) ~4 h9 M. T' kEnd Sub
3 r8 {) x* p5 E+ E
2 D) s: L( Z% m% B; o1 e/ {'生成图象验证码函数

! E- B' Z: ?% b- SSub ValidateCode(VNum)
6 Z) b6 b% h" @! N* x
' b7 j5 `/ T/ L1 _Dim Img as System.Drawing.Bitmap

) A$ Y: ~8 M  ]2 k. ?3 u; ]9 d' JDim g as Graphics
2 |& w$ \; b- Y6 v$ D
Dim ms as MemoryStream
1 H$ Q% I9 _) [1 ]8 H- r
" M. X; Y& c  ^6 }" f0 odim gheight as integer=Int(Len(VNum)*11.5)

'gheight为图片宽度,根据字符长度自动更改图片宽度

img=new BitMap(Gheight,20)

g=Graphics.FromImage(img)
# H) d, W7 {% ^
g.DrawString(VNum,(New Font("Arial",10)),(New SolidBrush(color.blue)),3,3)'在矩形内绘制字串（字串，字体，画笔颜色，左上x.左上y）

ms=New MemoryStream()

img.Save(ms,ImageFormat.Png)
$ ~& j% |7 B% m& g8 I! q3 U
1 b( @( c4 q- @6 z8 H& {Response.ClearContent() '需要输出图象信息 要修改HTTP头

& `, R& d8 X* g& ]Response.ContentType="image/Png"

Response.BinaryWrite(ms.ToArray())

g.Dispose()
4 w0 X- r6 ^0 J7 K$ L! ~
img.Dispose()

Response.End()

End Sub

'--------------------------------------------

/ b* ^8 e3 w. x% y" ^2 Y- t! S( N* M'函数名称:RndNum
0 j( K6 P& k1 R3 a$ ]3 |
'函数参数:VcodeNum--设定返回随机字符串的位数
$ ]- t- t/ U3 M
'函数功能:产生数字和字符混合的随机字符串
+ b  `# Y" ?$ i, V
Function RndNum(VcodeNum)
( V8 \. e; t; L2 P( y7 C
, t" T0 G( n! W7 C. ~8 Bdim 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"
+ N5 R  n0 `7 @0 C0 ]5 y
dim VcArray() as string=split(Vchar,",") '将字符串生成数组
2 M" B$ @, u7 u6 `" S5 B0 B6 d
) a2 e1 Q3 k- S3 v% kdim VNum as string=""
; P# k1 L' i1 V
dim i as byte

For i=1 to VcodeNum
; Q; Q  d  x6 t3 b: q- p& }
4 Q2 y5 S/ u, ?4 k2 lRandomize

VNum=VNum & VcArray(Int(35*Rnd)) '数组一般从0开始读取，所以这里为35*Rnd

9 |: [) x. z5 Z  l3 F. ?( @Next

Return VNum
: M; v0 w' t1 ?$ a
( y5 [" `" z$ y7 c3 EEnd Function

2 x3 |" Y* W% n( @* w  p  y</script>

; f* X1 x$ W. d/ }8 \- w那么又应该如何使用该文件生成的图象验证码,看这句代码:
9 J4 f$ _$ a* D
1 p! c* o( N5 o5 ~7 s<asp:Image id="Image1" runat="server" ImageUrl="gif.aspx" />
$ T( b- w6 ?7 k1 W0 i/ s- K