| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 云服务器如何接收用户上传的文件？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159677) |
| -- 作者：evolymft -- 发布时间：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 -- 发布时间：2021/1/4 14:09:00 -- 使用参数化方式上传。 |
| -- 作者：evolymft -- 发布时间：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 这样改可以吗？
|
| -- 作者：有点蓝 -- 发布时间：2021/1/4 14:35:00 -- 就是1楼的用法，有什么问题？http://www.foxtable.com/mobilehelp/topics/0060.htm |
| -- 作者：evolymft -- 发布时间：2021/1/4 18:29:00 -- 请老师指点：云服务器如何接收用户上传的文件,使用参数化方式上传 cmd.Parameters.Add("@照片", e.Files(key))
|
| -- 作者：evolymft -- 发布时间：2021/1/4 18:42:00 -- cmd.Parameters.Add("@照片", xsphoto) 3楼这样改，没有获取到学生照片文件名。 请指点，谢谢！
|
| -- 作者：有点蓝 -- 发布时间：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 -- 发布时间：2021/1/4 20:48:00 -- 谢谢老师指点！ |
| -- 作者：evolymft -- 发布时间：2021/12/15 22:31:00 -- 请问老师：如何在上传图片时将attachment中的图片文件重命名为不重复的行号，谢谢！晚安！ |
| -- 作者：有点蓝 -- 发布时间：2021/12/16 9:03:00 -- 建议使用日期命名 e.SaveFile(key, fln, ProjectPath & "Attachments\\照片\\" & format(date.now，"yyyyMMddHHmmssfffff") & fln)
|