以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  uploader说明应用问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159464)
--  作者：wangji
--  发布时间：2020/12/27 15:32:00
--  uploader说明应用问题
高级开发指南里面，UPLOADER的再探哪里代码，引用后，上传照片完成，总是提示上传错误，并且页面没有正常跳转，仍在输入页面。但是整个上传的数据全部正确上传了，这个怎么找问题
--  作者：wangji
--  发布时间：2020/12/27 18:51:00
--  
按照
11、在"d:\\web"目录下，建立一个子目录lib，在这个目录建立一个文本文件，文件名为"ajaxform.js"，文件内容为：


function submitForm(){
    show("tst1",2000);
    var result = submitAjaxForm(\'form1\',\'afterSubmit\');
}

function afterSubmit(result){
    hide("tst1");
    if (result==\'OK\') {
        show("tst2");
        location="upload.htm";
    }
    else{
        show("tst3",2000);
    }
}

提示: 
--  作者：wangji
--  发布时间：2020/12/27 18:52:00
--  
2.HttpRequest事件代码：

Select Case e.Path
    Case "upload.htm"
        Dim wb As New weui
        wb.AddForm("","form1","receive.htm")
        With wb.AddInputGroup("form1","ipg1","文件上传")
            With .AddUploader("up128","照片",True)
                .AllowDelete = True \'允许删除
                .Incremental = True \'允许重复选择文件或连续拍照
            End With
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "button").Attribute= "" \'调用js函数上传
        End With
        wb.AddToast("","tst1", "正在上传",1)
        wb.AddToast("","tst2", "上传成功",0)
        wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
        wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
        e.WriteString(wb.Build) \'生成网页
    Case "receive.htm"
        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("OK")
End Select

　
--  作者：wangji
--  发布时间：2020/12/27 18:52:00
--  
结果就是提示上传错误，但是数据，照片都正确上传了
--  作者：有点蓝
--  发布时间：2020/12/27 21:39:00
--  
function afterSubmit(result){
alert(result) //调试显示什么内容？
    hide("tst1");
    if (result==\'OK\') {
        show("tst2");
        location="upload.htm";
    }
    else{
        show("tst3",2000);
    }
}