Foxtable(狐表)用户栏目专家坐堂 → 页面恢复初始状态


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

主题:页面恢复初始状态

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


加好友 发短信
等级:幼狐 帖子:137 积分:1700 威望:0 精华:0 注册:2018/8/30 20:55:00
页面恢复初始状态  发帖心情 Post By:2021/8/6 13:45:00 [显示全部帖子]

老师,帮助文件中使用TopTips示例,我想在登录页面出现提示错误内容后,能够把页面恢复初始状态,即:把填写的用户名和密码清空,该怎么操作??
Select Case e.Path
Case "logon.htm"
If e.PostValues.Count = 0 Then
Dim wb As New WeUI
wb.AddTopTips("","toptip1",
"
请输入姓名和密码!")
wb.AddForm("","form1","logon.htm").Attribute = ""
'
调用函数
With wb.AddInputGroup("form1","ipg1","
用户登录")
.AddInput("xm",
"
户名","text")
.AddInput("pw",
"
密码","password")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1",
"
确定", "submit")
End With
wb.AppendHTML("<script src='./lib/valid.js'></script>")
'
引入脚本文件
e.WriteString(wb.Build)
Else
Dim sb As New StringBuilder
sb.AppendLine("<meta name='viewport' c>")
For Each key As String In e.PostValues.Keys
sb.AppendLine(key & ":" & e.PostValues(key) & "</br>")
Next
e.WriteString(sb.ToString)
End If
End
Select

 回到顶部