Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddRadioGroup("form1","rdg1","浏览器")
.Add("bw1","Intenet Explorer").Attribute = "onchange=""clear2();"""
.Add("bw2","Google Chorme") '默认勾选
End With
With wb.AddInputGroup("form1","ipg1","日期输入")
.AddInput("rq","日期","date").Attribute = "onchange=""clear1();"""
.AddInput("sh","时间","time")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script src='./test.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
End Select
test.js文件
function clear1(){
document.getElementById("bw1").checked=false;
}
function clear2(){
document.getElementById('rq').value='';
}
加好友 
发短信
Post By：2020/8/15 9:15:00 [显示全部帖子]
