移动开发文件改名上传如何编码？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
加好友 
发短信
Post By：2017/5/28 11:34:00 [显示全部帖子]
