Foxtable(狐表) → 用户栏目 → 专家坐堂 → js创建表单无法提交到网页


  共有2400人关注过本帖树形打印复制链接

主题：js创建表单无法提交到网页
帅哥哟，离线，有人找我吗？
星瀚
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：166 威望：0 精华：0 注册：2023/12/5 15:52:00 		js创建表单无法提交到网页  发帖心情 Post By：2023/12/5 16:02:00 [显示全部帖子]

js创建表单和元素值，提交到指定网页，console显示提交成功，但网页显示未收到数据，求解，谢谢！
function uploadRec() {
        var xhr = new XMLHttpRequest();
        xhr.onreadystatechange = function() {
          if (xhr.readyState === XMLHttpRequest.DONE) {
            if (xhr.status === 200) {
              console.log('Form submitted successfully');
              console.log(xhr.responseText);
              console.log(input1.name+input1.value);
              location = "accept.htm";
            } else {
              console.log('Failed to submit form');
            }
          }
        };
        var form1 = document.createElement('form');
        form1.method = 'POST';
        form1.action = 'accept.htm';
        var input1 = document.createElement('input');
        input1.type = 'text';
        input1.name = '责任人';
        input1.value = 'John';
        var input2 = document.createElement('input');
        input2.type = 'text';
        input2.name = '责任单位';
        input2.value = '123456';
        form1.appendChild(input1);
        form1.appendChild(input2);
        xhr.open('POST', form1.action,true);
        xhr.setRequestHeader("Content-Type","text/plain;charset=utf-8");
        xhr.send(new FormData(form1));
      }
 回到顶部
帅哥哟，离线，有人找我吗？
星瀚
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：166 威望：0 精华：0 注册：2023/12/5 15:52:00 		  发帖心情 Post By：2023/12/5 16:47:00 [显示全部帖子]

 网页提交数据截图如下：

图片点击可在新窗口打开查看此主题相关图片如下：网页显示.png
图片点击可在新窗口打开查看

服务端
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试ajax.rar

代码如下，项目请见附件，谢谢！
Case "uploadpic.htm"
        Dim wb As New weui
        If e.PostValues.Count = 0 Then
            wb.AddForm("", "form1", "accept.htm")
            With wb.AddInputGroup("form1", "ipg22", "文件上传") '带图片浏览的文件上传
                With .AddUploader("up2", "图片", True) 'True表示允许一次上传多个文件
                    .AddImage("./images/001.jpg")
                    .AddImage("./images/002.jpg")
                End With
            End With
            
            With wb.AddButtonGroup("form1", "btg2", True)
                .Add("btn1", "ajax上传", "button").Attribute = "" '调用js函数上传
            End With
            wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
            e.WriteString(wb.Build) 
            For Each key As String In e.Files.Keys
                For Each fln As String In e.Files(key)
                    e.SaveFile(key, fln, "d:\web\uploadfiles\" & fln) '保存接收到的文件
                Next
            Next
            e.WriteString(wb.Build)
        End If
 Case "accept.htm"
        Dim sb As New StringBuilder
        For Each key As String In e.Files.Keys
            sb.AppendLine(key & " 上传" & e.Files(key).Count & "个文件,分别是:</br>")
            For Each fle As String In e.Files(key)
                sb.AppendLine(fle & "<br>")
                e.SaveFile(key, fle, "d:\web\uploadfiles\" & fle) '保存接收到的文件
            Next
            sb.AppendLine("</br>")
        Next
        
        sb.AppendLine("接收到的数据有:<br/><br/>")
        For Each key As String In e.Values.Keys
            sb.AppendLine(key & ":" & e.Values(key) & "<br/>")
        Next
        sb.AppendLine("</br>")
        sb.AppendLine("以上文件服务器已正确接收并保存!")
        e.WriteString(sb.ToString)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询