为啥我按照说明把登录页面的代码放到自定义函数里,调试的时候页面就不显示了?放到网络监视器里能正常运行?
Case "logon.htm" '登录页面
Functions.Execute("logon",e)
自定义函数
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
wb.AddPageTitle("","pageheader","管理","管理app")
wb.AddPageFooter("","pf1","Copyright & Copy; ")
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("username","户名","text")
.AddInput("password","密码","password")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "登录", "submit")
End With