以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]新手,参数传递不出去,怎么写啊? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159884) |
-- 作者:fczhaobo -- 发布时间:2021/1/12 11:09:00 -- [求助]新手,参数传递不出去,怎么写啊? 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编辑过]
|
-- 作者:有点蓝 -- 发布时间:2021/1/12 11:28:00 -- 手机号如果要从输入框取值,这种要使用js函数处理 .AddVcodeButton("vyz","获取验证码",2).Attri-bute="on-click=\'submitAjaxFileds(""faduanxin.htm"","""",""isj"",""iyz"",false);\'" |
-- 作者:fczhaobo -- 发布时间:2021/1/12 11:31:00 -- 手机号从输入框取值,验证吗从变量取值? |
-- 作者:有点蓝 -- 发布时间:2021/1/12 11:42:00 -- .AddVcodeButton("vyz","获取验证码",2).Attri-bute="on-click=\'submitAjaxFileds(""faduanxin.htm?yzm=" & yzm & ""","""",""isj"",false);\'" |
-- 作者:fczhaobo -- 发布时间:2021/1/12 14:15:00 -- 第一种情况: .AddVcodeButton("vyz","获取验证码",2).Attri-bute="on-click=\'loca-tion=""faduanxin.htm?sjh=13853827966&yzm=1234321""\'" \'sjh(是个input输入值)和yzm(是个变量)都用需要进行替换 第二种情况: .AddVcodeButton("vyz","获取验证码",2).Attri-bute="on-click=\'submitAjaxFileds(""faduanxin.htm?yzm=" & yzm & ""","""",""sjh"",False);\'" 第一种情况,直接赋值,没有问题,第二情况还是没有反应。
|
-- 作者:fczhaobo -- 发布时间:2021/1/12 14:16:00 -- 还有false怎么也变不成小写的. |
-- 作者:有点蓝 -- 发布时间:2021/1/12 14:16:00 -- 使用e.values取数据:http://www.foxtable.com/mobilehelp/topics/0113.htm |