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

Star

原文地址：http://www.dedecms.com/knowledge ... t/2009/0929/91.html
" z: r1 G+ K8 o9 g
详见原文，如果原文不可见，请见下文：
5 K% b4 Y( L, [很多文章只讲诉了如何输出一个随机生成数字或字符的图象,当然这是验证码的核心了,但是对很多ASP.NET的初学者来说,怎么使用它生成的图象又成了一个问题(论坛有不少问这个的),这也是我写本文的一个原因.
, K* h7 G% }6 L# d! {! p! W
9 H5 E  e3 r! L1 A3 ?关于验证码的原理,就不多说了,大家可以参见其他文章,文末附有完整的实例代码,里面有详细的注释,你可以跳过解说文字,直接使用

首先,要简要说说Session和ViewState的用法,因为后面会用到它
2 q& d2 J6 E: c" Q0 X- w/ G( H
把数据存储在Session中:Session("key")="test"

从Session取值:dim testvalue as string=Session("key")
  M* s( F/ X2 E: \5 R/ y6 }& i& s0 x
8 i" d. X0 x2 e类似的:
: a: W# \9 [9 t+ G7 v, d
把数据存储在ViewState中:ViewState("key")="test"
, r# E2 W( v2 T
从ViewState中取值:dim testvalue as string=ViewState("key")
" A. n- N& i7 r
! f% [3 O  W5 h) X关于ViewState的更详细的资料,你可以参看MSDN的<<ASP.NET ViewState 初探>>一文
- z% A( U! m* B" f
有时代码本身就比任何解说更有表现力,所以在此就不对代码解说太多了,本文实现的验证码需要用到两个文件:

: X4 o  Z6 j7 p7 d7 hgif.aspx           该文件用于生成验证码

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

下面给出gif.aspx的完整代码:

<%@ import namespace="System"%>

( V0 N0 M( v& d# o' w7 r<%@ import namespace="System.io"%>
. h- T( l. r  _( ?, T, \
1 e+ a& b3 b, [( q0 f<%@ import namespace="System.Drawing"%>

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

8 s& U/ Q4 f4 N8 R7 Z<script language="vb" runat="server">
/ V1 j* n# ], `; L+ q0 ^
  R) @, f. j3 I, r# GSub Page_Load(Sender as object,e as eventargs)

'RndNum是一个自定义函数
. c' P" {* W9 W
/ S+ X" q; K! t) edim VNum as string=RndNum(4)
! f- _, A: |. W3 G0 Q# `# P4 Q
Session("VNum")=VNum

3 x5 V* Q& Z  c7 S* IValidateCode(VNum)
& ?6 o- Q$ u) w6 o4 V. O  R0 y- q
End Sub
" n. p2 D  H2 B5 E- O
: V( i3 y& o# a6 X'生成图象验证码函数
( {9 T  {6 ~3 T
5 D/ z2 a- E& SSub ValidateCode(VNum)

Dim Img as System.Drawing.Bitmap
& F' v" Q2 h5 t8 `1 b
Dim g as Graphics
% O7 w" z* a+ |
Dim ms as MemoryStream

3 h1 |6 W4 h3 o! M# \( \dim gheight as integer=Int(Len(VNum)*11.5)

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

* ^) }, t5 r4 g7 bimg=new BitMap(Gheight,20)

g=Graphics.FromImage(img)
- D$ X" o' _6 I! Y9 b3 A0 B: b
g.DrawString(VNum,(New Font("Arial",10)),(New SolidBrush(color.blue)),3,3)'在矩形内绘制字串（字串，字体，画笔颜色，左上x.左上y）
: {0 I4 N+ O/ d, ], h7 l
ms=New MemoryStream()
$ Q4 m5 g% s0 M9 l
0 ?% G4 X5 n, P& }8 \( Aimg.Save(ms,ImageFormat.Png)
0 s# M* }% B% K- u* e
Response.ClearContent() '需要输出图象信息 要修改HTTP头
$ I4 A7 m% k/ d
Response.ContentType="image/Png"
- a% E( q9 z* Z% Q* o
Response.BinaryWrite(ms.ToArray())
6 x8 s2 r) V" `7 J8 X
g.Dispose()

img.Dispose()
6 X% h5 h6 i! C2 _
Response.End()
; l5 ?" b( ^6 R! k7 K% _
/ l+ @& S+ A! O3 ZEnd Sub
8 D/ S3 r$ ~/ Y) _
'--------------------------------------------
' ?' v5 f3 u: s) h" d; _
'函数名称:RndNum
' \9 w# {" s& Y9 N* d; Q; t
- O* d) P2 e/ j# P7 A'函数参数:VcodeNum--设定返回随机字符串的位数
# c$ g; d- z: X
6 x! [9 Q( }- z; d) |'函数功能:产生数字和字符混合的随机字符串

' D6 m( c& E7 S% d5 L6 b$ GFunction RndNum(VcodeNum)
' I1 V( q3 K7 G. x5 Q
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"
5 x( @$ u: g' ^5 ]7 [$ s  O( K+ C
dim VcArray() as string=split(Vchar,",") '将字符串生成数组

+ z9 ], N& o) G+ ?5 f! d+ ddim VNum as string=""
, ~/ C$ ~3 K( a1 k
dim i as byte
: Z; Q+ a) Y% g# y5 [+ |' t
For i=1 to VcodeNum

% V9 Z+ Z  t; O" ^7 mRandomize
% x( b# `& O; M  t6 ]" H2 P: H
VNum=VNum & VcArray(Int(35*Rnd)) '数组一般从0开始读取，所以这里为35*Rnd
8 v3 {1 J# a) \$ Q9 a. o3 o
Next

Return VNum

, ^: m5 w5 j" ]8 d' K  s8 y0 [- R" bEnd Function
2 K. x0 A$ E0 c  x
' r& L. V% X8 ?, P, h: h. s7 N</script>
& x: }$ i5 o9 t- Q
那么又应该如何使用该文件生成的图象验证码,看这句代码:

<asp:Image id="Image1" runat="server" ImageUrl="gif.aspx" />