Foxtable(狐表)用户栏目专家坐堂 → 自定义函数的问题


  共有1821人关注过本帖平板打印复制链接

主题:自定义函数的问题

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


加好友 发短信
等级:童狐 帖子:205 积分:1969 威望:0 精华:0 注册:2017/8/17 12:59:00
自定义函数的问题  发帖心情 Post By:2019/12/11 10:53:00 [只看该作者]

 为啥我按照说明把登录页面的代码放到自定义函数里,调试的时候页面就不显示了?放到网络监视器里能正常运行?

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

 回到顶部