什么手机浏览器不行?试试这样写代码
Select Case e.Path
Case "a.htm"'
Dim wb As new WeUI
If e.PostValues.Count = 0 Then
'开始正常生成网页内容
wb.AddForm("","form1","/a.htm")
With wb.AddInputGroup("form1","ipg3","录入框")
.AddTextArea("txm",5)
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("bc", "保存到后台", "submit")
End With
e.WriteString(wb.Build)
Else
wb.AddForm("","form1","/a.htm")
With wb.AddButtonGroup("form1","btg2",True)
.Add("jxpd", "继续", "button","a.htm")
End With
e.WriteString(wb.Build)
End If
End Select