Dim wb As New weui
Select Case e.Path
Case "WJDC.htm"
Dim cs = Functions.Execute("验证函数",e,"WJDC.htm")
If cs > "" Then
Dim userid ,name
Dim Values() As String
Values = cs.split("|")
userid =Values(0)
name =Values(1)
If userid > "" Then
e.AppendCookie("userid",userid)
e.AppendCookie("name",name )
Dim dr3 As DataRow = DataTables("users").SQLFind("userid='" & userid & "'")
If dr3 IsNot Nothing Then
Dim dr4 As DataRow = DataTables("问卷调查1").SQLFind("B = '" & name & "'")
If dr4 IsNot Nothing Then
With wb.AddMsgPage("","msgpage","您已参与过本次调查", "如有问题,请联系IT部")
.icon = "Warn" '改变图标
.AddButton("btn1","关闭").Attribute = ""
End With
e.WriteString(wb.Build)
Return "" '必须返回
End If
Dim dr5 As DataRow = DataTables("问卷调查1").SQLFind("userid = '" & userid & "'")
If dr5 IsNot Nothing Then
With wb.AddMsgPage("","msgpage","您已参与过本次调查", "如有问题,请联系IT部")
.icon = "Warn" '改变图标
.AddButton("btn1","关闭").Attribute = ""
End With
e.WriteString(wb.Build)
Return "" '必须返回
End If
'If e.PostValues.Count = 0 Then
wb.AddPageTitle("","pageheader","90后问卷调查","")
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("btn2", "提交", "submit").FormAction = "TJ.htm"
End With
e.WriteString(wb.Build)
End If
'
End If
End If
'
End Select
加好友 
发短信
Post By：2019/12/18 12:53:00 [只看该作者]
