可以做个提示
js代码
function checktime(){
var sh = document.getElementById("sh");
if (sh.value > '12:00'){
alert("超过12点");
sh.value='';
}
}
HttpRequest
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","日期输入")
.AddInput("rq","日期","date")
.AddInput("sh","时间","time").Attribute = "onchange='checktime()'"
.AddInput("rs","日期时间","datetime-local")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
End Select
加好友 
发短信
Post By：2017/6/23 16:39:00 [只看该作者]
