移动开发文件改名上传如何编码？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

移动开发文件改名上传如何编码？

Select Case e.Path

Case "upload.htm"

Dim sb As New StringBuilder

sb.appendLine("<form enctype='multipart/form-data' action='accept.htm' method='post' id='form1' name='form1'>")

sb.appendLine("单文件上传: <input type='file' name='up1' id='up1'><br/><br/>")

如何在上传时将文件改名再上传？

'sb.appendLine("多文件上传: <input type='file' name='up2' id='up2' multiple><br/><br/>")

sb.appendLine("<input Type='submit' name='Sumbit' id='Sumbit' value='确定'>")

sb.appendLine("</form>")

e.WriteString(sb.ToString)

Case "accept.htm"

Dim sb As New StringBuilder

For Each key As String In e.Files.Keys

sb.AppendLine(key & " 上传" & e.Files(key).Count & "个文件,分别是:</br>")

For Each fl As String In e.Files(key)

sb.AppendLine(fl & "<br>")

e.SaveFile(key,fl,"d:\web\uploadfiles\" & fl) '保存接收到的文件

sb.AppendLine("</br>")

sb.AppendLine("以上文件服务器已正确接收并保存!")

e.WriteString(sb.ToString)

Case "test.htm"

If e.PlainText > "" Then

e.WriteString("服务器收到以下数据:" & vbcrlf & e.PlainText)

Else

e.WriteString("服务器未收到数据")

End If

End Select

为什么非要在客户端改名？你可以上传后，保存的时候改名，这样简单。

如何根据客户端指定的名称改名，也就是说上传的时候不改名，接收的时候需要知道客户端发送的“新的需要改成的文件名名称”如何实现？

e.SaveFile(key,fl,"d:\web\uploadfiles\" & fl) '保存接收到的文件，也就是如何传递fl

是否是要用到JavaScript？

[此贴子已经被作者于2017/5/28 12:20:49编辑过]

放一个文本框，存放新的文件名，在服务端，读取文本框的值作为路径，然后保存。

如果在客户端放一个浏览器控件，如何在显示的网业（网业中有文本框）中填写一个变量传递的值？也就是说，当客户端打开网页后，这个文本框不用输入内容，就自动填写了变量传递过来的值。

主题：移动开发文件改名上传如何编码？