从“订单\\订单_登录页”看，只要

 Else ’Verified = -1

        Dim ul1 As String

        Dim ul2 As String = e.Request.URL.ToString

        If Vars("isLocal") Then

            ul1 = ul2 & "?code=123" \'本地测试,随便加个code参数

下面页面为何没有生成？

wb.InsertHTML("<meta http-equiv=\'Refresh\' c>")

        e.WriteString(wb.Build)

        Return "" \'必须的

    End If

    \'下面生成网页

    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")

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

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

            .Readonly = True

            If username > "" Then

                .Value = UserName

            End If

        End With

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

        If e.Values.ContainsKey("reurl") Then \'保存重定向的页面地址,不然提交后获取不到

            .AddHiddenValue("reurl",e.Values("reurl")) \'这里无需解码

        End If

    End With

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

        .Add("btn1", "登录", "submit")

    End With

    e.WriteString(wb.Build)