以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- submitAjaxFileds返回值为空 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115089) |
-- 作者:chenjiu6202 -- 发布时间:2018/2/28 20:33:00 -- submitAjaxFileds返回值为空 代码如下: Dim e As RequestEventArgs = Args(0) Dim wb As New weui Select Case e.Path Case "answer.htm" \'\'\'\'--------------------定义两个页面 With wb.AddTabBar("", "tb1", 1) .AddPage("page1","收令回复","./images/001.png") .AddPage("page2","消令回复","./images/002.png") End With \'\'\'--------------------------\'指定第一个页面接收表单数据的的页面为handle.htm wb.AddForm("page1","form1","answer.htm") With wb.AddInputGroup("form1","ipg1","作业命令") .AddHidenValue("_Identify","123") .AddHidenValue("OneDate","123") .AddInput("受令处所","受令处所","text") .AddInput("命令号","命令号","text") .AddInput("工作票号","工作票号","text") .AddInput("停电馈线","停电馈线","text") .AddInput("发令时间","发令时间","text") .AddInput("完成时间","完成时间","text") End With With wb.AddInputGroup("form1","ipg2","命令内容") .AddTextArea("命令内容",4) End With With wb.AddButtonGroup("form1","btg2",False) With .Add("btn3", "上一条", "button") .Value = "btn3" .Attribute = "" End With With .Add("btn4","下一条","button") .Value = "btn4" .Attribute ="" End With With wb.AddButtonGroup("form1","btg1",False) With .Add("btn1", "收令回复", "submit") .Kind = 1 .Attribute= "" End With End With End With wb.AppendHTML("<script src=\'/lib/myjax.js\'></script>") \'引入脚本文件 e.WriteString(wb.Build) Case "upPage.htm" Dim cookName As String = DecryptText(e.Cookies("username"),"wls123","wls123") Dim str As String = "" If e.PostValues.ContainsKey("btn4") Then If e.PostValues("_Identify") = "" Dim dr As DataRow = DataTables("接触网作业命令").SQLFind("受令人 = \'" & cookName & "\' And CreateTime > Date.Now.AddDays(-10) And Status =" & 4,"CreateTime DESC",0) If dr IsNot Nothing Then str = dr("_Identify") & "|" & dr("CreateTime") & "|" & dr("受令处所") & "|" & dr("命令号") & "|" & dr("工作票号") & "|" & dr("停电馈线") & "|" & dr("发令时间") & "|" & dr("完成时间") & "|" & dr("命令内容") Else str = "IsNothing" End If Else Dim dr As DataRow = DataTables("接触网作业命令").SQLFind("受令人 = \'" & cookName & "\' And CreateTime < \'" & e.Values("OneDate") & "\' And Status =" & 4,"CreateTime DESC",0) If dr IsNot Nothing Then e.WriteString(dr("_Identify") & "|" & dr("CreateTime") & "|" & dr("受令处所") & "|" & dr("命令号") & "|" & dr("工作票号") & "|" & dr("停电馈线") & "|" & dr("发令时间") & "|" & dr("完成时间") & "|" & dr("命令内容")) End If End If e.WriteString(str) End If End Select js代码如下: function upPage(){
var result = submitAjaxFileds(\'upPage.htm\',\'\',\'_Identify\',\'OneDate\',false);
alert(result) if (result) {
var vals = result.split("|");
document.getElementById("_Identify").value=vals[0]; document.getElementById("OneDate").value=vals[1];
document.getElementById("受令处所").value=vals[2]; document.getElementById("命令号").value=vals[3];
document.getElementById("工作票号").value=vals[4];
document.getElementById("停电馈线").value=vals[5];
document.getElementById("发令时间").value=vals[6];
document.getElementById("完成时间").value=vals[7];
document.getElementById("命令内容").value=vals[8];
} else {
//if(result=="IsNothing")
//show(\'dlg3\');
}
} result的值返回为空值
|
-- 作者:chenjiu6202 -- 发布时间:2018/2/28 20:36:00 -- With .Add("btn4","下一条","button") .Value = "btn4" .Attribute ="" End With 复制的时候少了btn4的代码 |
-- 作者:有点甜 -- 发布时间:2018/2/28 21:21:00 -- 请在你 upPage.htm 里面加入msgbox,弹出各个值,看进入执行了什么代码。 |
-- 作者:chenjiu6202 -- 发布时间:2018/2/28 21:31:00 -- upPage.htm第一行加msgbox后,什么也没有,不往出来弹 |
-- 作者:有点甜 -- 发布时间:2018/2/28 22:01:00 -- 你提交的字段是红色那几个
var result = submitAjaxFileds(\'upPage.htm\',\'\',\'_Identify\',\'OneDate\',false);
很明显,不满足这个条件
If e.PostValues.ContainsKey("btn4") Then |
-- 作者:chenjiu6202 -- 发布时间:2018/2/28 22:13:00 -- 关键是upPage.htm根本没进去,连msgbox都没执行 |
-- 作者:有点甜 -- 发布时间:2018/2/28 23:02:00 -- 以下是引用chenjiu6202在2018/2/28 22:13:00的发言:
关键是upPage.htm根本没进去,连msgbox都没执行
修改代码,看能否弹出123456,如果不能弹出,说明你js有问题。
如果两个alert都能弹出,肯定能进入upPage.htm里面的,不然你做个实例说明。
alert("123456") var result = submitAjaxFileds(\'upPage.htm\',\'\',\'_Identify\',\'OneDate\',false);
alert(result)
[此贴子已经被作者于2018/2/28 23:02:22编辑过]
|
-- 作者:chenjiu6202 -- 发布时间:2018/3/1 9:22:00 -- 甜老师,系统提示submitAjaxData函数的第584行,http.open("POST",url,false);有警告 |
-- 作者:chenjiu6202 -- 发布时间:2018/3/1 9:23:00 -- Synchronous XMLHttpRequest on the main thread is deprecated because of its detrimental effects to the end user\'s experience. For more help, check https://xhr.spec.whatwg.org/. |
-- 作者:有点甜 -- 发布时间:2018/3/1 9:26:00 -- 以下是引用chenjiu6202在2018/3/1 9:22:00的发言:
甜老师,系统提示submitAjaxData函数的第584行,http.open("POST",url,false);有警告
不应该的。你单独做一个页面测试 submitAjaxFileds 看有没有效果。
如果两个alert都可以返回,说明submitAjaxFileds 函数执行正常。 [此贴子已经被作者于2018/3/1 9:28:38编辑过]
|