麻烦老师帮忙看看!
Dim rdg1 As ExWeUI.ExRadioGroup 后rdg1.add("rd11","申请奖励") 被选中的值如何写进数据库里呢?
下面的代码中画横线的貌似没有起作用。实名举报或匿名举报 申请奖励或不申请奖励 写入数据库的值为空 没有做任何写入
代码如下:
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim uuid As String = Guid.NewGuid.TOstring()
If e.PostValues.Count = 0 Then
wb.Title = "test"
wb.AddForm("","form1","testyzm.htm")
With wb.AddArticle("form1","ar1")
' .AddImage("./images/2.jpg")
With wb.AddInputGroup("form1","ipg212","")
With .AddInput("举报类型","举报类型","text")
.Readonly=True
.Value="环境污染"
End With
.AddInput("线索地点","线索地点","text").PlaceHolder = "请输入准确的地址"
.AddInput("位置描述","位置描述*","text").PlaceHolder = "请输入地址辅助性说明"
End With
With wb.AddInputGroup("form1","ipg22","线索描述")
With .AddTextArea("bz",5)
.Placeholder = "请准确输入线索描述……"
End With
End With
With wb.AddInputGroup("form1","ipg2","图片或视频上传") '文件上传
With.AddUploader("up1","",True) 'True表示允许上传多个文件
.AllowDelete = True '允许删除
.Incremental = True '允许重复选择文件或连续拍照
.ScaleWidth = 1024
End With
'Dim sb As New StringBuilder
'sb.appendLine("<div>")
'sb.appendLine("单文件上传: <input type='file' name='up1' id='up1'><br/>")
'sb.appendLine("多文件上传: <input type='file' name='up2' id='up2' multiple>")
'sb.appendLine("</div>")
'wb.InsertHTML("form1",sb.ToString)
End With
Dim rdg As ExWeUI.ExRadioGroup = ExWeUI.WebUI.AddRadioGroup("form1","rdg1","是否实名举报</span>")
rdg.add("rd1","实名举报").Attribute = "onc hange='jubaoxianshi()'"
rdg.add("rd2","匿名举报",True).enabled = True
wb.InsertHTML("form1",rdg.BuildHtml)
With wb.AddInputGroup("form1","ipg100","")
With .AddInputCell("ic3") '通过InputCell增加输入框
.AddLabel("ljbr","举报人",0) '增加标签,0显示在左边
.AddInput("jbr","text",1).PlaceHolder = "请输入真实姓名" '增加输入框,1表示显示在中间
End With
With .AddInputCell("ic4") '通过InputCell增加输入框
.AddLabel("lsj","联系电话",0) '增加标签,0显示在左边
.AddInput("sjh","text",1).PlaceHolder = "请输入联系电话" '增加输入框,1表示显示在中间
.AddVcodeButton("vyz","获取验证码",2).Attribute="on click='getNum()'"
End With
With .AddInputCell("ic5") '通过InputCell增加输入框
.AddLabel("lyzm","验证码",0) '增加标签,0显示在左边
.AddInput("yzm","text",1).PlaceHolder = "请输入短信中的验证码" '增加输入框,1表示显示在中间
End With
End With
With wb.AddInputGroup("form1","ipg12","")
With .AddInputCell("ic6") '通过InputCell增加输入框
.AddLabel("lsj","联系电话",0) '增加标签,0显示在左边
.AddInput("sjh","text",1).PlaceHolder = "请输入联系电话" '增加输入框,1表示显示在中间
.AddVcodeButton("vyz","获取验证码",2).Attribute="onc lick='getNum()'"
End With
With .AddInputCell("ic7") '通过InputCell增加输入框
.AddLabel("lyzm","验证码",0) '增加标签,0显示在左边
.AddInput("yzm","text",1).PlaceHolder = "请输入短信中的验证码" '增加输入框,1表示显示在中间
End With
End With
Dim rdg1 As ExWeUI.ExRadioGroup = ExWeUI.WebUI.AddRadioGroup("form1","rdg2","是否申请奖励</span>")
rdg1.add("rd11","申请奖励").Attribute = ”onc hange='jianglixianshi()'"
rdg1.add("rd21","不申请奖励",True).enabled = True
wb.InsertHTML("form1",rdg1.BuildHtml)
Dim bt As String ="根据《奖励办法(试行)》对符合条件的线索进行奖励,点击获取《奖励办法(试行)》详情.注:领取奖励需要实名"
With wb.AddInputGroup("form1","ipg222","申请奖励须知")
With .AddTextArea("bz1",3)
.Readonly=True
.Value= bt
End With
End With
With wb.AddButtonGroup("form1","btg1",true)
.Add("btn1", "确定", "submit").Attri bute= "oncl ick='submitForm3()'" '调用js函数上传
End With
End With
wb.AppendHTML("<script>" & vars("yanzhengma") & "</script>") '引入脚本文件
wb.AppendHTML("<script>" & vars("jubao") & "</script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
else
Dim sjh As String = e.Values("sjh")
Dim yzm As String = e.Values("yzm")
If e.Cookies.ContainsKey(sjh) = False Then
e.WriteString("请点击发送验证码")
Return ""
End If
If e.Cookies(sjh) <> yzm Then
e.WriteString("验证码不正确")
Return ""
End If
dim a as boolean
if e.PostValues.ContainsKey("rd1") andalso e.PostValues("实名举报") = "on" then
a = true
end if
dim a1 as boolean
if e.PostValues.ContainsKey("rd2") andalso e.PostValues("匿名举报") = "on" then
a1 = true
end if
dim a12 as boolean
if e.PostValues.ContainsKey("申请奖励") andalso e.PostValues("申请奖励") = "on" then
a12 = true
end if
dim a13 as boolean
if e.PostValues.ContainsKey("不申请奖励") andalso e.PostValues("不申请奖励") = "on" then
a13 = true
end if
Dim cmd As New SQL Com mand
cmd.Conne ctionNa me = "智慧党建"
cmd.Comma ndText = "Ins ert Into 线索举报 (uuid,举报类型,线索地点,位置描述,线索描述,实名举报,匿名举报,联系人,联系电话,验证码,申请奖励,不申请奖励,举报时间) Values(?,?,?,?,?,?,?,?,?,?,?,?,?)"
cmd.Parameters.Add("@uuid", uuid)
cmd.Parameters.Add("@举报类型", e.PostValues("举报类型"))
cmd.Parameters.Add("@线索地点", e.PostValues("线索地点"))
cmd.Parameters.Add("@位置描述", e.PostValues("位置描述"))
cmd.Parameters.Add("@线索描述", e.PostValues("bz"))
cmd.Parameters.Add("@实名举报", a)
cmd.Parameters.Add("@匿名举报", a1)
cmd.Parameters.Add("@联系人", e.PostValues("jbr"))
cmd.Parameters.Add("@联系电话", e.PostValues("sjh"))
cmd.Parameters.Add("@验证码", e.PostValues("yzm"))
cmd.Parameters.Add("@申请奖励", a12)
cmd.Parameters.Add("@不申请奖励", a13)
cmd.Parameters.Add("@举报时间",Date.now)
cmd.ExecuteNonQuery
datatables("线索举报").load
End If
js代码如下:(也没有成功返回对应的页面testyzm.htm)
function submitForm3(){
show("tst1",2000);
if (document.getElementById("yzm").value && document.getElementById("sjh").value ){
submitAjaxForm('form1','afterSubmit3');
}
else{
show("toptip1",2000);
}
}
function afterSubmit3(result){
hide("tst1");
if (result=='OK') {
show("tst2");
location="testyzm.htm";
}
else{
show("tst3",2000);
}
}
下面部分的代码也没有成功实现判断,当手机号为空的时候提示请点击发送验证码,验证码不正确的时候提示验证码不对
Dim sjh As String = e.Values("sjh")
Dim yzm As String = e.Values("yzm")
If e.Cookies.ContainsKey(sjh) = False Then
e.WriteString("请点击发送验证码")
Return ""
End If
If e.Cookies(sjh) <> yzm Then
e.WriteString("验证码不正确")
Return ""
End If