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

Star

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

详见原文，如果原文不可见，请见下文：
很多文章只讲诉了如何输出一个随机生成数字或字符的图象,当然这是验证码的核心了,但是对很多ASP.NET的初学者来说,怎么使用它生成的图象又成了一个问题(论坛有不少问这个的),这也是我写本文的一个原因.

+ k. G& f0 O* \% u# B' K/ s关于验证码的原理,就不多说了,大家可以参见其他文章,文末附有完整的实例代码,里面有详细的注释,你可以跳过解说文字,直接使用

首先,要简要说说Session和ViewState的用法,因为后面会用到它
. e3 ^: n2 r  p( S6 t4 m, B$ a
$ r% k8 g- T) g8 u把数据存储在Session中:Session("key")="test"

* e5 d/ Y% b8 }8 K9 u* V: k从Session取值:dim testvalue as string=Session("key")
# S, K& F6 f8 s0 ^
( S9 D) S$ l% s: O  i) A9 V9 Z8 `类似的:
2 Z! I& w7 H! z1 l
. \4 G: t* {$ @; F把数据存储在ViewState中:ViewState("key")="test"
9 G- V. D* x, s; K% h! k2 J
) U3 T6 P8 y( Z  S/ ^; f6 R从ViewState中取值:dim testvalue as string=ViewState("key")
" Q/ `  o5 W! W, `/ \
关于ViewState的更详细的资料,你可以参看MSDN的<<ASP.NET ViewState 初探>>一文
/ R7 V4 b2 A1 H7 V! \2 D9 Q) V
有时代码本身就比任何解说更有表现力,所以在此就不对代码解说太多了,本文实现的验证码需要用到两个文件:
+ V; `* X. W, \* O9 N
2 \. W' S$ h3 \gif.aspx           该文件用于生成验证码
# E% l3 C6 o8 j# Z
4 ^+ J1 A; c( y; t" ~! H( oValidateCode.aspx  该文件用来测试验证码(即如何使用)
! f8 t, P7 ^1 E: [, g8 ?
下面给出gif.aspx的完整代码:

<%@ import namespace="System"%>
% t$ O' M: r" |6 ~
<%@ import namespace="System.io"%>
( i7 N% t7 D* i# z& Q' w
; [& I: v$ T: C" x  k) c<%@ import namespace="System.Drawing"%>

$ ^& x" U, ~* u, t: `7 e: J/ Y<%@ import namespace="System.Drawing.Imaging"%>

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

6 p) m7 X7 J$ T! dSub Page_Load(Sender as object,e as eventargs)
9 q/ n$ S! c! f0 {3 z
' x4 Q9 K% e; ~. L) z, p6 V7 N3 t% Z'RndNum是一个自定义函数
" a; n) T# R5 ?1 U% y" I4 ^6 x
+ ~) I+ K8 L, @6 b$ Zdim VNum as string=RndNum(4)

Session("VNum")=VNum

ValidateCode(VNum)
; {& ~5 h$ j: R! M
0 `) l2 h' F) V( A. r4 P- W( VEnd Sub
1 p! K3 q& f5 W, P: F
% s+ y" ~+ |8 G/ K5 Q: ]* @- Z  S'生成图象验证码函数

Sub ValidateCode(VNum)

Dim Img as System.Drawing.Bitmap

; S+ a5 y' T+ \3 t* ZDim g as Graphics
3 [" P- K+ D4 X" [
8 C& A$ Y" W! tDim ms as MemoryStream
# P% D$ i) P$ V
dim gheight as integer=Int(Len(VNum)*11.5)

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

% v; L* b5 u- |( q& }img=new BitMap(Gheight,20)

- S' P0 @. S5 I& Ag=Graphics.FromImage(img)

g.DrawString(VNum,(New Font("Arial",10)),(New SolidBrush(color.blue)),3,3)'在矩形内绘制字串（字串，字体，画笔颜色，左上x.左上y）
1 {  @5 Y5 t! Q
ms=New MemoryStream()
3 W4 j9 z7 Z' W4 }7 @  I; B! p9 T& k
" Q$ u+ `' E# z* h. Jimg.Save(ms,ImageFormat.Png)

Response.ClearContent() '需要输出图象信息 要修改HTTP头

8 q) }, M' k/ f  \5 ^9 T" g2 w6 xResponse.ContentType="image/Png"
8 d) E0 @' s7 ~9 {( t. m
/ r4 y% k5 X8 N/ i8 IResponse.BinaryWrite(ms.ToArray())
+ ?1 s; E+ G. ^' i$ }  L$ m
* K0 s& U/ T" N! Kg.Dispose()

img.Dispose()
6 j( a4 A7 o$ Z/ w
Response.End()

End Sub

'--------------------------------------------
0 |) v0 z0 N) h  N' i4 d
3 u3 z$ W7 J6 o& E' O'函数名称:RndNum
" u* V: C6 X7 v# o* [3 R2 g
/ V" s- t& M. b# S& j4 g; i; T7 z'函数参数:VcodeNum--设定返回随机字符串的位数

% Y  O* a% f8 L# O$ L! F9 O* ]8 W'函数功能:产生数字和字符混合的随机字符串
$ v* p, ~: l0 R& L, w
% ~* x8 w5 X  G  P8 F- KFunction RndNum(VcodeNum)
% k5 r  N7 B! |: v; k1 G
0 r3 E3 R) L& F6 `; u5 Y: Sdim 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,",") '将字符串生成数组
# ]- H2 u9 }8 U# Y3 T' \1 d
dim VNum as string=""
4 W8 m% ^; S6 N" D% J- L) c/ B# g
+ x  Q) I  \: S; P/ s: o& P* R$ Ndim i as byte

6 ]4 X5 f/ _- D* l1 }7 m9 r- ^For i=1 to VcodeNum
6 y( b: Z: I* z3 n, Y8 `2 `8 n
Randomize

' ^% |" k8 d+ tVNum=VNum & VcArray(Int(35*Rnd)) '数组一般从0开始读取，所以这里为35*Rnd

Next

Return VNum
1 m' x* o# e. e' F7 i/ A" B
7 A' T- j* q) E0 MEnd Function
% P# G5 r  v/ v# b; l
  \5 \* W0 v) y# d) v</script>

那么又应该如何使用该文件生成的图象验证码,看这句代码:
# S4 D& F# o$ ~. Q  o/ F
( b) k; S5 Y8 W: ^4 d<asp:Image id="Image1" runat="server" ImageUrl="gif.aspx" />