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

Star

原文地址：http://www.dedecms.com/knowledge ... t/2009/0929/91.html
6 m# \6 s2 ]" {8 ?
详见原文，如果原文不可见，请见下文：
! A, p# I6 H5 c很多文章只讲诉了如何输出一个随机生成数字或字符的图象,当然这是验证码的核心了,但是对很多ASP.NET的初学者来说,怎么使用它生成的图象又成了一个问题(论坛有不少问这个的),这也是我写本文的一个原因.
/ r# A8 L& @& H1 b+ H
# r% O3 m! ^! r, a* P0 B9 ~" }关于验证码的原理,就不多说了,大家可以参见其他文章,文末附有完整的实例代码,里面有详细的注释,你可以跳过解说文字,直接使用

' Z0 ?# ~; R& @首先,要简要说说Session和ViewState的用法,因为后面会用到它

把数据存储在Session中:Session("key")="test"

# X$ ^- Q+ J- o& P4 K% y从Session取值:dim testvalue as string=Session("key")
7 n1 y8 Q& g& e+ }* v
类似的:
. F: D/ Q5 a( `  d; b( g* E* j
把数据存储在ViewState中:ViewState("key")="test"
0 q* [7 p/ U  ]" S5 m& u) V
从ViewState中取值:dim testvalue as string=ViewState("key")
4 A" |3 d% W" V
关于ViewState的更详细的资料,你可以参看MSDN的<<ASP.NET ViewState 初探>>一文

有时代码本身就比任何解说更有表现力,所以在此就不对代码解说太多了,本文实现的验证码需要用到两个文件:
: u  `' d1 j* ^6 Z( v  x
) l  u% p- g1 P( K+ |7 Z! Ygif.aspx           该文件用于生成验证码
* N* _$ |# `4 C( g, o* R2 o5 C# X
% D, c- K/ i% P, i+ m' w9 e" c( lValidateCode.aspx  该文件用来测试验证码(即如何使用)
, y- E% Q5 K4 L: {; U
) Q1 C. j6 B+ E0 _下面给出gif.aspx的完整代码:

* }2 `  b5 C& E- s1 }$ M" |<%@ import namespace="System"%>
% I4 B, V1 X) e2 W5 z
3 _! Q, G: i4 Y1 U5 D& d1 K; j! C<%@ import namespace="System.io"%>

9 P% ?7 e5 D" {<%@ import namespace="System.Drawing"%>
+ W# o3 v8 Q& X
<%@ import namespace="System.Drawing.Imaging"%>

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

Sub Page_Load(Sender as object,e as eventargs)

'RndNum是一个自定义函数

) L. |8 O7 @+ J8 sdim VNum as string=RndNum(4)
* H( ]/ K8 \+ U( O% r) O
! }) R& A+ c2 W; ^5 USession("VNum")=VNum
# a2 B9 f  L* ^' P! q* M' O- X6 b
" L. J: V% R3 g% B! V; l6 v$ L  bValidateCode(VNum)

0 E/ n  `7 a; }, AEnd Sub

( J% [( f% r: u2 ]. Z. z$ l5 `'生成图象验证码函数
8 g1 V! X, X! @7 f. B; ]. p/ Q
Sub ValidateCode(VNum)

' j+ T; P' ]  F1 U* P" Y( a2 wDim Img as System.Drawing.Bitmap
4 j8 }& q" ?+ a. w* T( K: R  f6 K5 P
) c( t! A0 ^3 H8 r, rDim g as Graphics
$ B; X& {. |# b! D0 P
Dim ms as MemoryStream

dim gheight as integer=Int(Len(VNum)*11.5)
+ k/ _$ c' l8 P0 U4 z# }' V
7 A) B- S3 w* _/ J4 n) @'gheight为图片宽度,根据字符长度自动更改图片宽度

img=new BitMap(Gheight,20)
6 R) O/ j; w9 ?: a
) _- t! T4 r8 Q+ m+ ag=Graphics.FromImage(img)
7 y' f) }6 t) P
g.DrawString(VNum,(New Font("Arial",10)),(New SolidBrush(color.blue)),3,3)'在矩形内绘制字串（字串，字体，画笔颜色，左上x.左上y）

' r/ u# [8 {2 g' W" [ms=New MemoryStream()
# @6 h6 a2 V) A( `6 Y
img.Save(ms,ImageFormat.Png)

Response.ClearContent() '需要输出图象信息 要修改HTTP头
# B0 ~! h3 K! F6 |
% y$ E: A2 F4 g( W* eResponse.ContentType="image/Png"
$ x% L. X+ `% c: j4 M
Response.BinaryWrite(ms.ToArray())
$ K, h$ L% c: a, x$ @/ d+ w. h
g.Dispose()

img.Dispose()
: w" d4 W  ^( R  b
5 v( a6 n9 F, h( |  O# tResponse.End()

End Sub
7 ^) h9 o/ F/ O# D: r, n2 l0 \
2 n$ j4 n( h9 p4 G2 k& I'--------------------------------------------
. a( l* f7 A! o/ C
'函数名称:RndNum

, A' z( c# Q. s7 r. S'函数参数:VcodeNum--设定返回随机字符串的位数
" N% c6 h8 G( n
'函数功能:产生数字和字符混合的随机字符串
) _% b& c% X: y* _* M6 L
Function RndNum(VcodeNum)

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"
; y* M" X+ V( n% d% ~- b$ F% X
* ~' h% \" e( W5 K3 i3 @- [dim VcArray() as string=split(Vchar,",") '将字符串生成数组
7 ], W; ?; Z% J. d
9 W2 _0 C) J5 K$ [dim VNum as string=""
/ T% M: r; V! Y( u# W
! T3 X* k8 w% k; }# r1 gdim i as byte

! X# o8 _( Y6 ]For i=1 to VcodeNum
$ ?8 a) [1 U, \6 G/ P5 G
Randomize

VNum=VNum & VcArray(Int(35*Rnd)) '数组一般从0开始读取，所以这里为35*Rnd
3 B* }1 _2 `6 v* o1 l- ]
Next
2 d  G' {5 o$ \; @8 T: c
Return VNum
9 u: `# H+ q: v' t2 T* J
End Function
( t: w  f1 T' ]+ v
6 }0 y1 d! L# B5 I</script>
9 L# ?7 E# K2 L2 g9 m) }
+ \" A% Z4 K' k2 m; A那么又应该如何使用该文件生成的图象验证码,看这句代码:

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