Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim openid As String
openid = e.GetValues("openid")
Dim dr2 As DataRow = DataTables("学员信息").SQLFind("openid='" & openid & "'")
If dr2 IsNot Nothing Then
wb.AddMsgPage("","msgpage","该微信已验证过" & dr2("学员姓名") & "这名学生!" , "") '生成成功提示页
e.WriteString(wb.Build)
Else
If e.PostValues.Count = 0 Then
Dim yzm As Integer = Rand.Next(2001,9999) '生成200到300之间的随机整数
'MessageBox.show(yzm)
wb.AddForm("","form1","wxyz.htm")
With wb.AddInputGroup("form1","ipg1","请输入学员报名时登记的联系电话")
With .AddInputCell("ic1") '通过InputCell增加输入框(1表示突出显示,2表示红色警示图标)
.AddLabel("lsj","手机",0) '增加标签(0显示在左边)
.AddInput("isj","text",1).PlaceHolder= "请输入手机号" '增加输入框(0靠左显示,1居中显示,2靠右显示)
End With
With .AddInputCell("ic2")
.AddLabel("lyz","验证",0)
.AddInput("iyz","text",1).PlaceHolder= "请输入验证码"
.AddVcodeButton("vyz","获取验证码",2).Attri-bute="on-click='loca-tion=""faduanxin.htm?sjh=****&yzm=***""'" '手机号和验证码都用上面的变量进行替换
End With
End With
e.WriteString(wb.Build)
Else
Dim nms() As String = {"学员姓名","学员编号"} '不能为空的列名数组
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return Nothing '必须返回
End If
Next
'Dim dr1 As DataRow = DataTables("学员信息").SQLFind("学员姓名='" & e.PostValues("学员姓名") & "' and 学员编号= '" & e.PostValues("学员编号") & "' and openid is null")
'Dim drs1 As List(of DataRow) = DataTables("学员信息").SQLSelect("学员姓名='" & e.PostValues("学员姓名") & "' and (学员编号= '" & e.PostValues("学员编号") & "' or 联系电话= '" & e.PostValues("学员编号") & "') and openid is null")
Dim drs1 As List(of DataRow) = DataTables("学员信息").SQLSelect(" 联系电话= '" & e.PostValues("学员编号") & "' and openid is null")
If drs1.count>0 Then
DataTables("学员信息").SQLReplaceFor("openid",e.PostValues("openid")," 联系电话= '" & e.PostValues("学员编号") & "' ")
Dim xyxm As String
For Each dr1 As DataRow In drs1
xyxm=xyxm & dr1("学员姓名")
Next
wb.AddMsgPage("","msgpage",xyxm & "成功验证", "") '生成成功提示页
Else
With wb.AddMsgPage("","msgpage","验证失败", "您输入的信息有误或者您不是学生家长!")
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
End If
e.WriteString(wb.Build)
End If
End If
[此贴子已经被作者于2021/1/12 11:10:11编辑过]