| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 移动开发文件改名上传如何编码？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101318) |
| -- 作者：kgdce -- 发布时间：2017/5/28 11:34:00 -- 移动开发文件改名上传如何编码？ 移动开发文件改名上传如何编码？ 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) \'保存接收到的文件 Next sb.AppendLine("</br>") Next 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 |
| -- 作者：有点色 -- 发布时间：2017/5/28 11:37:00 -- 为什么非要在客户端改名？你可以上传后，保存的时候改名，这样简单。
|
| -- 作者：kgdce -- 发布时间：2017/5/28 12:04:00 -- 如何根据客户端指定的名称改名，也就是说上传的时候不改名，接收的时候需要知道客户端发送的“新的需要改成的文件名名称”如何实现？ e.SaveFile(key,fl,"d:\\web\\uploadfiles\\" & fl) \'保存接收到的文件，也就是如何传递fl 是否是要用到JavaScript？
[此贴子已经被作者于2017/5/28 12:20:49编辑过]
|
| -- 作者：有点色 -- 发布时间：2017/5/28 12:38:00 -- 放一个文本框，存放新的文件名，在服务端，读取文本框的值作为路径，然后保存。 |
| -- 作者：kgdce -- 发布时间：2017/5/28 14:45:00 -- 如果在客户端放一个浏览器控件，如何在显示的网业（网业中有文本框）中填写一个变量传递的值？也就是说，当客户端打开网页后，这个文本框不用输入内容，就自动填写了变量传递过来的值。 |
| -- 作者：有点色 -- 发布时间：2017/5/28 16:15:00 -- 参考
http://www.foxtable.com/mobilehelp/scr/0028.htm
|