- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 老师，请问如何实现 通过条件判断分别显示 toptip 和 Toast (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184144)
-- 发布时间：2022/11/25 11:06:00
-- 老师，请问如何实现 通过条件判断分别显示 toptip 和 Toast
在网页中判断姓名栏是否为空，如果不为空则显示 定义的toast 显示上传成功， 否则顶部提示 定义好的 toptip1 参考帮助文档例子，也修改了.js文件 实现不了 麻烦老师指导下 谢谢！
-- 发布时间：2022/11/25 11:41:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626
-- 发布时间：2022/11/25 13:01:00
--
wb.AddTopTips("", "toptip1", "请输入姓名和手机号!")
wb.AddForm("", "form1", e.path).Attribute = "" \'调用函数
wb.AppendHTML("<style>.mark{background-color:Aqua; color:white;border-radius;5px;}</style>", True)
With wb.AddInputGroup("form1", "ipg1")
.AddInput("kh", "姓名", "text")
.AddInput("dh", "手机号码", "number")
End With
wb.InsertHTML("form1", "<button id =\'btnok\' name = \'btnok\' type = \'submit\' Class = \'weui_btn weui_btn_primary\' style= \'background-color:DeepSkyBlue;width:96%; margin:auto;\'> 提交 </button> <br <br/> <br <br/>")
wb.AppendHTML("<script src=\'./valid.js\'></script>") \'引入脚本文件
老师 以上的代码按照参考示例，如果姓名和电话号码 任意一项未填写时，网页顶部都会直接提示，然后想实现如果都正确填写的话，则弹出一个提示 填写成功，继续其他操作，如图
此主题相关图片如下：1669352402626.png
此主题相关图片如下：1669352402626.png-- 发布时间：2022/11/25 13:32:00
--
把完整代码放入记事本和js文件一起发上来
-- 发布时间：2022/11/25 14:23:00
--
s文件不能上
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:js文件 valid.txt |
传 改了下名字 原名是 valid.js
[此贴子已经被作者于2022/11/25 14:25:22编辑过]
-- 发布时间：2022/11/25 14:24:00
-- 完整代码
dim sr As String
Dim wb As New WeUI \'定义一个基于weui框架的网页生成器
Select Case e.Path
Case "test.htm"
sr = e.path
sr = sr.Substring(0, sr.IndexOf("."))
If e.PostValues.count = 0 Then
wb.AddTopTips("", "toptip1", "请输入姓名和手机号!")
wb.AddForm("", "form1", e.path).Attribute = "" \'调用函数
With wb.AddInputGroup("form1", "ipg1")
.AddInput("kh", "姓名", "text")
.AddInput("dh", "手机号码", "number")
End With
wb.AddToast("", "t1", "操作完成", 1)
wb.InsertHTML("form1", "<button id =\'btnok\' name = \'btnok\' type = \'submit\' Class = \'weui_btn weui_btn_primary\' style= \'background-color:DeepSkyBlue;width:96%; margin:auto;\'> 提交 </button> <br <br/> <br <br/>")
wb.AppendHTML("<script src=\'./valid.js\'></script>") \'引入脚本文件
End If
Case Else
wb.InsertHTML("无效地址（404）")
End Select
e.WriteString(wb.Build)
[此贴子已经被作者于2022/11/25 14:25:03编辑过]
-- 发布时间：2022/11/25 14:37:00
--
看不出问题，请上传实例测试
-- 发布时间：2022/11/25 14:52:00
-- 目前 填写正常，未正确填写的话顶部提示也正常 就是想在正确填写数据后，弹出一个 toast提示
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:httpf服务端.foxdb |
[此贴子已经被作者于2022/11/25 14:52:33编辑过]
-- 发布时间：2022/11/25 15:02:00
--
function valid(){
var v1 = document.getElementById("kh").value;
var v2 = document.getElementById("dh").value;
if (v1 && v2){
show("t1",2000);
return true
}
show("toptip1",2000);
return false;
}
-- 发布时间：2022/11/25 15:11:00
--
谢谢老师！