设为首页收藏本站

新微赢技术网

 找回密码
 注册
搜索
热搜: 回贴
查看: 61|回复: 2
打印 上一主题 下一主题

大家好,请教关于验证码的问题.请大家帮一下啊.

[复制链接]
跳转到指定楼层
1#
发表于 2010-1-18 06:47:16 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我刚学ASP不久,以前只是学静态了网的.现在我遇到了一点关于验证码的问题.我从网上下了一个3个文件,分别是validatebody.fix,validatecode.asp,validatehead.fix.现给出validatecode.asp代码如下: <% Option Explicit Response.Buffer = True Response.Expires = -1 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" Dim RndNum,ImgFileContent Randomize Timer RndNum = Cint(7999*Rnd+1000) Session("ValidateCode") = Cstr(RndNum) ImgFileContent=NumCode(RndNum) Response.ContentType = "image/BMP" Response.BinaryWrite ImgFileContent
Function NumCode(NumS) Dim NumI,NumJ Dim AdoM,AdoN Dim Arr_Img(4),NStr NStr=Cstr(NumS) For NumI=0 To 3 Arr_Img(NumI)=Cint(Mid(NStr,NumI+1,1)) Next Dim Position Set AdoM=Server.CreateObject("Adodb.Stream") AdoM.Mode=3 AdoM.Type=1 AdoM.Open Set AdoN=Server.CreateObject("Adodb.Stream") AdoN.Mode=3 AdoN.Type=1 AdoN.Open AdoM.LoadFromFile(Server.Mappath("validatebody.fix")) AdoN.Write AdoM.Read(1280) For NumI=0 To 3 AdoM.Position=(9-Arr_Img(NumI))*320 AdoN.Position=NumI*320 AdoN.Write AdoM.Read(320) Next AdoM.LoadFromFile(Server.Mappath("validatehead.fix")) Position=Lenb(AdoM.Read()) AdoM.Position=Position For NumI=0 To 9 Step 1 For NumJ=0 To 3 AdoN.Position=NumI*32+NumJ*320 AdoM.Position=Position+30*NumJ+NumI*120 AdoM.Write AdoN.Read(30) Next Next AdoM.Position = 0 NumCode = AdoM.Read() AdoM.Close:Set AdoM=Nothing AdoN.Close:Set AdoN=Nothing End Function %>
在需要添加验证码的页面中添加如下代码:
<input name='validatecode' type='text' size='5'>&nbsp;<img src='imgchk/validatecode.asp' align='absmiddle' border='0'> (在该页面得到了出现验证码和验证码输入框.这里应没问题吧) 记录接受页面处理 If Trim(Request.Form("validatecode"))=Empty Or Trim(Session("cnbruce.com_ValidateCode"))<>Trim(Request.Form("validatecode")) Then response.write("请注意正确输入验证码") response.end end if  (在这里我就不怎么懂设置了啊.我在这里也输入了这些代码,出错的话也会提示("请注意正确输入验证码"等信息啊,因为我在此这前以设置了要用户名和密码验证的,出错了信息增加了请注意正确输入验证码"的吧. 根据原来提示的方法说是在生成验证码图片的时候,同时生成了一个Session,其值就是验证码图片中的数字值。同时,提供输入框让用户输入,提交输入值后,与已有的Session值进行比较,根据判断结果做相应判断。这我就不怎么理解了啊,要怎么设置啊.帮一下忙啊.谢谢先了啊.在线等你们的消息啊.有必要的话可以加我Q的啊.
2#
发表于 2010-1-18 06:47:20 | 只看该作者
哗,原来这么复杂~~~
我不会~~就帮你顶顶吧
你说你刚学ASP,我学得你不应该这么快就接触这么复杂的东西
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

申请友链|小黑屋|最新主题|手机版|新微赢技术网 ( 苏ICP备08020429号 )  

GMT+8, 2024-11-20 04:30 , Processed in 0.104018 second(s), 8 queries , Gzip On, Memcache On.

Powered by xuexi

© 2001-2013 HaiAn.Com.Cn Inc. 寰耽

快速回复 返回顶部 返回列表