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


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

主题:多文件上传

帅哥哟,离线,有人找我吗?
刘林
  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"  
    Next
i=i+1
Next
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")
    Next
    i=i+1
Next


前端 测试了弹出的了三个文件,但这样最终后只有存在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")
    Next
    i=i+1
Next


老师,终于懂起了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
    Next
    lvw.ResumeRedraw() '恢复绘制
End If




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

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