- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 代码求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185518)
-- 发布时间：2023/2/27 17:27: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=\'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
为何会出错
-- 发布时间：2023/2/27 17:37:00
--
出什么错？哪一句代码出错？
-- 发布时间：2023/2/27 23:43:00
--
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) \'保存接收到的文件
这一段，在实际web上传文件的时候老是提示错误，且照片无法保存页面跳转出错
-- 发布时间：2023/2/28 8:48:00
--
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 Values() As String = fl.split(".")
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
-- 发布时间：2023/2/28 11:43:00
--
还是有问题，网页运行正常，但图片保存还是存在问题
1、图片无法重命名
2、图片格式还是无法保存
-- 发布时间：2023/2/28 13:34:00
--
我测试没有问题，是不是服务器不存在这个目录？"E:\\MyFolder\\张三工号\\"
-- 发布时间：2023/2/28 14:39:00
--
最新发现，上传照片没有问题，但用手机拍照却1、图片无法重命名2、图片格式还是无法保存
有没有什么办法可以克服这个问题？
我用的是安卓+UC浏览器
-- 发布时间：2023/2/28 14:41:00
--
自带的浏览器也没问题
-- 发布时间：2023/2/28 15:11:00
--
浏览器兼容性问题我们解决不了。试多几个浏览器，找到好用的。
看看是不是接收的文件名称里有多个点（.）号