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

谢谢老师!

比如

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) dim filename as string = format(date.now，"yyyyMMddHHmmssfffff") & fln                     e.SaveFile(key, fln, ProjectPath & "Attachments\照片\" & filename )                 Next                 xsphoto = 照片\" & filename              End If         Next

谢谢老师！

http://www.foxtable.com/webhelp/topics/1387.htm

谢谢老师的耐心指点！

老师：我需要在excel中导出多条记录，多张图片，如何设置，谢谢您！

我们知道，图片列的一个单元格可能包括多个图片，上述的引用格式打印的是第一个图片。
我们可以指定打印第几个图片，方法是在列名后面加上“&X”，X是一个整数，表示要打印的图片的位置，从0开始编号。

例如：

[&照片&1,3,3,150,159]

表示打印第二个图片。

再例如打印第三个图片：

[&照片&2,3,3,150,159]

非常感谢老师的指点！

再请教老师：我只用yyyyMMddHHmmssfffff给图片命名，要怎么解决，谢谢！

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) dim frr() as string = fln.split(".") dim filename as string = format(date.now，"yyyyMMddHHmmssfffff") & "." & frr(1)                     e.SaveFile(key, fln, ProjectPath & "Attachments\照片\" & filename )                 Next                 xsphoto = 照片\" & filename              End If         Next