|
大家经常在网上登陆的时候经常会看到让你输入验证码，有的是文字的，有的呢是图片，比如chinaren.com校友录中留言的时候，我们就会看到数字图片验证码；网上关于数字文字验证码实现方法的相关资料很多，而我们这里介绍的是数字和字母随机组成的并且生成图片的验证码的实现方法。看起来很复杂、其实很简单的，大家跟着我往下看： PuhLinux联盟
PuhLinux联盟
首先，我们先介绍一下设计思路，数字和字母的随机组合生成验证码，然后将验证码生成图片，这里“数字和字母的组合”应该是随机取出来的；如果是专门的数字验证码，我们可以这样实现： PuhLinux联盟
PuhLinux联盟
ycodenum=4 '验证码的位数，或者说成个数 PuhLinux联盟
for i=1 to ycodenum PuhLinux联盟
Randomize '初始化随机数发生器 PuhLinux联盟
ycode=ycode&Int((9*Rnd)) 'rnd是随机数，从0到1之间的任意实数，这里获得0到9之间的整数 PuhLinux联盟
next PuhLinux联盟
PuhLinux联盟
response.write ycode '就可以输出数字验证码（4位） PuhLinux联盟
PuhLinux联盟
然而，我们要让数字和字母同样随机生成，这里我们可以用到数组来实现这种效果，如下： PuhLinux联盟
PuhLinux联盟
ychar="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,PPuhLinux联盟
,Q,R,S,T,U,V,W,X,Y,Z" '将数字和大写字母组成一个字符串 PuhLinux联盟
yc=split(char,",") '将字符串生成数组 PuhLinux联盟
ycodenum=4 PuhLinux联盟
for i=1 to ycodenum PuhLinux联盟
Randomize PuhLinux联盟
ycode=ycode&yc(Int((35*Rnd))) '数组一般从0开始读取，所以这里为35*Rnd PuhLinux联盟
next PuhLinux联盟
PuhLinux联盟
response.write ycode PuhLinux联盟
PuhLinux联盟
现在看看输出结果是不是数字和字母随机组合的呢？ PuhLinux联盟
PuhLinux联盟
下面看看怎样生成图片，这个也许有些朋友知道：asp不能生成图片，必须使用asp组件。不错，我们这里使用的是ASP图象组件shotgraph。有一点大家注意，服务器不是自己的不能用哦，因为你装不了这组件。 PuhLinux联盟
PuhLinux联盟
组件的下载地址：http://www.knowsky.com/download/ShotGraph.rar，至于怎么注册，这里就不多说了，网上有很多资料 PuhLinux联盟
PuhLinux联盟
我们看看生成图片的代码： PuhLinux联盟
PuhLinux联盟
ychar="0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,PuhLinux联盟
K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z" '将数字和大写字母组成一个字符串 PuhLinux联盟
yc=split(char,",") '将字符串生成数组 PuhLinux联盟
ycodenum=4 PuhLinux联盟
for i=1 to ycodenum PuhLinux联盟
Randomize PuhLinux联盟
ycode=ycode&yc(Int((35*Rnd))) '数组一般从0开始读取，所以这里为35*Rnd PuhLinux联盟
next PuhLinux联盟
PuhLinux联盟
Response.Clear PuhLinux联盟
Response.ContentType="image/gif" PuhLinux联盟
set obj=Server.CreateObject("shotgraph.image") PuhLinux联盟
x=55 '图片的宽 PuhLinux联盟
y=26 '图片的高 PuhLinux联盟
obj.CreateImage x,y,8 '8是图片的颜色8位 PuhLinux联盟
obj.SetColor 0,55,126,222 PuhLinux联盟
obj.SetColor 1,255,255,255 PuhLinux联盟
PuhLinux联盟
obj.CreatePen "PS_SOLID",1,0 PuhLinux联盟
obj.SetBgColor 0 PuhLinux联盟
obj.Rectangle 0,0,x-1,y-1 PuhLinux联盟
obj.SetBkMode "TRANSPARENT" PuhLinux联盟
obj.CreateFont "Arial",136,18,1,False,False,False,False PuhLinux联盟
obj.SetTextColor 1 PuhLinux联盟
obj.TextOut 5,4,ycode&" " PuhLinux联盟
PuhLinux联盟
img=obj.GifImage(-1,1,"") PuhLinux联盟
Response.BinaryWrite (img) PuhLinux联盟
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
