28,391
社区成员
发帖
与我相关
我的任务
分享在服务器中上传文件问题
function SaveToFile(FullPath)
dim oFileStream,ErrorChar,i
SaveToFile=1
if trim(fullpath)="" or right(fullpath,1)="/" then exit function
set oFileStream=CreateObject("Adodb.Stream")
oFileStream.Type=1
oFileStream.Mode=3
oFileStream.Open
oUpFileStream.position=FileStart
oUpFileStream.copyto oFileStream,FileSize
oFileStream.SaveToFile FullPath,2
oFileStream.Close
set oFileStream=nothing
SaveToFile=0
end function
我在执行oFileStream.SaveToFile FullPath,2 这句的时候服务器返回错误500，由于服务器不是我设置的，不知道是不是我权限不够不能在服务器中写文件，我在本地执行的时候是没有问题的，如果把这句删去后也不会返回错误，请大家帮我分析一下是什么问题。
dim oFileStream,ErrorChar,i
SaveToFile=1
if trim(fullpath)="" or right(fullpath,1)="/" then exit function
set oFileStream=CreateObject("Adodb.Stream")
oFileStream.Type=1
oFileStream.Mode=3
oFileStream.Open
oUpFileStream.position=FileStart
oUpFileStream.copyto oFileStream,FileSize
oFileStream.SaveToFile FullPath,2
oFileStream.Close
set oFileStream=nothing
SaveToFile=0
end function
我在执行oFileStream.SaveToFile FullPath,2 这句的时候服务器返回错误500，由于服务器不是我设置的，不知道是不是我权限不够不能在服务器中写文件，我在本地执行的时候是没有问题的，如果把这句删去后也不会返回错误，请大家帮我分析一下是什么问题。
...全文
请发表友善的回复…
发表回复
a56508820 2013-05-13
- 打赏
- 举报
真的是没有权限的关系
Go 旅城通票 2013-02-27
- 打赏
- 举报
应该是权限的问题，ftp创建的文件夹所属的父文件夹没有写入权限，导致新文件夹也没有写入权限
Anlige 2013-02-27
- 打赏
- 举报
父目录不存在，或者没有对这个目录写入的权限，最好输出下fullpath看看
Rotel-刘志东 2013-02-26
- 打赏
- 举报
应该是没有权限的原因导致的不能够写入。
jiguoguo 2013-02-25
- 打赏
- 举报
500.把错误提示输出到浏览器中。看看到底什么错误。
ie的友好提示是否关闭
估计是权限的问题。设置写入权限
a56508820 2013-02-24
- 打赏
- 举报
补充一下，文件路径是我通过ftp在服务器中创建的文件夹里面
