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

Star

原文地址：http://www.dedecms.com/knowledge ... t/2009/0929/91.html
' s& n: d4 G9 p3 Q; W2 R
详见原文，如果原文不可见，请见下文：
! x. D5 J" z3 T. x很多文章只讲诉了如何输出一个随机生成数字或字符的图象,当然这是验证码的核心了,但是对很多ASP.NET的初学者来说,怎么使用它生成的图象又成了一个问题(论坛有不少问这个的),这也是我写本文的一个原因.
, s9 q2 ~/ ?  ^. ~9 Z4 s8 [6 k
关于验证码的原理,就不多说了,大家可以参见其他文章,文末附有完整的实例代码,里面有详细的注释,你可以跳过解说文字,直接使用

, y6 y1 ~& A0 U5 }! h! _0 Q首先,要简要说说Session和ViewState的用法,因为后面会用到它

把数据存储在Session中:Session("key")="test"
* Y5 B; i* _! r3 w
2 m3 O4 o& J1 E1 u1 X6 U从Session取值:dim testvalue as string=Session("key")
$ e9 T8 ^. Z5 p2 J% V2 s
* J1 f/ `) s3 S! ~; s5 c- ]; x1 j类似的:
- p# u; I1 M' ?9 r# N5 I
把数据存储在ViewState中:ViewState("key")="test"

; \+ k" a3 }; `. o9 T3 l0 F从ViewState中取值:dim testvalue as string=ViewState("key")
& }  S- K5 a: w. y& V5 D
7 X6 |: n' Q7 t2 ]/ E关于ViewState的更详细的资料,你可以参看MSDN的<<ASP.NET ViewState 初探>>一文

* _" ]/ z  Z6 z9 E: j$ {有时代码本身就比任何解说更有表现力,所以在此就不对代码解说太多了,本文实现的验证码需要用到两个文件:

7 o" y1 l# C7 t* Q% E) P- Cgif.aspx           该文件用于生成验证码

& ?. x: L! ], p7 g6 EValidateCode.aspx  该文件用来测试验证码(即如何使用)
8 z( v& Y6 X* ?# I
& j5 y! A3 N( F6 h下面给出gif.aspx的完整代码:
4 B0 g& k6 J. [7 B& O) I" h
<%@ import namespace="System"%>
3 y+ _; X8 O$ N1 y. N
<%@ import namespace="System.io"%>

$ x! ~) |1 F+ t9 F9 R: `7 a! {<%@ import namespace="System.Drawing"%>

<%@ import namespace="System.Drawing.Imaging"%>
, e2 K9 j7 J7 R
& m8 K( M* K4 ~) |0 }. e<script language="vb" runat="server">

; h; f  g, Q7 K: @- T% |Sub Page_Load(Sender as object,e as eventargs)
  \7 V2 h( z4 @0 V' }* H4 E+ K
'RndNum是一个自定义函数

7 z0 b& s# g. V9 E' w. b( ]6 m( d5 hdim VNum as string=RndNum(4)
' @" P4 N  A8 \. m/ z
Session("VNum")=VNum

ValidateCode(VNum)

" ?5 d, Y# q9 X/ ]" F" WEnd Sub

'生成图象验证码函数
3 ~- U* t( R# l% V) C: ]% i; D
Sub ValidateCode(VNum)

Dim Img as System.Drawing.Bitmap

Dim g as Graphics

Dim ms as MemoryStream
4 A: f& Y0 L2 \& Z' K5 j" Z
4 A1 q/ b3 V8 N8 k' Ndim gheight as integer=Int(Len(VNum)*11.5)

'gheight为图片宽度,根据字符长度自动更改图片宽度
5 }9 n: e. q0 _3 W/ Z# W: N0 `+ Q
  x7 f/ H; H; b7 ?4 P6 Timg=new BitMap(Gheight,20)
1 i% ^) d/ B% G  C$ L
& i1 U( A6 k' x3 V8 I& |4 Ag=Graphics.FromImage(img)

; [. K0 E! |+ d' e, H+ X% ?8 Ig.DrawString(VNum,(New Font("Arial",10)),(New SolidBrush(color.blue)),3,3)'在矩形内绘制字串（字串，字体，画笔颜色，左上x.左上y）

ms=New MemoryStream()
3 |) h" G" @/ a" m. e$ a
img.Save(ms,ImageFormat.Png)

Response.ClearContent() '需要输出图象信息 要修改HTTP头
5 t/ T( [. M& i3 N" m
Response.ContentType="image/Png"

Response.BinaryWrite(ms.ToArray())
: g; |- Y- P' s+ r$ \$ t1 k: I
g.Dispose()
/ V- n" s% l; V
img.Dispose()

Response.End()

: j6 Z$ D2 |$ N9 f2 z$ UEnd Sub
4 ]4 _+ x7 B& {
: F. p: l) i: f7 I2 h'--------------------------------------------
9 T+ d: i( j8 S# B- |
'函数名称:RndNum

  ~+ U) u% Z- ^1 X! K& l: \'函数参数:VcodeNum--设定返回随机字符串的位数

'函数功能:产生数字和字符混合的随机字符串

Function RndNum(VcodeNum)

9 o8 _1 S6 m8 J4 t- _; Qdim 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"

dim VcArray() as string=split(Vchar,",") '将字符串生成数组

dim VNum as string=""
( Y8 [+ k, R- E$ \5 ]
4 p! U' j' K" |8 |4 ^# o! Hdim i as byte

3 W) X1 f3 P' u1 KFor i=1 to VcodeNum

Randomize
2 e0 \6 x% t+ T: n/ d2 b% k3 g# w
VNum=VNum & VcArray(Int(35*Rnd)) '数组一般从0开始读取，所以这里为35*Rnd
+ B. J4 Q/ `" C6 @9 ?3 y  X& T
  Z9 R1 R# j& b. A. g# \Next

( P5 f  G0 N- FReturn VNum
  l, F+ Y; D9 d" h3 H/ i7 C
End Function

( f  _2 ~7 _: V; W3 v2 l</script>

4 T3 g/ t5 |) A2 b3 [那么又应该如何使用该文件生成的图象验证码,看这句代码:
5 f' Z/ A, i4 U. Z
% G( R' O1 `2 V<asp:Image id="Image1" runat="server" ImageUrl="gif.aspx" />
) b, {! N, P0 k: l& `6 [( O