Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
'增加三个页面,一个按钮
With wb.AddTabBar("", "tb1", 1)
.AddPage("page1","微信","./images/button.png")
.AddPage("page2","通讯录","./images/msg.png").Attribute = "abc='alert(0)'"
.AddPage("page3","发现","./images/article.png")
End With
'为第一个页面增加内容
wb.AddForm("page1","form1","test.htm")
With wb.AddInputGroup("form1","ipg1")
.AddInput("xm","户名","text")
.AddInput("mm","密码","password")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.InsertHTML("page2","<div id='divpage1' />")
wb.AppendHTML("<script>document.getElementById('page2_btn').addEventListener('click',function(){document.getElementById('divpage1').innerHTML=sendAjaxText('zhedie','zhedie.htm','',false);},false);</script>")
e.WriteString(wb.Build)
Case "zhedie.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddRadioGroup("form1","rdg1","浏览器")
.Add("bw1","Intenet Explorer")
.Add("bw2","Google Chorme", True) '默认勾选
.Add("bm3","FireFox")
.Add("bm4","Safari").Enabled = False '此项不可选
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.BuildHTML("form1")) '生成网页
End Select
加好友 
发短信
Post By：2021/5/22 10:40:00 [显示全部帖子]
