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


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

主题：云服务器如何接收用户上传的文件？
帅哥哟，离线，有人找我吗？
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


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：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


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：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


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：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 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06689 秒, 4 次数据查询