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

Star

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

9 g  B) t7 r7 u8 \详见原文，如果原文不可见，请见下文：
很多文章只讲诉了如何输出一个随机生成数字或字符的图象,当然这是验证码的核心了,但是对很多ASP.NET的初学者来说,怎么使用它生成的图象又成了一个问题(论坛有不少问这个的),这也是我写本文的一个原因.
5 [/ d, ^) j% C' h0 A( Q& x3 i8 }8 P
# K# v7 j3 w# L8 c. T$ r关于验证码的原理,就不多说了,大家可以参见其他文章,文末附有完整的实例代码,里面有详细的注释,你可以跳过解说文字,直接使用
1 m% R# d( P4 M- v4 C/ Z. g' ^; Y
+ t5 X- W9 N- U# q4 w, K首先,要简要说说Session和ViewState的用法,因为后面会用到它
' E  P5 P( O2 T. O* U8 I% [
把数据存储在Session中:Session("key")="test"

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

9 B" p; d$ Z+ m( s' z9 @类似的:

把数据存储在ViewState中:ViewState("key")="test"
$ m8 Q3 e/ d# d
从ViewState中取值:dim testvalue as string=ViewState("key")

* e7 m" a# }; J关于ViewState的更详细的资料,你可以参看MSDN的<<ASP.NET ViewState 初探>>一文
, W/ e7 P, l3 y* F- k, X( G! [" I
有时代码本身就比任何解说更有表现力,所以在此就不对代码解说太多了,本文实现的验证码需要用到两个文件:

6 [. }0 Q  w% I; Ugif.aspx           该文件用于生成验证码

ValidateCode.aspx  该文件用来测试验证码(即如何使用)
) `' x+ s& A# d5 ^; g
0 ^2 I, F0 d5 W' T! k( w下面给出gif.aspx的完整代码:

) q( s1 d! w! [& y+ O<%@ import namespace="System"%>
! `, U7 u' J) F" @2 v
: @) c6 T. S- b5 {0 o3 V7 S<%@ import namespace="System.io"%>
$ V) |( }4 Q. \1 _+ ~5 E
<%@ import namespace="System.Drawing"%>

<%@ import namespace="System.Drawing.Imaging"%>
) y  @: D% \! x# u7 R# D3 t$ _
% I) x2 P" g6 X  e& p<script language="vb" runat="server">
* X( {+ k1 n, f. t$ M4 N6 \9 h0 W7 `
& T' ?2 s2 A6 I) j- GSub Page_Load(Sender as object,e as eventargs)
! n1 p) f8 o. @
( k8 i* L( k  A' z'RndNum是一个自定义函数
  P! n6 O9 }. b2 H0 \2 k+ V
dim VNum as string=RndNum(4)

Session("VNum")=VNum

ValidateCode(VNum)

End Sub
" l, |5 ~+ p9 z' S, T+ i( V
'生成图象验证码函数
  S8 S- G# a8 u" S& ?! g" F
Sub ValidateCode(VNum)

Dim Img as System.Drawing.Bitmap

Dim g as Graphics

# s6 W1 y0 k9 P' s  HDim ms as MemoryStream
: u6 U3 V+ |) M1 r* q0 F! ?5 o' J
# p; M; M# C/ o6 U" S" hdim gheight as integer=Int(Len(VNum)*11.5)
" p! D- R7 D6 I, [& b$ }8 Z
7 T! T) V6 h' k0 H- _'gheight为图片宽度,根据字符长度自动更改图片宽度
2 ]! b6 D+ |+ O9 G4 r
img=new BitMap(Gheight,20)

8 B5 Y+ U) E1 Yg=Graphics.FromImage(img)
2 ^; A9 e. t( m/ U  G( _7 v! ^& N5 h
! R: y# {6 w" \* g/ m! l# Bg.DrawString(VNum,(New Font("Arial",10)),(New SolidBrush(color.blue)),3,3)'在矩形内绘制字串（字串，字体，画笔颜色，左上x.左上y）

) T2 `! r9 c4 Q6 I) Gms=New MemoryStream()
: q. H3 T+ \: z" B( h
img.Save(ms,ImageFormat.Png)

Response.ClearContent() '需要输出图象信息 要修改HTTP头
( ]' d; r0 T0 [  `
3 w3 A! D9 V) K$ NResponse.ContentType="image/Png"
5 K# N2 Q- _' b# D( S. D7 A
Response.BinaryWrite(ms.ToArray())

g.Dispose()
$ h* T. p; g1 k/ M
img.Dispose()

Response.End()
( v1 J! s/ R% Q0 ~, Z
; Y5 H: w! w: _  y, oEnd Sub

- ]  A* i# ?7 E. e'--------------------------------------------
; e. t1 L) P1 F& J2 D
'函数名称:RndNum
; Z# s5 S5 a: ^  O6 M  V
/ L& c% f  q: `* {'函数参数:VcodeNum--设定返回随机字符串的位数
! ?* ~3 {/ c; n8 |
1 k, r/ \+ f* c# H'函数功能:产生数字和字符混合的随机字符串
: D5 D/ w# l% \& z/ a
: ?! b. [0 o5 l2 w1 b2 cFunction RndNum(VcodeNum)

# Q2 x- L2 v' P5 s& cdim 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"
% w! D  }+ [+ |. }
4 l6 b! o. q& U: l5 [8 b' i$ Gdim VcArray() as string=split(Vchar,",") '将字符串生成数组

7 ]6 g% a& M+ ~7 Ydim VNum as string=""

dim i as byte
  `2 T$ C5 A6 h: K% K( f0 X
For i=1 to VcodeNum
4 h+ [- O- U4 O% i+ e2 I0 t
Randomize
2 H% v5 @7 ^% l2 O
VNum=VNum & VcArray(Int(35*Rnd)) '数组一般从0开始读取，所以这里为35*Rnd
" w3 b! Z' j1 r' [9 A% a
  Q$ N1 D" z; \2 E. Y: FNext
# e9 f* v) v! _
/ F- G5 Z  g0 V. ~' rReturn VNum
% a' ^+ M1 W, q, g1 @; j
8 V# b+ }. N* ?9 fEnd Function
; U  Q8 [' m4 N3 j0 N
</script>
1 ^5 V2 `- g6 N- o
3 [5 `" @; D1 \$ P  ^# y6 N那么又应该如何使用该文件生成的图象验证码,看这句代码:

<asp:Image id="Image1" runat="server" ImageUrl="gif.aspx" />
5 R& M+ {' C% i. M