- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 后台数据自动生成 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144332)
-- 发布时间：2019/12/17 14:01:00
-- 后台数据自动生成
老师请问，我做一个问卷调查，请问怎么样做 选好答案后，按提交按钮，我后台能自动统计出 问题1 选A 一共多少人 选B一共多少人，问题2 选A 一共多少人 选B一共多少人 ........
此主题相关图片如下：企业微信截图_20191217135519.png
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Select Case e.Path
Case "WJDC.htm"
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","WJDC.htm")
With wb.AddRadioGroup("form1","问题1","问题1")
.Add("A1","A. 答案1")
.Add("B1","B. 答案2")
.Add("C1","C. 答案3")
.Add("D1","D. 答案4")
.Add("E1","E. 答案5")
End With
With wb.AddRadioGroup("form1","问题2","问题2")
.Add("A2","A. 答案1")
.Add("B2","B. 答案2")
.Add("C2","C. 答案3")
.Add("D2","D. 答案4")
.Add("E2","E. 答案5")
End With
With wb.AddRadioGroup("form1","问题3","问题3")
.Add("A3","A. 答案1")
.Add("B3","B. 答案2")
.Add("C3","C. 答案3")
.Add("D3","D. 答案4")
.Add("E3","E. 答案5")
End With
With wb.AddRadioGroup("form1","问题4","问题4")
.Add("A4","A. 答案1")
.Add("B4","B. 答案2")
.Add("C4","C. 答案3")
.Add("D4","D. 答案4")
.Add("E4","E. 答案5")
End With
With wb.AddRadioGroup("form1","问题5","问题5")
.Add("A5","A. 答案1")
.Add("B5","B. 答案2")
.Add("C5","C. 答案3")
.Add("D5","D. 答案4")
.Add("E5","E. 答案5")
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
End Select
[此贴子已经被作者于2019/12/17 14:01:47编辑过]
-- 发布时间：2019/12/17 14:24:00
--
先要学会保存数据：http://www.foxtable.com/mobilehelp/topics/0059.htm
-- 发布时间：2019/12/17 14:58:00
--
老师 请问怎么可以做到 已经提交过的人 不能继续提交
-- 发布时间：2019/12/17 15:04:00
--
添加一列“已提交”，提交后记录提交人姓名，“已提交”为true。进入页面的时候判断一下，如果已经提交就返回错误提示
[此贴子已经被作者于2019/12/17 15:04:16编辑过]
-- 发布时间：2019/12/17 15:11:00
--
怎么获取提交人姓名呢，打开网页后设计一个输入姓名吗
-- 发布时间：2019/12/17 15:30:00
--
如果是微信公众号，可以通过授权获取openid：http://www.foxtable.com/mobilehelp/topics/0235.htm
如果是普通浏览器，又没有做登录控制的话，可以考虑获取对方ip记录下来：e.Request.RemoteEndPoint().Address.ToString()