多文件上传 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多文件上传

共有1300人关注过本帖树形打印复制链接主题：多文件上传

刘林

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

多文件上传

Post By：2024/10/8 21:25:00 [显示全部帖子]

var uniqueId

var files = ""

var db = 0

upload.render({

elem: '#ID-upload-demo-btn-2',

url: '../pnxpsc', //

data: {

bj: function() {

return $('#bjxz').val();

db: function() {

$('input[type="checkbox"][name="BBB"]:checked').each(function() {

var number = parseFloat($(this).attr('value'))

db += number

});

return db;

filename:function(){

return uniqueId;

headers: {

token: 'sa'

multiple: true,

auto: false,

bindAction: "#ID-upload-demo-btn-3",

choose: function(obj) {

// $('#upload-demo-preview').empty;

files = obj.pushFile();

console.log(files)

obj.preview(function(index, file, result) {

$('#upload-demo-preview').append('<img src="' + result + '">').find('img').css({

widhth: 92,

height: 92,

margin: '0 10px 10px 0'

})

}

});

Dim e As RequestEventArgs = args(0)

Dim bj As String = e.values("bj")

Dim db As Double=e.values("db")

Dim xpid=e.values("filename")

'Dim i As Integer=1

For Each key As String In e.files.keys

For Each fl As String In e.files(key)

e.savefile(key,fl,"/web/xp/wjxp/" & xpid & "-" & i &".jpg"

i=i+1

Dim obj As new Jobject

obj("status")="ok"

e.Writestring(obj.Tostring)

e.Handled=True ''

请问老师,你好，这个是前端牟取预览有多个文件，想上传后在后台将每个文件用 xpid连个i的形式来保存文件，现在是几个图片传过来文件名只有第一个，请问问题在哪里，该怎样改？谢谢

刘林

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2024/10/8 21:55:00 [显示全部帖子]

有添加

刘林

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2024/10/8 21:58:00 [显示全部帖子]

有文件，现在的问题是传后台想把上传的几个图片文件分别存在为xpid-"X"的形式，如AA-1，AA-2
图片点击可在新窗口打开查看

此主题相关图片如下：微信图片_20241008215642.png

刘林

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2024/10/8 22:10:00 [显示全部帖子]

Dim e As RequestEventArgs = args(0)

Dim bj As String = e.values("bj")

Dim db As Double=e.values("db")

Dim xpid=e.values("filename")

Dim i As Integer=1

For Each key As String In e.files.keys

For Each fl As String In e.files(key)

msgbox(fl )

e.savefile(key,fl,"/web/xp/wjxp/" & xpid & "-" & i &".jpg")

i=i+1

前端测试了弹出的了三个文件，但这样最终后只有存在xpid-1一个，也就是每次都存为1号文件了去了，所以不前端一次多个文件，最后保存结果都只有xpid-1,这怎么办

刘林

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2024/10/8 22:21:00 [显示全部帖子]

Dim e As RequestEventArgs = args(0)

Dim bj As String = e.values("bj")

Dim db As Double=e.values("db")

Dim xpid=e.values("filename")

Dim i As Integer = rand.Next(1000000)

For Each key As String In e.files.keys

For Each fl As String In e.files(key)

msgbox(fl )

e.savefile(key,fl,"/web/xp/wjxp/" & xpid & "-" & i &".jpg")

i=i+1

老师，终于懂起了layui前端多文件上传时是有多少个就调多少次接口，所以每一次i都为1，所以就成这样了，我用了随机数，这样就能解决了，虽解决了上传不履盖，但这不是我想要的最好结果

刘林

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2024/10/10 20:35:00 [显示全部帖子]

老师：接着再提点问，现在多文件传成功了。现有表中图片文件名为AAAA,现在对应文件夹中存有AAAA-ahdjhk.jpg,AAAA-djlskl.jpg等个数不定的文件，相在fox中点到表记录时用图片控件来显示各对应的多个文件，怎么做，没有思路，请指点，谢谢

[此贴子已经被作者于2024/10/10 20:37:16编辑过]

刘林

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2024/10/20 20:15:00 [显示全部帖子]

老师，没懂起，现在的问题是远程有AAAA-1701803,AAAA-901803980等文件，也就是-前是固定的，-后是随机的，如何下载到本地文件

[此贴子已经被作者于2024/10/20 20:24:28编辑过]

刘林

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2024/10/20 20:34:00 [显示全部帖子]

就是远程有AAAA-279379.jpg,AAAA-0298.jpg,等不确定的文件x个，现在本地mm表的nn列图片名为AAAA，现在想在光标移动到当前行时，将x个文件都下载到本地

[此贴子已经被作者于2024/10/20 20:34:51编辑过]

刘林

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2024/10/20 21:04:00 [显示全部帖子]

就是自己网站，自己服务器磁盘上的文件，ftp下载

刘林

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2024/10/30 22:07:00 [显示全部帖子]

Dim tb2 As Table=Tables("考勤_table2")

Dim ftp1 As New FtpClient

ftp1.Host=

ftp1.Account =

ftp1.Password =

Dim lvw As WinForm.ListView = e.Form.Controls("ListView2")

lvw.StopRedraw() '暂停绘制

lvw.Rows.Clear() '清除原来的行

lvw.Images.Clear() '清除原来的图片

lvw.View = ViewMode.LargeIcon '显示模式为大图标

lvw.Images.LargeSize = New Size(180,240) '定义大图标尺寸

If tb2.Cols.Contains("现状图片") And tb2.Rows.count>0

Dim fls As List(of String)

fls = ftp1.GetFileList("\xp\wjxp\" & tb2.Current("现状图片") & "*.jpg")

For Each fl As String In fls

Dim key ="\xp\wjxp\" & fl

If FileSys.FileExists(ProjectPath & "remotefiles" & key) = False

If ftp1.Download(key,ProjectPath & "remotefiles" & key) = False

Else

lvw.Images.AddLargeImage(key, ProjectPath & "remotefiles" & key)

Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行

vr.Text = fl '设置标题vr.

vr.ImageKey = key '设置图片键值

End If

Else

lvw.Images.AddLargeImage(key, ProjectPath & "remotefiles" & key)

Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行

vr.Text = fl '设置标题vr.

vr.ImageKey = key '设置图片键值

End If

lvw.ResumeRedraw() '恢复绘制

End If

老师：现在有两个问题，lvw.Images.LargeSize = New Size(180,240) '定义了图片的大小，固定的尺寸会造成有的图片变形，如何在listview中将图片自适应比例，还有就是如何点击某图时放大图片，

下一主题 >> << 上一主题

总数 12 1 2 下一页

主题：多文件上传