老师,帮助文件中
使用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