Foxtable(狐表)用户栏目专家坐堂 → 移动开发函数


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

主题:移动开发函数

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


加好友 发短信
等级:小狐 帖子:331 积分:4113 威望:0 精华:0 注册:2016/4/30 10:41:00
移动开发函数  发帖心情 Post By:2024/7/9 18:54:00 [只看该作者]

下边的代码为什么跳转后不显示
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
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" Then'如果是通过登录页面访问,从PostValues即可中提取用户名和密码
    If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then
        UserName = e.PostValues("username")
        Password = e.PostValues("password")
    End If
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 '如果用户访问的是登录页,且身份验证成功
    wb.AppendCookie("username", UserName) '将用户名和密码写入cookie
    wb.AppendCookie("password", Password)
    wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页
    e.WriteString(wb.Build) '生成网页
    Return "" '必须的
ElseIf Verified = False AndAlso e.Path <> "logon.htm" Then '如果用户身份验证失败,且访问的不是登录页面
    wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
    e.WriteString(wb.Build) '生成网页
    Return "" '必须的
End If

Select Case e.path
    Case "logon.htm",""
        wb.AddPageTitle("", "pageheader", "库存查询", "由XXX开发")
        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
    Case "exit.htm" '退出登录
        wb.DeleteCookie("username") '清除cookie中原来的用户名和密码
        wb.DeleteCookie("password")
        wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
    Case "", "default.htm" '首页
        wb.AddPageTitle("", "pageheader", "库存查询", "由XXX开发")
        With wb.AddGrid("", "g1")
            .Add("c1", "增加订单", "./images/button.png").Attribute = ""
            .Add("c2", "客户管理", "./images/cell.png", "http://www.foxtable.com")
            .Add("c3", "销售统计", "./images/toast.png", "http://www.foxtable.com")
            .Add("c4", "退出", "./images/exit.png", "exit.htm") '退出登录
        End With
End Select
e.WriteString(wb.Build) '生成网页
跳转后出现页面显示为
foxtable web server has started(error 404).

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


加好友 发短信
等级:超级版主 帖子:108052 积分:549671 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/7/9 20:12:00 [只看该作者]

浏览器输入的是什么地址?


另外代码不完整,重新把完整代码放到记事本发上来

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


加好友 发短信
等级:小狐 帖子:331 积分:4113 威望:0 精华:0 注册:2016/4/30 10:41:00
  发帖心情 Post By:2024/7/9 21:52:00 [只看该作者]

浏览器地址是:127.0.0.1:8081/logon.htm
httprequest的代码是:
S elect Case e.Path
    Case "logon.htm"
        Functions.Execute("logon", e)
End S elect
跳转到default.htm的页面时出错
[此贴子已经被作者于2024/7/9 21:54:57编辑过]

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


加好友 发短信
等级:超级版主 帖子:108052 积分:549671 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/7/9 22:25:00 [只看该作者]

1、1楼【Case "logon.htm",""】改为【Case "logon.htm"
2、httprequest的代码改为:
Select Case e.Path
    Case "","logon.htm","exit.htm","default.htm"
        Functions.Execute("logon", e)
End S elect

 回到顶部