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

Star

原文地址：http://www.dedecms.com/knowledge ... t/2009/0929/91.html
; ^/ W. F8 Y4 o& Y0 ~5 \& t2 l1 ]
8 w* b) n2 h) M: \3 U详见原文，如果原文不可见，请见下文：
很多文章只讲诉了如何输出一个随机生成数字或字符的图象,当然这是验证码的核心了,但是对很多ASP.NET的初学者来说,怎么使用它生成的图象又成了一个问题(论坛有不少问这个的),这也是我写本文的一个原因.
  v1 u9 r* E! ^; x
& F, `  Z) P, m关于验证码的原理,就不多说了,大家可以参见其他文章,文末附有完整的实例代码,里面有详细的注释,你可以跳过解说文字,直接使用

) `% _$ I- q1 M6 w' |' s- ~首先,要简要说说Session和ViewState的用法,因为后面会用到它
7 W. G' d: V% t; K- `" i) @# W
/ a+ ~% S% A# a0 `把数据存储在Session中:Session("key")="test"

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

4 s' U" J- P+ F  i, f$ P类似的:

* z. T' H/ M1 Q. ~$ g: f把数据存储在ViewState中:ViewState("key")="test"
' b. P' p# X9 K8 V
从ViewState中取值:dim testvalue as string=ViewState("key")
; [+ z- E, r. w3 Y
关于ViewState的更详细的资料,你可以参看MSDN的<<ASP.NET ViewState 初探>>一文
& j0 D& B" g  t1 N' ^
! A2 C2 d  O# C) `* c0 J  o有时代码本身就比任何解说更有表现力,所以在此就不对代码解说太多了,本文实现的验证码需要用到两个文件:
7 \1 m4 ]) w5 l- q$ m$ q
gif.aspx           该文件用于生成验证码
1 s3 a, d8 }7 S: G: N! c" S
3 u& ^1 T4 Z: Y' uValidateCode.aspx  该文件用来测试验证码(即如何使用)

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

<%@ import namespace="System"%>
+ Z/ x: o8 B( ]! @
<%@ import namespace="System.io"%>

  r0 w: q/ S8 u; b1 ]' T& ~1 q<%@ import namespace="System.Drawing"%>
! o# {, a9 I3 S0 P; }' J% _
<%@ import namespace="System.Drawing.Imaging"%>

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

Sub Page_Load(Sender as object,e as eventargs)

'RndNum是一个自定义函数

dim VNum as string=RndNum(4)
5 j9 a2 v. T2 w8 h+ q' G
Session("VNum")=VNum
+ z1 y8 s+ D5 o/ W  {, ?
7 K  g$ r  {- f$ HValidateCode(VNum)
. q: j5 O+ K- t5 N$ `
End Sub
- a" p1 ]$ v- _
'生成图象验证码函数
  y3 B# o/ N5 O. U4 I; |
0 r' E/ j+ M2 K7 q  ^- ySub ValidateCode(VNum)
$ ~6 s* X7 C6 U
Dim Img as System.Drawing.Bitmap

# S) H$ ~/ G2 cDim g as Graphics
: S- {9 P8 `7 y# c$ h
Dim ms as MemoryStream
1 \4 K: D3 z& k! D
dim gheight as integer=Int(Len(VNum)*11.5)
4 B0 i" s% D. M! a
0 v; G6 R7 j6 ?4 V' j'gheight为图片宽度,根据字符长度自动更改图片宽度

% r0 n  j+ a& }* limg=new BitMap(Gheight,20)

g=Graphics.FromImage(img)

g.DrawString(VNum,(New Font("Arial",10)),(New SolidBrush(color.blue)),3,3)'在矩形内绘制字串（字串，字体，画笔颜色，左上x.左上y）

- Y1 s3 L' L) Xms=New MemoryStream()
9 I9 V) L( g- M" c& {; |
! j' f6 H3 t5 L% ximg.Save(ms,ImageFormat.Png)

Response.ClearContent() '需要输出图象信息 要修改HTTP头
  [% d! \+ D" o! L: a! ^7 A
) h# f- C: R# y& J% y" V, AResponse.ContentType="image/Png"
$ S( D+ [( Y& |+ i0 s
Response.BinaryWrite(ms.ToArray())

g.Dispose()
7 q0 \( _7 D% k1 D: @4 ]: U
& K$ F% U" h- M! d) ~% t6 j& M+ A1 Uimg.Dispose()
( l) D- C6 X( ~4 s
1 C4 I5 H3 t4 Q% F  VResponse.End()
( @0 j% h  s* i( G; b% K
End Sub
1 F8 m* j( D9 K; x6 R
'--------------------------------------------
1 p3 `7 a3 E- V/ x/ q% \5 {& J
8 ]0 b9 @  H2 T" v, ]7 h'函数名称:RndNum
; R, v, i+ f6 ^. o/ b
'函数参数:VcodeNum--设定返回随机字符串的位数
" z1 b8 [" Y6 Q, T
'函数功能:产生数字和字符混合的随机字符串
$ R6 [2 e, @8 Z) A' N9 A: S
! k+ }4 q# W2 b  ?( d# AFunction RndNum(VcodeNum)
( u# Z% c# E7 j7 V4 O# _' z
; Q0 J7 Y/ ?! \* hdim 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"
8 L, V7 W$ ?. D8 o
9 P& l& D- V- y6 ^4 Fdim VcArray() as string=split(Vchar,",") '将字符串生成数组
2 F7 B; c/ [+ J" L% @6 c' S/ \* ^0 D' P
9 x8 J. V/ x; j+ n- y) l2 A! Bdim VNum as string=""

dim i as byte

  t& B$ |# Z9 i* `9 [2 L% X/ g% D3 }For i=1 to VcodeNum
2 v6 v* L- ~: {2 u( m8 M. {
) X& f# f0 D) Y* S" t+ J& VRandomize

VNum=VNum & VcArray(Int(35*Rnd)) '数组一般从0开始读取，所以这里为35*Rnd
9 B0 L3 _" c. H2 J
2 V) `, N! o) V) j0 RNext
5 u  y* X' T' C/ ~6 T: x
Return VNum

/ h9 a! H, R' K, ~1 E& REnd Function
4 j* @* _) K: {
; |5 n- ?( b7 E3 a</script>

! L$ M6 [0 R& W; B: F那么又应该如何使用该文件生成的图象验证码,看这句代码:

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