Foxtable(狐表)用户栏目专家坐堂 → 请问upload一讲中,照片上传的个数能否限制


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

主题:请问upload一讲中,照片上传的个数能否限制

帅哥哟,离线,有人找我吗?
sunion
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:241 积分:2569 威望:0 精华:0 注册:2018/1/11 14:52:00
请问upload一讲中,照片上传的个数能否限制  发帖心情 Post By:2021/8/10 16:27:00 [显示全部帖子]

请问upload一讲中,照片上传的个数能否限制,不限制张数,哪怕就是压缩了文件也比较多,能不能限制比如一次最多选6张,看了视频的讲解,没有提到这个问题

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 '
允许重复选择文件或连续拍照
               
.ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩
           
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")


 回到顶部
帅哥哟,离线,有人找我吗?
sunion
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:241 积分:2569 威望:0 精华:0 注册:2018/1/11 14:52:00
  发帖心情 Post By:2021/8/11 19:45:00 [显示全部帖子]

 代码加入后照片能正常接收,表格中记录会同步。但弹出上传失败的红色标志。请问蓝蓝老师,这是什么问题呢?

Case "receive.htm"
        For Each key As String In e.Files.Keys
                   
            If e.Files(key).count > 6 Then    
                e.WriteString("照片不能多于6张!!")
                Return  
            Else 
                
                Dim nms() As String = {"内容"}
                Dim drc As DataRow = DataTables("表A").AddNew()
                For Each nm As String In nms
                    drc(nm) = e.PostValues(nm)              
                Next

                If key = "up1" Then 
                    Dim lst As List(of String) = drc.Lines("照片")
                    For Each fln As String In e.Files(key)
                        Dim n As String = Format(Date.Now,"yyyyMMddHHmmssffff") & fln
                        e.SaveFile(key,fln,"C:\web\uploadfiles\" & n) 
                        lst.Add(n)
                    Next
                    drc.Lines("照片") = lst
                    drc.save()
                End If
                
            End If  
            
        Next

        e.WriteString("ok")


 回到顶部
帅哥哟,离线,有人找我吗?
sunion
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:241 积分:2569 威望:0 精华:0 注册:2018/1/11 14:52:00
  发帖心情 Post By:2021/8/12 20:24:00 [显示全部帖子]

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);
    }
}


 回到顶部