从“订单\订单_登录页”看,只要
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)