Foxtable(狐表)用户栏目专家坐堂 → 云服务器如何接收用户上传的文件?


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

主题:云服务器如何接收用户上传的文件?

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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
云服务器如何接收用户上传的文件?  发帖心情 Post By:2021/1/4 14:05:00 [只看该作者]

    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
            Next
请老师指点:云服务器如何接收用户上传的文件?谢谢

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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2021/1/4 14:09:00 [只看该作者]

使用参数化方式上传。

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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2021/1/4 14:15:00 [只看该作者]

Dim xsphoto As List(of String)
        '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
                'xsphoto = e.Files(key)
            'End If
        'Next


这样改可以吗?

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/4 14:35:00 [只看该作者]

就是1楼的用法,有什么问题?http://www.foxtable.com/mobilehelp/topics/0060.htm

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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2021/1/4 18:29:00 [只看该作者]

请老师指点:云服务器如何接收用户上传的文件,使用参数化方式上传

cmd.Parameters.Add("@照片", e.Files(key))

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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2021/1/4 18:42:00 [只看该作者]

cmd.Parameters.Add("@照片", xsphoto)
3楼这样改,没有获取到学生照片文件名。
请指点,谢谢!

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/4 20:11:00 [只看该作者]

保存为二进制数据库数据?先保存到硬盘

Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "Insert Into test (图片) Values(?)"
Dim ImageByte() As Byte = System.IO.File.ReadAllBytes("D:\test.JPG") '读取文件流,并将读到的二进制数据放入数组ImageByte中,
cmd.Parameters.Add("@图片", ImageByte)
cmd.ExecuteNonQuery

如果只是保存文件名
cmd.Parameters.Add("@照片", string.join(vbcrlf,xsphoto.toarray))

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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2021/1/4 20:48:00 [只看该作者]

谢谢老师指点!

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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2021/12/15 22:31:00 [只看该作者]

请问老师:如何在上传图片时将attachment中的图片文件重命名为不重复的行号,谢谢!晚安!

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/12/16 9:03:00 [只看该作者]

建议使用日期命名

e.SaveFile(key, fln, ProjectPath & "Attachments\照片\" & format(date.now,"yyyyMMddHHmmssfffff") & fln)

 回到顶部
总数 27 1 2 3 下一页