主题：web用户名验证

老师你好我想问一下我用ajax已经可以提出了用户名跟密码，怎么样像这个一样验证呀，老师Dim sb As New StringBuilder
Dim Verified As Boolean
Dim UserName As String = e.Cookies("username") '从cookie中获取用户名
Dim Password As String = e.Cookies("password") '从cookie中获取用户密码
'如果在登录页面输入了用户名和密码后单击确定按钮
If e.Path = "logon.htm" AndAlso e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then
    UserName = e.PostValues("username")
    Password = e.PostValues("password")
End If
'验证用户身份
If UserName = "张三" AndAlso Password = "888" Then
    Verified  = True
ElseIf Username = "李四" AndAlso Password="999" Then
    Verified  = True
End If
If Verified AndAlso e.Path = "logon.htm"  Then '如果用户访问的是登录页,且身份验证成功
    e.Appendcookie("username",UserName) '将用户名和密码写入cookie
    e.Appendcookie("password",Password)
    e.WriteString("<meta http-equiv='Refresh' c>") '直接跳转到首页
    Return '必须的
ElseIf Verified = False AndAlso e.Path <> "logon.htm" Then '如果用户身份验证失败,且访问的不是登录页面
    e.WriteString("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
    Return '必须的
End If
Select Case e.path
    Case "logon.htm"
        sb.AppendLine("<form action='logon.htm' enctype='multipart/form-data' method='post' id='form1'  name='form1'>")
        If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then '判断是否是验证失败后的重新登录
            sb.AppendLine("用户名或密码错误!</br></br>")
            sb.AppendLine("户名: <input name='username' id='username' value='" & UserName & "''><br/><br/>")
            sb.AppendLine("密码: <input type='password' name='password' id='password' value ='" & Password & "'><br/><br/>")
        Else
            sb.AppendLine("户名: <input name='username' id='username'><br/><br/>")
            sb.AppendLine("密码: <input type='password' name='password' id='password'><br/><br/>")
        End If
        sb.AppendLine("<input type='submit' name='sumbit' id='sumbit' value='登录'>")
        sb.AppendLine("<input type='reset' name='reset' id='reset' value='重置'>")
        sb.AppendLine("</form>")
        e.WriteString(sb.ToString)
    Case "exit.htm"
        e.Appendcookie("username", "") '清除cookie中原来的用户名和密码
        e.Appendcookie("password", "")
        e.WriteString("<meta http-equiv='refresh' c>") '跳转到登录页
    Case "", "default.htm"
        sb.AppendLine("这是首页<br/><br/>")
        sb.AppendLine("<a href='order.htm'>订购产品<a><br/>")
        sb.AppendLine("<a href='product.htm'>产品列表<a><br/>")
        sb.AppendLine("<a href='exit.htm'>退出登录<a><br/>")
        e.WriteString(sb.Tostring)
    Case "order.htm"
        e.WriteString("这是订购页")
    Case "product.htm"
        e.WriteString("这是产品页")
End Select

处理成功能不能这样写就不用在ajax里面写了

Dim str As String  Select Case e.path Case "dt" Dim json As String = e.PlainText Dim jo As JObject = JObject.Parse(json) str=jo("username") dim dr as datarow = datatables("用户").find("名称='" & str & "'") if dr isnot nothing andalso dr("密码") = jo("密码") then e.writestring(“成功”) else e.writestring(“失败”)    如果失败就跳转到登录页 e.WriteString("<meta http-equiv='refresh' c>" end if End Select

不能。使用了ajax就只能在ajax里获取返回数据，和做其它后续的处理。先网上搜索学学ajax的原理了

提问题不要问可不可以。请测试，然后反馈测试的结果和问题

先网上搜索学学ajax的原理了，连什么是ajax还不懂。估计连js代码还看不懂，根本不知道代码在哪提交和接收返回数据的，先学一下js基础。这里没有时间给你们重头做科普的。

语法错误 (操作符丢失) 在查询表达式 '(单号='ak12'+or+店铺名称='ak12')' 中。