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

Star

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

详见原文，如果原文不可见，请见下文：
很多文章只讲诉了如何输出一个随机生成数字或字符的图象,当然这是验证码的核心了,但是对很多ASP.NET的初学者来说,怎么使用它生成的图象又成了一个问题(论坛有不少问这个的),这也是我写本文的一个原因.
3 }8 H3 _" z, ~% c$ _4 }) L4 W4 f
关于验证码的原理,就不多说了,大家可以参见其他文章,文末附有完整的实例代码,里面有详细的注释,你可以跳过解说文字,直接使用
7 b" g1 _# Q) ~& G
* z, B& Z( F: c4 |! p* D% i首先,要简要说说Session和ViewState的用法,因为后面会用到它
2 B: U% b' y6 Z3 E4 j
& P. I8 Y- c8 q5 \( ]9 s% k8 z把数据存储在Session中:Session("key")="test"
' f5 @! r! o! x6 O# c
% o1 P6 v. p: V- \  J从Session取值:dim testvalue as string=Session("key")

! D$ d% I1 I1 c4 v类似的:

把数据存储在ViewState中:ViewState("key")="test"
6 @+ ~: a) _$ Q; w6 V/ g  A
从ViewState中取值:dim testvalue as string=ViewState("key")
% O4 F1 I$ ~* l
关于ViewState的更详细的资料,你可以参看MSDN的<<ASP.NET ViewState 初探>>一文

5 S& X& C1 f9 X有时代码本身就比任何解说更有表现力,所以在此就不对代码解说太多了,本文实现的验证码需要用到两个文件:
) y4 ?3 }+ S2 }. B
" w: T3 o/ N5 w7 Pgif.aspx           该文件用于生成验证码

ValidateCode.aspx  该文件用来测试验证码(即如何使用)
) q: F4 [- _8 k+ D3 J
下面给出gif.aspx的完整代码:

<%@ import namespace="System"%>
) _/ Y4 ?6 Z; z. g0 V. K7 c9 m
; r3 b" ^$ _+ E0 |<%@ import namespace="System.io"%>
7 F' q$ V) l& _* T
5 K- ]. a' X1 a# r: m  ?<%@ import namespace="System.Drawing"%>

<%@ import namespace="System.Drawing.Imaging"%>

<script language="vb" runat="server">

5 g- Z2 g  v+ ^4 X' e' DSub Page_Load(Sender as object,e as eventargs)

'RndNum是一个自定义函数

dim VNum as string=RndNum(4)

Session("VNum")=VNum

ValidateCode(VNum)

End Sub

'生成图象验证码函数

: J/ j, d9 L' j, V5 \$ U& r( dSub ValidateCode(VNum)
, H! Q1 O& P- z2 H! G
$ A% H5 z+ s$ i9 m; dDim Img as System.Drawing.Bitmap

Dim g as Graphics
: T$ A3 P  H: |4 R- d
Dim ms as MemoryStream
1 I; g9 `$ s4 N8 y/ }2 e
! z: \+ z! Q1 T$ s$ r5 f+ jdim gheight as integer=Int(Len(VNum)*11.5)
" m0 W/ ~& i- k- X) o6 Z7 h* K
'gheight为图片宽度,根据字符长度自动更改图片宽度

img=new BitMap(Gheight,20)
5 ^% T0 H- l* j% \; _- Z
g=Graphics.FromImage(img)

' Q, A$ N1 `# ^% O  x+ H: _g.DrawString(VNum,(New Font("Arial",10)),(New SolidBrush(color.blue)),3,3)'在矩形内绘制字串（字串，字体，画笔颜色，左上x.左上y）

% E: `- |6 C. x$ `* J+ [# Gms=New MemoryStream()
3 O0 ^  s2 a- T7 D2 \/ m8 o' d: F
img.Save(ms,ImageFormat.Png)
! y, o! @9 i6 v1 q+ T" @* C% @
2 I9 P0 I) r4 s( v$ p( OResponse.ClearContent() '需要输出图象信息 要修改HTTP头

Response.ContentType="image/Png"
  n# h' w; v+ f7 j" M4 o5 H- z
Response.BinaryWrite(ms.ToArray())

g.Dispose()
7 Q. v' C/ P* F; m2 H4 h
img.Dispose()
5 a& J- w" T; u0 Z1 F) ?8 Q
Response.End()
4 L! b7 i  N# w: e6 U. [( ?2 H7 D
7 c" u$ z) e  L# Y- m6 I' OEnd Sub
0 ]; [) {' q- T/ H$ j# `' f
9 A% `- Q, h# z$ \% {'--------------------------------------------
0 i$ ]7 C& b0 l% f
'函数名称:RndNum

'函数参数:VcodeNum--设定返回随机字符串的位数

9 n+ ^% Z4 @" H'函数功能:产生数字和字符混合的随机字符串
: f9 ]& m& Z4 B& s# ?3 z8 L' {
( I( c9 U0 J' X4 }8 CFunction RndNum(VcodeNum)
/ Q. t2 d( J7 r2 H9 {# v
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"
7 Z. r8 g6 ?+ N+ N: ]/ A8 X* c
0 j5 j9 l' q1 J2 \5 c$ a$ Tdim VcArray() as string=split(Vchar,",") '将字符串生成数组

dim VNum as string=""

7 I9 N! q" B) o- u; y3 }* Sdim i as byte

For i=1 to VcodeNum

Randomize
5 {% c: E2 B1 X+ H! `
5 o! @/ |& Y. z" X/ V$ ?VNum=VNum & VcArray(Int(35*Rnd)) '数组一般从0开始读取，所以这里为35*Rnd
! s& |% X! t6 c
' {3 h; K: ?* {" KNext

Return VNum

* X4 p- q  u0 I" Z$ D; hEnd Function

1 m( W0 E8 x) @, [4 |</script>
  f; }' w: h5 Q6 M
那么又应该如何使用该文件生成的图象验证码,看这句代码:

<asp:Image id="Image1" runat="server" ImageUrl="gif.aspx" />
. W, l: e2 \* P. M