Foxtable(狐表)用户栏目专家坐堂 → [求助][讨论]验证码验证问题


  共有2232人关注过本帖树形打印复制链接

主题:[求助][讨论]验证码验证问题

帅哥哟,离线,有人找我吗?
lhpc120
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:635 积分:6336 威望:0 精华:0 注册:2011/5/8 13:21:00
[求助][讨论]验证码验证问题  发帖心情 Post By:2019/3/22 15:47:00 [只看该作者]


验证码获取代码

        Case "getVimg.htm"
            Dim bmp As new bitmap(70, 40)
            Dim g As Graphics = Graphics.FromImage(bmp)
            Dim Val1 As Double = Rand.Next(10000)
            Dim fnt As New Font("宋体",16)
            Dim msg As String = format(val1, "0000")
            g.DrawString(msg,fnt,Brushes.Red,10,10)
            e.AppendCookie("yanzhengma", msg)  '校对这个cookie
            Dim ms As new IO.MemoryStream()
            bmp.Save(ms, ImageFormat.png)
            Dim buffer = ms.ToArray
            e.Response.C
            Dim output = e.response.OutputStream
            output.Write(buffer,0,buffer.Length)
            output.Close()
            '这里测试weui


我希望在输入完验证码后,系统进行验证,输入的验证码正确可以点击按钮,输入不正确,弹出提示,请问老师怎么做呢?

 回到顶部
帅哥哟,离线,有人找我吗?
lhpc120
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:635 积分:6336 威望:0 精华:0 注册:2011/5/8 13:21:00
  发帖心情 Post By:2019/3/22 15:48:00 [只看该作者]

Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
Select Case ym
            With .AddInputCell("ic5") '通过InputCell增加输入框
                .AddLabel("lyzm","验证码",0) '增加标签,0显示在左边
                .AddInput("yzm","text",1) '增加输入框,1表示显示在中间
                .AddImage("pim","/getVimg.htm",2).Attribute=""" '增加一个图片,2比表示显示在右边
            End With
        End With
End Select

这里是填写验证码的部分
[此贴子已经被作者于2019/3/22 15:48:16编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110668 积分:563254 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/22 20:37:00 [只看该作者]

不是已经把验证码写入cookie了吗,把用户填的内容和这个cookie核对就行呀

e.AppendCookie("yanzhengma", msg)  '校对这个cookie

 回到顶部