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='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)
Dim Multi As String = e.PostValues("file")
Dim Values() As String
Values = Multi.split(".")
For Index As Integer = 0 To Values.Length - 1
Next
Dim cs As String = Values(1)
Dim cs2 As String = "aaa"
Dim cs5 As String = (cs2 & "." & cs)
sb.AppendLine(fl & "<br>")
e.SaveFile(key, fl, "E:\MyFolder\张三工号\" & cs5) '保存接收到的文件
Next
sb.AppendLine("</br>")
Next
sb.AppendLine("以上文件服务器已正确接收并保存!")
e.WriteString(sb.ToString)
End Select
为何会出错
加好友 
发短信
Post By：2023/2/27 17:27:00 [显示全部帖子]
