Foxtable(狐表)用户栏目专家坐堂 → 【weui】移动开发时,如何实现多个文件批量选择上传呢?


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

主题:【weui】移动开发时,如何实现多个文件批量选择上传呢?

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


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/22 13:38:00 [显示全部帖子]


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


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/22 14:23:00 [显示全部帖子]

贴出完整代码

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


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/22 14:51:00 [显示全部帖子]

如果需要在当前位置插入HTML代码,请使用InsertHTML,语法:

InsertHTML(Content)
InsertHTML(ParentId,Content)

Content:  要插入的内容。
ParentId: 父容器ID,如果是顶层对象,可以不设置。


            wb.AddTopTips("","toptip1","请输入单位名称和支部名称!")
            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/><br/>")
            sb.appendLine("多文件上传: <input type='file' name='up2' id='up2' multiple><br/><br/>")
            sb.appendLine("<input Type='submit' name='Sumbit' id='Sumbit' value='确定'>")
            sb.appendLine("</div>")
            wb.InsertHTML("form1",sb.ToString)

            wb.InsertHTML(div)
            With wb.AddButtonGroup("form1","btg1",False)

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


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/22 17:18:00 [显示全部帖子]

接收文件的代码?http://www.foxtable.com/mobilehelp/topics/0060.htm

            For Each key As String In e.Files.Keys
                If key = "up1" Then
                    For Each fln As String In e.Files(key)
                        e.SaveFile(key, fln, ProjectPath & "Attachments\" & fln)
                    Next
                    dr.Lines("
照片") = e.Files(key)
                End If
If key = "up2" Then
……
            Next

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


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/23 9:08:00 [显示全部帖子]

没有办法直接显示word文档。可以考虑保存为html文件显示:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=151764&page=2

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


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/23 10:48:00 [显示全部帖子]

1、使用内置的文件上传功能:http://www.foxtable.com/mobilehelp/topics/0090.htm

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


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/23 14:10:00 [显示全部帖子]

使用a标签:

wb.InsertHTML("<a href='./abc.doc'>文件1</a>")

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


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/23 16:40:00 [显示全部帖子]

文件保存到"d:\web"路径里:http://www.foxtable.com/mobilehelp/topics/0044.htm

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


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/23 16:56:00 [显示全部帖子]

文件保存到"d:\web"路径里:http://www.foxtable.com/mobilehelp/topics/0044.htm

        Dim wj As String =ProjectPath & "Attachments\" & fln
        dr.SQLLoadFile("图片",wj)

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


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/24 20:25:00 [显示全部帖子]

主表才能使用SQLLoadFile,临时表不支持。

可以考虑直接使用,或者使用SQL保存到本地:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=101844

 回到顶部
总数 12 1 2 下一页