主题：登录提交以后，发何返回错误信息

Dim e As RequestEventArgs = args(0)

Dim wb As weui = args(1)

wb.AddPageTitle("","pageheader","销售系统","由湛江辉迅基于Foxtable开发")

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then '判断是否是验证失败后的重新登录

    wb.AddTopTips("","toptip1","用户名密码或公司编号错误!").msec = 2000 '如果用户通过登录按钮访问,则给用户一个2秒的提示.

End If

wb.AddForm("","form1","logon.htm")

With wb.AddInputGroup("form1","ipg1")

    .AddInput("companyID","公司编号","text")

    .AddInput("username","户    名","text")

    .AddInput("password","密    码","password")

End With

With wb.AddButtonGroup("form1","btg1",True)

    .Add("btn1", "登录", "Button").Attribute= "" 

End With

wb.InsertHTML("<a href= 'addnewuser.htm' style='display:inline-block; width:100%; text-align:center; margin-top: 10px'>新用户注册<a/>")

wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件