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

Star

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

2 G7 c3 Z9 N( X8 e; I. r详见原文，如果原文不可见，请见下文：
" S/ X! B3 _5 Z% I4 G# O" e1 W很多文章只讲诉了如何输出一个随机生成数字或字符的图象,当然这是验证码的核心了,但是对很多ASP.NET的初学者来说,怎么使用它生成的图象又成了一个问题(论坛有不少问这个的),这也是我写本文的一个原因.

关于验证码的原理,就不多说了,大家可以参见其他文章,文末附有完整的实例代码,里面有详细的注释,你可以跳过解说文字,直接使用
2 i9 F8 u, u& C) f4 }; P0 Q: a
首先,要简要说说Session和ViewState的用法,因为后面会用到它

& X$ S; M& y0 Z6 w1 m& E把数据存储在Session中:Session("key")="test"
* W% y8 L, @7 q4 ^2 R5 d
从Session取值:dim testvalue as string=Session("key")

' L& d9 j* y- T# u6 L类似的:

) {# X4 X1 k# H) o& c把数据存储在ViewState中:ViewState("key")="test"
' ]; U1 Z( r3 n! \
从ViewState中取值:dim testvalue as string=ViewState("key")

关于ViewState的更详细的资料,你可以参看MSDN的<<ASP.NET ViewState 初探>>一文
) n0 q: t( I5 |$ K# k, m0 [
有时代码本身就比任何解说更有表现力,所以在此就不对代码解说太多了,本文实现的验证码需要用到两个文件:
4 E' K- ], c1 @: U. h% t* C! C
' {$ m% i6 c/ G6 ugif.aspx           该文件用于生成验证码

' C5 A0 X+ k+ gValidateCode.aspx  该文件用来测试验证码(即如何使用)
, G; @. Q2 L( I
下面给出gif.aspx的完整代码:
( m8 m& s; a# l6 i
1 y' D4 d- ^4 i; e<%@ import namespace="System"%>

9 Q; T" \" m; N$ O/ T<%@ import namespace="System.io"%>
( G+ \% N) P* U: a) [
<%@ import namespace="System.Drawing"%>
$ `( D, R& x& P% |$ K
! C) z; p8 B+ v1 o3 I3 m<%@ import namespace="System.Drawing.Imaging"%>

3 E5 T9 r% O; d+ c# o3 y% G<script language="vb" runat="server">
  u- y/ t2 D! K# ]( F) J
" J$ o( \3 Y- s4 cSub Page_Load(Sender as object,e as eventargs)

' U6 S7 K) y7 x'RndNum是一个自定义函数
/ Y$ _5 [& W' L" t# T3 S/ {5 {
dim VNum as string=RndNum(4)
3 T) `- k5 x1 A
& |3 |3 E# q: K8 PSession("VNum")=VNum
! ?8 s. g4 _2 w0 t6 p
7 `. O# }8 A: dValidateCode(VNum)

End Sub

'生成图象验证码函数
6 \; w( K5 x" I" G  Y, {/ G; ?
8 l& Z9 A( s3 g4 QSub ValidateCode(VNum)

Dim Img as System.Drawing.Bitmap
+ z/ W. N8 ^- [1 P: V
1 l2 c6 C8 }. U8 W0 I" s4 q$ FDim g as Graphics

Dim ms as MemoryStream

dim gheight as integer=Int(Len(VNum)*11.5)
, Y" i, \; o3 g
& |) n2 F  t% ]+ `' V( D'gheight为图片宽度,根据字符长度自动更改图片宽度
$ c- u4 U4 D% R0 z
img=new BitMap(Gheight,20)

# G  `6 @" T- C, H: wg=Graphics.FromImage(img)

g.DrawString(VNum,(New Font("Arial",10)),(New SolidBrush(color.blue)),3,3)'在矩形内绘制字串（字串，字体，画笔颜色，左上x.左上y）
) V/ N. H# |7 _$ _2 G- w& Y  R6 G
9 w* n6 }0 @' w, W5 g2 s$ u" O5 yms=New MemoryStream()
7 [; d# R2 U/ \4 w5 g' v
7 K7 z! M( E& k9 cimg.Save(ms,ImageFormat.Png)

- m2 a5 k! z' G9 |Response.ClearContent() '需要输出图象信息 要修改HTTP头

% y5 c' z$ {. @( \Response.ContentType="image/Png"
5 m# D3 Q2 M. X
+ Z- f+ k: R& z) |  x0 }! u- KResponse.BinaryWrite(ms.ToArray())
. ?. [9 @  m4 k! R3 ?0 E
' ?) f! e3 d6 y" }' mg.Dispose()

. o1 n3 f, `! eimg.Dispose()

Response.End()
( F- }7 ~; {3 m$ N3 y' {5 w
4 f& b. R! Z2 X6 e- Z% x  vEnd Sub

'--------------------------------------------
' Q$ A* l3 n& w6 R; L
) q% S& F' r4 t" Z3 S'函数名称:RndNum

/ [, \4 R, P6 m: \'函数参数:VcodeNum--设定返回随机字符串的位数
+ E/ m5 ]+ f- C* m  z9 j: @
* R9 x" ]8 c4 P8 a'函数功能:产生数字和字符混合的随机字符串

. g% L! t" v9 \7 w0 @" ]Function RndNum(VcodeNum)
- _5 s) V$ r/ H. w) U
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"

dim VcArray() as string=split(Vchar,",") '将字符串生成数组
! W2 i9 U. d" ~
dim VNum as string=""
3 o5 r: c& ?0 R# j! o8 o% M
, M! a) {" t, `& L/ ?dim i as byte
6 Y: d: C$ E1 {$ @9 h! q
For i=1 to VcodeNum

% p0 K0 ]5 E1 j3 g$ FRandomize
# @1 v# E; l0 s* L4 w" T0 g
: I/ Q- g0 O8 ?* TVNum=VNum & VcArray(Int(35*Rnd)) '数组一般从0开始读取，所以这里为35*Rnd
! U5 x( G& k" B
Next

5 c' s# z/ e1 Q# b* |! Z; zReturn VNum

End Function

- x2 i0 K" F* R; W# m: k8 z</script>
  n; t+ I6 x8 D
那么又应该如何使用该文件生成的图象验证码,看这句代码:
' S9 Q8 Y% y+ t$ i; _, x
<asp:Image id="Image1" runat="server" ImageUrl="gif.aspx" />
1 C& v; R! z* K3 @3 W