测试没有问题
Select Case e.Path
Case "index0.htm"
Dim wb As New weui
With wb.AddArticle("","ar1")
.AddImage("./images/langwo/logo1.jpg")
.Attribute = "style='padding:0em;'"
End With
wb.AddForm("","form1","index0.htm")
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "男生","","/index.htm?sex=1") '此处能正常跳转到index.htm页面
.Add("btn2", "女生","","/index.htm?sex=0").kind = 1
'.Attribute = "style='padding:0.5em;'"
End With
e.WriteString(wb.Build) '生成网页
Case "index.htm"
Dim wb As New weui
e.WriteString( e.GetValues("sex")) '生成网页
End Select
加好友 
发短信
Post By：2017/4/4 13:32:00 [显示全部帖子]
