在服务器中上传文件问题
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，由于服务器不是我设置的，不知道是不是我权限不够不能在服务器中写文件，我在本地执行的时候是没有问题的，如果把这句删去后也不会返回错误，请大家帮我分析一下是什么问题。
------解决方案--------------------
500.把错误提示输出到浏览器中。看看到底什么错误。
ie的友好提示是否关闭
估计是权限的问题。设置写入权限
------解决方案--------------------
应该是没有权限的原因导致的不能够写入。
------解决方案--------------------
父目录不存在，或者没有对这个目录写入的权限，最好输出下fullpath看看
------解决方案--------------------
应该是权限的问题，ftp创建的文件夹所属的父文件夹没有写入权限，导致新文件夹也没有写入权限