- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 代码放在服务器，通过自定义函数调用，有这个提示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129117)
-- 发布时间：2018/12/21 17:57:00
-- 代码放在服务器，通过自定义函数调用，有这个提示
If e.PostValues.count = 0 Then
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","客户资料")
.AddInput("姓名","姓名","Text") \'前一个"姓名"是ID,后一个"姓名"是标题
.AddInput("年龄","年龄","number")
.AddInput("日期","日期","date")
.AddSelect("级别","级别","普通会员|高级会员|VIP会员")
.AddSwitch("停权","停权")
End With
With wb.AddRadioGroup("form1","学历","学历")
.Add("本科","本科")
.Add("硕士","硕士")
.Add("博士","博士")
End With
With wb.AddCheckGroup("form1","偏好","品牌偏好")
.Add("苹果","苹果")
.Add("华为","华为")
.Add("三星","三星")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) \'生成网页
Else
Dim sb As New StringBuilder
sb.AppendLine("<meta name=\'viewport\' c>")
sb.AppendLine("接收到的数据有:<br/><br/>")
For Each key As String In e.PostValues.Keys
sb.AppendLine(key & ":" & e.PostValues(key) & "<br/>")
Next
e.WriteString(sb.ToString)
End If
此主题相关图片如下：无标题.png
[此贴子已经被作者于2018/12/21 17:57:24编辑过]
-- 发布时间：2018/12/21 18:01:00
--
1、你把e参数引过来了没有？
2、如果是偶尔报错，关闭重新打开测试。
-- 发布时间：2018/12/21 20:20:00
--
如何引e参数？
-- 发布时间：2018/12/21 20:41:00
--
看：http://www.foxtable.com/mobilehelp/scr/0125.htm、http://www.foxtable.com/mobilehelp/scr/0128.htm