Case
"logon.htm"
'登录页面 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.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
|