以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  页面恢复初始状态  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170759)
--  作者：yxl2012
--  发布时间：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
--  作者：有点蓝
--  发布时间：2021/8/6 13:47:00
--  

1、在"d:\\web\\lib"新建一个文本文件，文件名为"valid.js"，文件内容为：

function valid(){
   var v1 = document.getElementById("xm").value;
   var v2 = document.getElementById("pw").value;
   if (v1 && v2){return true}
   show("toptip1",2000);

document.getElementById("xm").value = "";

document.getElementById("pw").value = "";
   return false;
}